excel中如何实现在指定区域中输入数值后自动除以某一个固定的数值。不用辅助列,用VBA
以下是我在网上找的答案,但是是指定整列的,如何指定某一区域?比如A1:A10PrivateSubWorksheet_Change(ByValTargetAsRange)O...
以下是我在网上找的答案,但是是指定整列的,如何指定某一区域?比如A1:A10
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Column = 1 Then .Value = .Value / 6.1279
End With
Next
Application.EnableEvents = True
End Sub 展开
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Column = 1 Then .Value = .Value / 6.1279
End With
Next
Application.EnableEvents = True
End Sub 展开
展开全部
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 10 Then
Target.Value = Target.Value / 6.1279
End If
Application.EnableEvents = True
End Sub
Application.EnableEvents = False
If Target.Column = 1 And Target.Row >= 1 And Target.Row <= 10 Then
Target.Value = Target.Value / 6.1279
End If
Application.EnableEvents = True
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |