点击按钮，让人名后面的数字加一

ydl987530

目的就是我在E列输入6个人名，然后点击箭头，可以在A列中相对应的人名后面的B列的数字加1或者减1
求大神帮忙解决一下，万分感激

Datous

加几句代码，每次控件都失去焦点

1. Private strName$
   
2. 
   
3. Sub ach(blnMode As Boolean, dblIncreDecre As Double)
   
4.     Dim rngBlg As Range, rngFind As Range
   
5.     strName = ActiveCell.Address
   
6.     Set rngBlg = Excel.Intersect(ActiveCell, Range("E1").End(xlDown).CurrentRegion)
   
7.     If Not rngBlg Is Nothing Then
   
8.         Set rngFind = Columns("A:A").Find(Range(strName).Value)
   
9.         If Not rngFind Is Nothing Then
   
10.             rngFind.Offset(0, 1).Value = rngFind.Offset(0, 1).Value + IIf(blnMode, 1, -1) * dblIncreDecre
    
11.         End If
    
12.     End If
    
13. End Sub
    
14. 
    
15. Private Sub SpinButton1_GotFocus()
    
16.     Range(strName).Activate
    
17. End Sub
    
18. 
    
19. Private Sub SpinButton1_SpinDown()
    
20.     Call ach(True, 1)
    
21. End Sub
    
22. 
    
23. Private Sub SpinButton1_SpinUp()
    
24.     Call ach(False, 1)
    
25. End Sub

复制代码

Datous

代码虽然很简单那，但老是被抓，上附件