傲世炎神慕容灵:如何在excel中进位?

来源:百度文库 编辑:高校问答 时间:2024/04/28 21:53:05
逢十向前一个单元格进位,每个单元格只保留一位。

使用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而且不是第一列的时候就可以看到效果了