当前位置：首页 - 正文

vb解释说明

发布网友发布时间：2024-10-21 04:32

共1个回答

热心网友时间：2024-11-13 10:09

Private Sub Worksheet_Change(ByVal Target As Range)'表发生变化事件，参数Target是一个表格范围
On Error Resume Next'本过程那行出错，就执行下一行
Dim myRange As Range, k As Range'myRange、k都是表格范围
Set myRange = Range("gong9")'myRange范围具体指“gong9”区域
For Each k In myRange'对myRange其余内每一单元格循环：
If IsNumeric(k) And k <> Fix(k) Then k.Value = Round(k.Value, 0)'如果该单元格内容是数值，而且该数值的整数部分不等于该数值（也就是说不是整数），那么四舍五入取整仍存入该单元格
Next'下一个单元格
End Sub'过程结束

总体来看，就是将选定的范围内的非整数四舍五入取整。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

vb解释说明

最新推荐

猜你喜欢

热门推荐