Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d10:e309")) Is Nothing Then
On Error GoTo bm_Safe_Exit
Application.EnableEvents = False
With Range("d10:e309")
Select Case .Value2
Case 0
'do nothing
Case 1
.Value = 0.01
Case 5
.Value = 0.005
End Select
End With
End If
bm_Safe_Exit:
Application.EnableEvents = True
End Sub
我希望代码在输入到单元格时使用1和5作为快捷方式,以便在分别输入为.01和.005的单元格中自动替换
1条答案
按热度按时间8tntrjer1#
Range("d10:e309").Value2
将是一个数组。将数组与值进行比较是无效的。其次,如果多个单元格被更改(例如通过复制粘贴),Target.Value
也可能是一个数组。它还可能包括您感兴趣范围之外的单元格