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 ，它是您选择的部分的相对公式。