请各位大侠帮忙详细解析以下代码

菜鸟0007

Private Sub CommandButton1_Click()
    Dim temp As Range
    Set temp = ActiveWindow.ActiveCell
        temp = ListBox1.List(ListBox1.ListIndex, 0)
        temp.Offset(0, 1) = ListBox1.List(ListBox1.ListIndex, 1)
        temp.Offset(0, 2) = ListBox1.List(ListBox1.ListIndex, 2)
        temp.Offset(0, 3) = ListBox1.List(ListBox1.ListIndex, 3)
    Set temp = Nothing
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim temp As Range
    Set temp = ActiveWindow.ActiveCell
'MsgBox ListBox1.List(ListBox1.ListIndex, 0)
'MsgBox ListBox1.List(ListBox1.ListIndex, 1)
        temp = ListBox1.List(ListBox1.ListIndex, 0)
        temp.Offset(0, 1) = ListBox1.List(ListBox1.ListIndex, 1)
        temp.Offset(0, 2) = ListBox1.List(ListBox1.ListIndex, 2)
        temp.Offset(0, 3) = ListBox1.List(ListBox1.ListIndex, 3)
    Set temp = Nothing
End Sub
Private Sub UserForm_Activate()
    Dim Arr0
    Dim MRow As Integer
   
     MRow = Sheet3.Range("b" & Rows.Count).End(xlUp).Row + 1
     Arr0 = Sheet3.Range("a2:d" & MRow)
     ListBox1.List = Arr0
End Sub

hehex

勉强做以下代码分析，VBA 的窗体，控件，按钮和代码是一体的，你单拿出一段代码来，别人只能猜测。
个人对ListBox 控件完全不熟，没用过，又没有附件例子，只能根据代码猜测。

1. Private Sub CommandButton1_Click()  '按钮CommandButton1 被单击左键时激活此事件过程
   
2. '很明显这段代码是按某按钮将List box 里显示的内容写入当前单元格所在的行
   
3.     Dim temp As Range                        ' 定义一个叫temp 的单元格区域对象            
   
4.     Set temp = ActiveWindow.ActiveCell     ' 将temp 设为当前激活窗口的激活单元格  
   
5.         temp = ListBox1.List(ListBox1.ListIndex, 0)  ' 将该单元格对象的值设为ListBox1 下拉控件的index 为0 的输入值
   
6.         temp.Offset(0, 1) = ListBox1.List(ListBox1.ListIndex, 1)'temp 右边一个单元格赋予Listbox1 上面的值
   
7.         temp.Offset(0, 2) = ListBox1.List(ListBox1.ListIndex, 2)
   
8.         temp.Offset(0, 3) = ListBox1.List(ListBox1.ListIndex, 3) '以上相同
   
9.     Set temp = Nothing  '清除内存
   
10. End Sub
    
11. Private Sub CommandButton2_Click() '鼠标点击此按钮后关闭当前窗体,类似点击退出按钮
    
12.      Unload Me
    
13. End Sub
    
14. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
15. '具体不逐条分析了，这个事件的作用是双击ListBox 控件将当前工作表激活单元格当前行右边的几个单元格内容在ListBox 相应控件的显示位置显示出来
    
16.     Dim temp As Range
    
17.     Set temp = ActiveWindow.ActiveCell
    
18. 'MsgBox ListBox1.List(ListBox1.ListIndex, 0)
    
19. 'MsgBox ListBox1.List(ListBox1.ListIndex, 1)
    
20.         temp = ListBox1.List(ListBox1.ListIndex, 0)
    
21.         temp.Offset(0, 1) = ListBox1.List(ListBox1.ListIndex, 1)
    
22.         temp.Offset(0, 2) = ListBox1.List(ListBox1.ListIndex, 2)
    
23.         temp.Offset(0, 3) = ListBox1.List(ListBox1.ListIndex, 3)
    
24.     Set temp = Nothing
    
25. End Sub
    
26. 
    
27. Private Sub UserForm_Activate()
    
28. '这是显示ListBox 控件的窗体被激活引发的事件
    
29.     Dim Arr0
    
30.     Dim MRow As Integer
    
31.    
    
32.      MRow = Sheet3.Range("b" & Rows.Count).End(xlUp).Row + 1 '取得Sheet3 工作表使用区域最后一行的行数
    
33.      Arr0 = Sheet3.Range("a2:d" & MRow) '将Sheet3 工作表a列 a2 单元格起 到d 列最后一行对应的单元格区域的内容导入Arr0 的数组中
    
34.      ListBox1.List = Arr0 '将Arr0 的内容读入控件的列表区域
    
35. End Sub
    
36. 
    

复制代码

菜鸟0007

hehex 发表于 2012-11-13 10:56
勉强做以下代码分析，VBA 的窗体，控件，按钮和代码是一体的，你单拿出一段代码来，别人只能猜测。
个人 ...

老师你好，谢谢你，能不能帮我做个编号自动加1的宏 比喻编号120007，单击保存按键后是120008。

hehex

菜鸟0007 发表于 2012-11-13 19:42
老师你好，谢谢你，能不能帮我做个编号自动加1的宏 比喻编号120007，单击保存按键后是120008。

你最好把附件带上，然后说明是在哪里加编号。