Question

我正在尝试使用VBA运行公式。我最终的目标是让它根据所选的一批单元格单击运行多个公式。关于我正在使用这些公式的一些背景。我正在使用公式自动生成基于预填充字段的工作范围。举个例子：

Circuit ID        scope                data1    data2   data3  data4
123                                     a        b       c      d
234                                     f        g       h      j

我想突出显示电路ID，并在相对于所选电路ID的范围内填写公式。这就是我到目前为止......我使用的是宏录像机而且它不想工作。

Sub Formulas()
'
' Formulas Macro
'

'

    Range("E2").Select
    ActiveCell.Formula = "="•     Customer name: ""&RC[29]&"""&chr(10)&"•     Customer Bus Org: ""&RC[30]&"""&chr(10)&"•     Internal Circuit ID: ""&RC[2]&"""&chr(10)&"•     Customer prem address: ""&RC[12]&"" ""&RC[13]&"" ""&RC[14]&"", ""&RC[15]&"", ""&RC[16]&"", ""&RC[17]&"""&chr(10)&"•     Customer demarc: ""&RC[18]&"" ""&RC[20]&"", ""&RC[19]&"" ""&RC[21]&"""&chr(10)&"•     MRR: ""&RC[68]&"""&chr(10)&"•     Current Off Net MRC: $""&RC[10]&"""&chr(10)&"•   "& _
        " Percent: ""&RC[89]&"""&chr(10)&"•     Bandwidth: ""&RC[6]&"" ( ""&RC[7]&""Mb )"&chr(10)&"•     Customer term end date: ""&TEXT(RC[32],""mmm-dd-yyyy"")&"""&chr(10)&"•     New Vendor: ""&RC[106]&"""&chr(10)&"•     New MRC: $""&RC[102]&"""&chr(10)&"•     New NRC: $""&RC[103]&"""&chr(10)&"•     New Install Interval: ""&RC[105]&"""&chr(10)&"•     New Term: ""&RC[104]&"""&chr(10)&""&chr(10)&"Planner Notes:"&chr(10)&"This project is replacing the existing ""&RC[6]&"" ( "& _
        """Mb ) based solution from ( ""&RC[5]&"" ) with a new ""&RC[99]&"" ( ""&RC[100]&""Mb ) based solution from ( ""&RC[106]&"" ). "&chr(10)&""&chr(10)&"RFA # ""&RC[107]&"" install notes:"&chr(10)&"Please install ( ""&RC[31]&"" ) Ethernet ""&RC[99]&"" ( ""&RC[100]&""Mb  ) circuit with ( ""&RC[106]&"" ) from ( ""&RC[101]&"" )  to ( [Customer Prem] ""&RC[12]&"" ""&RC[13]&"" ""&RC[14]&"", ""&RC[15]&"", "& _
        "&"", ""&RC[17]&"" ).  This new circuit will be used to replace existing customer circuit ECCKT: ""&RC[1]&"", ""&RC[109]&"", ""&RC[110]&"", ICCKT: ""&RC[2]&"".  The customer prem address is ( ""&RC[12]&"" ""&RC[13]&"" ""&RC[14]&"", ""&RC[15]&"", ""&RC[16]&"", ""&RC[17]&"" ) and customer demarc is ( ""&RC[18]&"" ""&RC[20]&"", ""&RC[19]&"" ""&RC[21]&"" )."&chr(10)&""&chr(10)&""&chr(10)&"""""& _

End Sub

这是我的实际公式，我注意到录音机改变了很多东西 =＆＃34; - 客户名称：＆＃34;＆amp; AH2＆amp;＆＃34; - 客户巴士组织：＆＃34;＆amp; AI2＆amp;＆＃34; - 内部电路ID：＆＃34;＆amp; G2＆amp;＆＃34; - 客户预告地址：＆＃34;＆amp; Q2＆amp;＆＃34; ＆＃34;＆安培; R2＆安培;＆＃34; ＆＃34;＆amp; S2＆amp;＆＃34;，＆＃34;＆amp; T2＆amp;＆＃34;，＆＃34;＆amp; U2＆amp;＆＃34;，＆＃34;＆amp; V2＆amp;＆＃34 ; - 客户分界：＆＃34;＆amp; W2＆amp;＆＃34; ＆＃34;＆amp; Y2＆amp;＆＃34;，＆＃34;＆amp; X2＆amp;＆＃34; ＆＃34;＆安培; Z2＆安培;＆＃34; - MRR：＆＃34;＆amp; BU2＆amp;＆＃34; - 当前关闭净MRC：$＆＃34;＆amp; O2＆amp;＆＃34; - 保证金百分比：＆＃34;＆amp; CP2＆amp;＆＃34; - 带宽：＆＃34;＆amp; K2＆amp;＆＃34; （＆＃34;＆amp; L2＆amp;＆＃34; Mb） - 客户期限结束日期：＆＃34;＆amp; TEXT（AK2，＆＃34; mmm-dd-yyyy＆＃34;）＆amp;＆＃34; - 新供应商：＆＃34;＆amp; DG2＆amp;＆＃34; - 新的MRC：$＆＃34;＆amp; DC2＆amp;＆＃34; - 新NRC：$＆＃34;＆amp; DD2＆amp;＆＃34; - 新安装间隔：＆＃34;＆amp; DF2＆amp;＆＃34; - 新术语：＆＃34;＆amp; DE2＆amp;＆＃34;

