使用道具 举报
好东西!
我正起步呢
谢谢楼主,辛苦了
Dim A As IntegerDim B As Integer
A = ActiveCell.ValueB = InputBox("请输入数字", "叶美香")Range("AC100").Value = A + B
End Sub
A = ActiveCell.ValueB = InputBox("请输入数字", "叶子")Range("AC100").Value = A + B
End Sub有MSGBOX方式能体现计算结果吗?要怎么做?
真的不错!!!
好东西,谢分享!
thanks
楼主辛苦了,谢谢分享!!!
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )
GMT+8, 2024-4-27 12:51 , Processed in 0.295156 second(s), 6 queries , Gzip On, Yac On.
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.