將公式翻譯成VBA

沒有人知道如何將此公式=RIGHT(C1,LEN(C1)-SEARCH(":",C1))翻譯成VBA語法？我想在我的excel C列中使用這個公式，每個單元格包含一個":"。我只是想在":"之前刪除內容。將公式翻譯成VBA

在此先感謝！

來源

2016-02-25 Condo_programmer

'= RIGHT（RANGE（「C1」）。值，LEN（RANGE（「C1使用它「）.Value）-INSTR（RANGE（」C1「）。Value，」：「））' –

'= Mid（值，InStr（1，value，」：「）+ 1）' – GSerg

@ScottCraner謝謝！有用！ –

一個簡單的方法就是打開宏記錄器，然後輸入你的公式。然後你可以檢查宏的結果。您的問題主要是您需要在VBA中背靠背使用兩個引號，以在公式欄中反映一個報價。

話雖這麼說 - 爲了避免R1C1風格，你會做Cells(1,1).Formula = "=RIGHT(C1,LEN(C1)-Search("":"",C1))"

來源

2016-02-25 18:41:44 BruceWayne

你不說你想要的結果

用戶自定義函數= MID（C1，找到（「做什麼：」 C1））

但

VBA = MID（範圍（「C1」），INSTR（範圍（「C1」），「：」））

來源

2016-02-26 04:49:36 JoshuaR

聲明一個函數在一個Module一個小號

Public Function RemoveBeforeColon(ByVal s As String) As String 
    Dim i As Integer 
    i = InStr(1, s, ":") 
    If i > 0 Then 
     RemoveBeforeColon = Mid(s, i + 1) 
    Else 
     RemoveBeforeColon = s 
    End If 
End Function

，並用一個字符串或一個範圍

Debug.Print RemoveBeforeColon("ABC:123")

或

Debug.Print RemoveBeforeColon(Sheet1.Range("C1").Value2)

來源

2016-02-26 06:31:12 ja72

將公式翻譯成VBA

回答

相關問題