单元格区域数值除以10000的代码

hcy1185 · 发表于 2012-2-4 16:20

以下代码是把从工作簿取值得来的数值,除以10000的代码,请高手指教!谢谢!!!
Worksheets("概算").[f4:f1000].Value = Worksheets("概算").[f4:f1000] / 10000

fkeih_007 · 发表于 2012-2-4 16:45

试试遍历表格吧。
For Each Rng In Worksheets("概算").[f4:f1000]
Rng.Value=Rng/10000
Next

hcy1185 · 发表于 2012-2-4 16:49

fkeih_007 发表于 2012-2-4 16:45
试试遍历表格吧。
For Each Rng In Worksheets("概算").[f4:f1000]
Rng.Value=Rng/10000

Rng.Value = Rng / 10000
类型不匹配,
请指教!

上清宫主 · 发表于 2012-2-4 16:49

Worksheets("概算").[f4:f1000].Value = Worksheets("概算").[f4:f1000 / 10000]

好奇心 · 发表于 2012-2-4 16:52

可以这样：
Worksheets("概算").[f4:f1000].Value = Worksheets("概算").[f4:f1000 / 10000]

hcy1185 · 发表于 2012-2-4 17:06

谢谢上清宫主老师和好奇心老师!代码成功!

aman1516 · 发表于 2019-10-16 20:03

[ ]和Evaluate()在单元格区域运算中的妙用
http://club.excelhome.net/thread-1124380-1-1.html
这个贴子有详细的说明及示例，或许有更深入的学习与理解。

		自动登录	找回密码
密码			免费注册

[已解决] 单元格区域数值除以10000的代码