Excel VBA - =在宏中查找

Question

我正在使用這個公式從另一張紙上獲取信息。 我想在宏觀中做到這一點。

=LOOKUP(Sheet1!F2,{"FL01","FL12","FL21","FL31","FL34"},{"ORLANDO PICKLIST","TAMPA PICKLIST","JAX PICKLIST","NAPLES PICKLIST","MIAMI PICKLIST"})

答案是在sheet2 B2中心字體大小24。

謝謝

Answer 1

通過錄制它

你會得到這樣的東西：

Option Explicit

Sub Macro3()
'
' Macro3 Macro
'

'
    Selection.FormulaArray = _
        "=LOOKUP(Sheet1!RC[4],{""FL01"";""FL12"";""FL21"";""FL31"";""FL34""},{""ORLANDO PICKLIST"";""TAMPA PICKLIST"";""JAX PICKLIST"";""NAPLES PICKLIST"";""MIAMI PICKLIST""})"
    With Selection.Font
        .Name = "Calibri"
        .Size = 24
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
    End With
End Sub

選擇哪個是我開始錄制時選擇的單元格（“ B2 ”）。 從這里你可以玩代碼。 您將了解Excel如何將您的公式和格式選項“翻譯”到代碼中。

通過編輯選擇部分（ Selection. ），我們可以更明確哪個工作表以及我們想要將新代碼應用到哪個范圍...

Sub Macro3_Changes()
'
' Macro3 Macro
'

'
    Worksheets("Sheet2").Range("B2").FormulaArray = _
        "=LOOKUP(Sheet1!RC[4],{""FL01"";""FL12"";""FL21"";""FL31"";""FL34""},{""ORLANDO PICKLIST"";""TAMPA PICKLIST"";""JAX PICKLIST"";""NAPLES PICKLIST"";""MIAMI PICKLIST""})"
    With Selection.Font
        .Name = "Calibri"
        .Size = 24
    End With
    With Selection
        .HorizontalAlignment = xlGeneral
    End With
End Sub

這是一些有趣的注釋，我假設你有一個數組公式。 我用Ctrl + Shift + Enter輸入你的公式。 宏也記錄了它並將其翻譯為FormulaArray 。 如果我剛剛輸入公式，那么它將是FormulaR1C1 ，它是您選擇的部分的相對公式。