解释vba代码

yewei113

各位能否给我注释一下这个代码呀，我要用到我的实际工作中，需要该哪些东西呢

1. Sub 查找单位部门()
   
2. Dim Down
   
3. Down = MsgBox("是否查找单位部门！" & vbCrLf & " 是否执行？", vbQuestion + vbYesNo, "操作提示")
   
4. If Down = vbNo Then
   
5. Exit Sub
   
6. End If
   
7. Dim DQsheet
   
8. Dim yhfilebook
   
9. Dim MySTR
   
10. Dim i As Worksheet
    
11. ' On Error Resume Next
    
12. hh = ThisWorkbook.Name
    
13. DQsheet = ActiveSheet.Name
    
14. Workbooks.Open (ThisWorkbook.Path & "\部门.xls")
    
15. For Each i In Workbooks("部门.xls").Worksheets
    
16. MySTR = i.Name
    
17. For k = 2 To i.Cells(Rows.Count, 2).End(xlUp).Row
    
18. For j = 3 To Workbooks(hh).Sheets(DQsheet).Cells(Rows.Count, 2).End(xlUp).Row Step 2
    
19. If i.Range("A" & k) = Workbooks(hh).Sheets(DQsheet).Range("B" & j) Then
    
20. Workbooks(hh).Sheets(DQsheet).Range("E" & j & "：E" & j + 1) = MySTR
    
21. GoTo 100
    
22. End If
    
23. Next j
    
24. 100:
    
25. Next k
    
26. Next
    
27. Workbooks("部门.xls").Close 0
    
28. MsgBox "完成"
    
29. End Sub
    

复制代码

爱疯

http://www.excelpx.com/thread-164338-1-1.html
解释器，可以用，可能不够好，还没发现好的。
另外，VBA问题最好发到VBA版，利于快速解答，也便于统一管理。

liuts

解释器要看下

爱疯

http://club.excelhome.net/thread-547868-1-1.html

搜的，最后一个版本的比上1个更好些

yewei113

我是用这个看的，还是看不太明白，就发上来叫大家给我看看，人工注释一下