帅呆的电脑桌 · 使用VBA从Excel复制/粘贴到Power ...· 2 周前 · |
还单身的消炎药 · Excel Open ...· 1 周前 · |
沉稳的紫菜汤 · QTableWidget 应用总结 - ...· 4 天前 · |
淡定的牛肉面 · 三维重建开源项目大汇总-CSDN博客· 1 月前 · |
不敢表白的香菇 · 【解决】Electron 引用JQuery ...· 1 年前 · |
正直的烈马 · 如何在Simulink中调用m文件?_百度知道· 1 年前 · |
坏坏的板栗 · 【 -Flutter自定义组件- ...· 1 年前 · |
腼腆的匕首 · php - Server Sent ...· 1 年前 · |
我试图在VBA中使用FormulaR1C1属性,但一直运行时出错1004。我的代码如下。
ActiveCell.FormulaR1C1 = "=R[0]C[-1] * (1 + =R" & cellcount & "C1)"
有什么想法吗?
从有限的可用信息来看,1004错误最可能的原因是使用了
ActiveCell
。我建议您尝试完全限定单元格,看看这是否可以修复错误。
例如:
Worksheets("Sheet1").cells(1,1).FormulaR1C1 = "=R[0]C[-1] * (1 + R" & cellcount & "C1)"
根据有限的可用信息再次猜测,看起来您将对几个单元格应用此方法。这最好通过遍历单元格的循环来完成。这可以在一个范围(可能由用户选择?)上使用
for each
语句来完成。或者根据需要通过
for
语句来指定值。我强烈建议您在设置循环之前先尝试完全限定单个单元格作为测试。
另一种通常有用的测试方法是在尝试将公式附加到单元格之前将其存储在字符串变量中。这个分解将为您的调试提供另一个步骤。
示例:
Dim formulaTest as string
formulaTest = "=R[0]C[-1] * (1 + R" & cellcount & "C1)"
Worksheets("Sheet1").cells(1,1).FormulaR1C1 = formulaTest
这样每一行都有一个断点,应该可以让你清楚地知道错误是在哪里出现的。
Copyright © 2013 - 2023 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号: 粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
扫码关注腾讯云开发者
领取腾讯云代金券
帅呆的电脑桌 · 使用VBA从Excel复制/粘贴到PowerPoint时的定位和大小调整问题_从excel复制粘贴到powerpoint时要调整图形的形状和定位吗? - 腾讯云开发者社区 - 腾讯云 2 周前 |
淡定的牛肉面 · 三维重建开源项目大汇总-CSDN博客 1 月前 |
不敢表白的香菇 · 【解决】Electron 引用JQuery 报错 Uncaught ReferenceError: $ is not defined_$ is not defined electron_暴走的猫的博客-CSDN博客 1 年前 |
正直的烈马 · 如何在Simulink中调用m文件?_百度知道 1 年前 |