黄馨瑶九几年出生?:如何在excel中进位?

来源:百度文库 编辑:神马品牌网 时间:2024/05/09 03:27:25
逢十向前一个单元格进位,每个单元格只保留一位。

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