[µo°Ý] ¨Ï°±¯d¥B±j¨î¦³ListBox1.Click¤§µo¥Í¤~¯àÄ~Äò«áÄò?

yangjie

½Ð±Ð¥ý¶i­Ì
¦bªí³æuserform1¤¤
sub test
For i = 2 To row1
            If Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 4) = aam Then
                With Sheets("¾Ç¥Í¸ê®Æ")
                    ListBox1.Clear
                    j1 = 0
                    For j = 2 To row1
                        If .Cells(j, 4) Like aam & "*" Then
                            j1 = j1 + 1
                            ListBox1.AddItem
                                a = ListBox1.ListCount - 1
                                ListBox1.List(a, 0) = .Cells(j, 1)
                                ListBox1.List(a, 1) = .Cells(j, 2)
                                ListBox1.List(a, 2) = .Cells(j, 4)
                        End If
                    Next
                End With
          ????¥i¦³«ü¥O ¨Ï´å¼Ð©Îµe­±°±¦buserform1
                  ±j¨î¦³ListBox1.Click¤§µo¥Í¤~¯àÄ~Äòcall userform2
         call userform2
next
end sub

ÁÂÁ¨ó§U