规划师备注：

该项目正在取代现有的＆＃34;＆amp; K2＆amp;＆＃34; （＆＃34;＆amp; L2＆amp;＆＃34; Mb）基于来自（＆＃34;＆amp; J2＆amp;＆＃34;）的解决方案与新的＆＃34;＆amp; CZ2＆amp;＆＃34; （＆＃34;＆amp; DA2＆amp;＆＃34; Mb）基于来自（＆＃34;＆amp; DG2＆amp;＆＃34;）的解决方案。

RFA＃＆＃34;＆amp; DH2＆amp;＆＃34;安装说明：

请安装（＆＃34;＆amp; AJ2＆amp;＆＃34;）Ethernet＆＃34;＆amp; CZ2＆amp;＆＃34; （＆＃34;＆amp; DA2＆amp;＆＃34; Mb）电路（＆＃34;＆amp; DG2＆amp;＆＃34;）从（＆＃34;＆amp; DB2＆amp;＆＃34;）到（[Customer Prem]＆＃34;＆amp; Q2＆amp;＆＃34;＆＃ 34;＆安培; R2＆安培;＆＃34; ＆＃34;＆amp; S2＆amp;＆＃34;，＆＃34;＆amp; T2＆amp;＆＃34;，＆＃34;＆amp; U2＆amp;＆＃34;，＆＃34;＆amp; V2＆amp;＆＃34 ; ）。这个新电路将用于替换现有的客户电路ECCKT：＆＃34;＆amp; F2＆amp;＆＃34;，＆＃34;＆amp; DJ2＆amp;＆＃34;，＆＃34;＆amp; DK2＆amp;＆＃34;， ICCKT：＆＃34;＆amp; G2＆amp;＆＃34;。客户预告地址是（＆＃34;＆amp; Q2＆amp;＆＃34;＆＃34;＆amp; R2＆amp;＆＃34;＆＃34;＆amp; S2＆amp;＆＃34;，＆＃34;＆amp; T2＆amp;＆＃34;，＆＃34;＆amp; U2＆amp;＆＃34;，＆＃34;＆amp; V2＆amp;＆＃34; ）和客户分界是（＆＃34;＆amp; W2＆amp;＆＃34;＆＃34;＆amp; Y2＆amp;＆＃34;，＆＃34;＆安培; X2＆安培;＆＃34; ＆＃34;＆安培; Z2＆安培;＆＃34; ）。

＆＃34;

Answer 1

1）您需要使用FormulaR1C1，而不仅仅是Formula。

2）不要使用Select，而只是直接引用单元格，例如：

Range("E2").FormulaR1C1 = "=""Customer name: "" & RC[29]"

如果宏录像机搞砸了，那么就自己逐步建立配方。下一步将是：

Range("E2").FormulaR1C1 = "=""Customer name: "" & RC[29] & "" Customer Bus Org: "" & RC[30]"

等。等

3）我建议使用完全合格的参考文献：

Sub formulas()

    Dim ws As Excel.Worksheet

    Set ws = ThisWorkbook.Sheets("Test") ' change to name of your sheet

    With ws

        ' In production, you probably want to loop through the rows and insert the formula dynamically.     
        ' If so, insert loop here and reference the scope column cell dynamically instead of using range("E2")
        .Range("E2").FormulaR1C1 = "=""Customer name: "" & RC[29] & "" Customer Bus Org: "" & RC[30]"

    End With

End Sub

VBA基于活动单元运行（预制）公式

1 个答案: