Excel的VBA：鮑勃迪倫串聯，中，發現公式VBA代碼

我創造另一個VBA的，我需要從Excel公式VBA值...Excel的VBA：鮑勃迪倫串聯，中，發現公式VBA代碼

Excel公式是

= CONCATENATE（MID（J11,1，FIND（「_」，J11,1）），「＃。JPG」）

的代碼中使用Excel宏是在VBA我記錄...

ActiveCell.FormulaR1C1 = _

「= CONCATENATE（MID（RC [-1]，1，FIND（」「_」「RC [-1]，1））」「＃。JPG」「）」

這給excel的Activecell的價值，但我需要在VBA的變量值。

來源

2016-12-01 jatin verma

這裏你不需要excel公式，只需要用'＆'和VBA函數如'Mid（）'，'InStr（）'和VBA函數加上對Range的引用即可。 –

下面是在VBA代碼 -

Dim str As String 

str = Mid(Sheets("sheetname").Range("J11").Value, 1, Application.WorksheetFunction.Search("_", Sheets("sheetname").Range("J11").Value, 1)) & "#.jpg"

只要改變SHEETNAME按你的牀單。

來源

2016-12-01 07:12:08

Excel的VBA：鮑勃迪倫串聯，中，發現公式VBA代碼

回答

相關問題