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它将是您所选部分的相对公式.