ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð±Ð¥ý¶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

¦^´_ 1# yangjie
  1. '¥i¦³«ü¥O ¨Ï´å¼Ð©Îµe­±°±¦buserform1
  2. 'UserForm2.Hide
  3. Private Sub ListBox1_Click()
  4. '±j¨î¦³ListBox1.Click¤§µo¥Í¤~¯àÄ~Äò
  5.     Call UserForm2
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD