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

由记录 it

​

​

你会得到这样的东西：

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