使用 VBA 将多个公式放在一个单元格中
Using VBA to place multiple formulas in one cell
我正在开发一个宏来将多个公式放在一个单元格中。在这种情况下,它的 3 个彭博公式合并到一个单元格中。该公式在手动复制或输入时在 Excel 中有效,但在 VBA 模块中输入时无效,它会产生错误(编译错误:预期:语句结束)并突出显示 "rtg_mdy_sen_unsecured_debt" .我认为问题出在公式中使用引号,但我找不到有关如何解决它的任何信息。
适用于 Excel 的公式(手动输入或复制到单元格时)如下:
=BDP($O4,"rtg_mdy_sen_unsecured_debt")&"/"&BDP($O4,"rtg_sp_lt_lc_issuer_credit")&"/"&BDP($O4,"rtg_fitch_sen_unsecured")
尝试以下格式时,它在 VBA 中不起作用:
Cells(4, 21).Value = "=BDP($O4,"rtg_mdy_sen_unsecured_debt")&"/"&BDP($O4,"rtg_sp_lt_lc_issuer_credit")&"/"&BDP($O4,"rtg_fitch_sen_unsecured")"
更简单的 Bloomberg 公式工作得很好:($O4 引用包含 "BA Equity" 的单元格。Q2 包含 "industry_sector")
Cells(4, 17).Value = "=BDP(O4,Q2)"
理想的最终状态是 Cells(4, 21) 将显示三大评级机构对波音的信用评级,如下所示:A2/A/A
创建包含 "
个字符的 VBA 字符串时,您必须用另一个 "
分隔它们
这将适用于 poseted 字符串
Cells(4, 21).Value = _
"=BDP($O4,""rtg_mdy_sen_unsecured_debt"")&""/""&BDP($O4,""rtg_sp_lt_lc_issuer_credit"")&""/""&BDP($O4,""rtg_fitch_sen_unsecured"")"
我正在开发一个宏来将多个公式放在一个单元格中。在这种情况下,它的 3 个彭博公式合并到一个单元格中。该公式在手动复制或输入时在 Excel 中有效,但在 VBA 模块中输入时无效,它会产生错误(编译错误:预期:语句结束)并突出显示 "rtg_mdy_sen_unsecured_debt" .我认为问题出在公式中使用引号,但我找不到有关如何解决它的任何信息。
适用于 Excel 的公式(手动输入或复制到单元格时)如下:
=BDP($O4,"rtg_mdy_sen_unsecured_debt")&"/"&BDP($O4,"rtg_sp_lt_lc_issuer_credit")&"/"&BDP($O4,"rtg_fitch_sen_unsecured")
尝试以下格式时,它在 VBA 中不起作用:
Cells(4, 21).Value = "=BDP($O4,"rtg_mdy_sen_unsecured_debt")&"/"&BDP($O4,"rtg_sp_lt_lc_issuer_credit")&"/"&BDP($O4,"rtg_fitch_sen_unsecured")"
更简单的 Bloomberg 公式工作得很好:($O4 引用包含 "BA Equity" 的单元格。Q2 包含 "industry_sector")
Cells(4, 17).Value = "=BDP(O4,Q2)"
理想的最终状态是 Cells(4, 21) 将显示三大评级机构对波音的信用评级,如下所示:A2/A/A
创建包含 "
个字符的 VBA 字符串时,您必须用另一个 "
这将适用于 poseted 字符串
Cells(4, 21).Value = _
"=BDP($O4,""rtg_mdy_sen_unsecured_debt"")&""/""&BDP($O4,""rtg_sp_lt_lc_issuer_credit"")&""/""&BDP($O4,""rtg_fitch_sen_unsecured"")"