Excel单位格进位

来源：百度知道 编辑：UC知道 时间：2024/05/30 18:41:19
举个例子就是说：当A1≥10时，向B1进一位(也就是说逢十进一)．谢谢～～～

使用VBA宏
在工具->宏->Visual Basic编辑器 中sheet1的代码编写处粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value >= 10 And Target.Column > 1 Then
Sheet1.Cells(Target.Row, Target.Column - 1) = Int(Target.Value / 10) + Sheet1.Cells(Target.Row, Target.Column - 1)
Target.Value = Target.Value - Int(Target.Value / 10) * 10
End If
End Sub

在一个框中输入数字，当大于10而且不是第一列的时候就可以看到效果了