请老师帮查看一下 已解决.

七之月

各位老师:我在学VBA,从网上找了个案例做成表格 但结果却是错的 请老师帮指出並修改,谢谢!

减法运算.rar (17.48 KB, 下载次数: 5)

2024-7-29 00:18 上传

点击文件名下载附件

ykcbf1100

这个算最简单的了，楼主想复杂了。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.7.29
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 3 To r
   
4.         Cells(i, 6) = Cells(i, 4) - Cells(i, 5)
   
5.     Next
   
6.     MsgBox "OK！"
   
7. End Sub
   

复制代码

七之月

ykcbf1100 发表于 2024-7-29 07:01
参与一下。。。

谢谢老师 主要是我找不出我的代码错在那里?只要运行程.答案全是25.

ykcbf1100

七之月 发表于 2024-7-29 10:55
谢谢老师 主要是我找不出我的代码错在那里?只要运行程.答案全是25.

改用我的方法就好了，简单。

半百

七之月 发表于 2024-7-29 10:55
谢谢老师 主要是我找不出我的代码错在那里?只要运行程.答案全是25.

是不是你设置了手动重算？

七之月

半百 发表于 2024-7-29 11:56
是不是你设置了手动重算？

果然如老师说的一样,改回自动重算就正确了,谢谢老师