VBA小白，求助VBA计算代码

mysycf · 发表于 2018-6-9 15:49

VBA小白，求助VBA单元格计算代码

lsc900707 · 发表于 2018-6-9 16:49

你不是有公式版吗？简单的办法就是录制宏，然后再慢慢研究修改。当你的代码够精简的时候，你的vba水平也就提高了。

sancoz · 发表于 2018-6-9 17:29

直接公式就能做的东西就不用VBA啦。。在你原有公式那加个IF来判断一下就好了

朱荣兴 · 发表于 2018-6-12 08:50

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2018-6-12 08:50

提示: 作者被禁止或删除内容自动屏蔽

mysycf · 发表于 2018-6-15 15:01

朱荣兴发表于 2018-6-12 08:50
Sub 计算()
arr = ActiveSheet.[a1].CurrentRegion
For i = 2 To UBound(arr)

多谢！请问If arr(i, 2) >= 22 Then 这个22，如果要指定单在某一个元格输入怎么修改？

mysycf · 发表于 2018-6-15 15:12

朱荣兴发表于 2018-6-12 08:50
Sub 计算()
arr = ActiveSheet.[a1].CurrentRegion
For i = 2 To UBound(arr)

If arr(i, 2) >= 22 Then 打个比方，只要每月在R1单元格修改输入20或21或22，执行运算，就不用打开VBA取修改了。

朱荣兴 · 发表于 2018-6-15 15:39

提示: 作者被禁止或删除内容自动屏蔽

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-12 08:50 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-12 08:50 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-15 15:39 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] VBA小白，求助VBA计算代码