[已解决]Target.Address问题

张雄友

触发事件中的Target.Address问题。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-8-22 23:56

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim lMoney As Long
   
3.     If Target.Count > 1 Then Exit Sub
   
4.     If Target.Column <> 2 Then Exit Sub
   
5.     If Len(Target.Value) = 0 Then Exit Sub
   
6.     If Not VBA.IsNumeric(Target.Value) Then Exit Sub
   
7.    
   
8.     lMoney = Target.Value
   
9.     Application.EnableEvents = False
   
10.     Application.ScreenUpdating = False
    
11.     lMoney = lMoney
    
12.     Target.Offset(0, 1) = Int((lMoney / 100))    '计算100元
    
13.     Target.Offset(0, 2) = Int((lMoney - Target.Offset(0, 1) * 100) / 50)    '计算50元
    
14.     Target.Offset(0, 3) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50) / 20)    '计算20元
    
15.     Target.Offset(0, 4) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20) / 10)    '计算10元
    
16.     Target.Offset(0, 5) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20 - Target.Offset(0, 4) * 10) / 5)    '计算5元
    
17.     Target.Offset(0, 6) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20 - Target.Offset(0, 4) * 10 - Target.Offset(0, 5) * 5) / 2)    '计算2元
    
18.     Target.Offset(0, 7) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20 - Target.Offset(0, 4) * 10 - Target.Offset(0, 5) * 5 - Target.Offset(0, 6) * 2))    '计算1元
    
19.     Application.ScreenUpdating = True
    
20.     Application.EnableEvents = True
    
21. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim lMoney As Long
   
3.     If Target.Count > 1 Then Exit Sub
   
4.     If Target.Column <> 2 Then Exit Sub
   
5.     If Len(Target.Value) = 0 Then Exit Sub
   
6.     If Not VBA.IsNumeric(Target.Value) Then Exit Sub
   
7.    
   
8.     lMoney = Target.Value
   
9.     Application.EnableEvents = False
   
10.     Application.ScreenUpdating = False
    
11.     lMoney = lMoney
    
12.     Target.Offset(0, 1) = Int((lMoney / 100))    '计算100元
    
13.     Target.Offset(0, 2) = Int((lMoney - Target.Offset(0, 1) * 100) / 50)    '计算50元
    
14.     Target.Offset(0, 3) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50) / 20)    '计算20元
    
15.     Target.Offset(0, 4) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20) / 10)    '计算10元
    
16.     Target.Offset(0, 5) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20 - Target.Offset(0, 4) * 10) / 5)    '计算5元
    
17.     Target.Offset(0, 6) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20 - Target.Offset(0, 4) * 10 - Target.Offset(0, 5) * 5) / 2)    '计算2元
    
18.     Target.Offset(0, 7) = Int((lMoney - Target.Offset(0, 1) * 100 - Target.Offset(0, 2) * 50 - Target.Offset(0, 3) * 20 - Target.Offset(0, 4) * 10 - Target.Offset(0, 5) * 5 - Target.Offset(0, 6) * 2))    '计算1元
    
19.     Application.ScreenUpdating = True
    
20.     Application.EnableEvents = True
    
21. End Sub

复制代码

hwc2ycy

用SELECTCHANGE不太好。应该用CHANGE事件。
另外多用变量参与计算，不要用单元格里的值进行运算。