一段简单的excel vba代码

jb_008

1. Public ingI As Integer
   
2. Public ingRow As Integer
   
3. Public ingColumn As Integer
   
4. Public strAddress As String
   
5. 
   
6. 
   
7. '将以下代码复制到"ThisWorkbook"模块里：
   
8. Private Sub Workbook_Open()
   
9. ingRow = -1
   
10. ingColumn = -1
    
11. Application.MoveAfterReturn = False
    
12. End Sub
    
13. 
    
14. 
    
15. '将以下代码复制到要使用的工作表（如"Sheet1"）模块里：
    
16. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
17. If strAddress <> "" Then
    
18. If Range(strAddress).Count > 1 Then
    
19. Exit Sub
    
20. End If
    
21. If Range(strAddress).Value = "" And Target.Count = 1 Then
    
22. Target.Value = "A"
    
23. Application.MoveAfterReturn = True
    
24. Application.MoveAfterReturnDirection = xlDown
    
25. strAddress = Target.Address
    
26. ingRow = Target.Row
    
27. ingColumn = Target.Column
    
28. ingI = 1
    
29. Exit Sub
    
30. End If
    
31. End If
    
32. 
    
33. If Target.Count > 1 Then
    
34. Exit Sub
    
35. End If
    
36. 
    
37. If ingI = 1 And ingRow = Target.Row - 1 And ingColumn = Target.Column And strAddress <> Target.Address Then
    
38. Target.Value = "p"
    
39. ingI = ingI + 1
    
40. Application.MoveAfterReturn = True
    
41. Application.MoveAfterReturnDirection = xlDown
    
42. ElseIf ingI = 2 And ingRow = Target.Row - 2 And ingColumn = Target.Column And strAddress <> Target.Address Then
    
43. Target.Value = "9"
    
44. Application.MoveAfterReturn = False
    
45. Else
    
46. If Application.MoveAfterReturn = True And Target.Count = 1 Then
    
47. Range(strAddress).Offset(ingI - 1, 0).Select
    
48. Exit Sub
    
49. End If
    
50. Target.Value = "A"
    
51. Application.MoveAfterReturn = True
    
52. Application.MoveAfterReturnDirection = xlDown
    
53. strAddress = Target.Address
    
54. ingRow = Target.Row
    
55. ingColumn = Target.Column
    
56. ingI = 1
    
57. End If
    
58. End Sub
    
59. 
    

复制代码

2288liu

这是什么东西