[發問] 使停留且強制有ListBox1.Click之發生才能繼續後續?

yangjie

請教先進們
在表單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
          ????可有指令 使游標或畫面停在userform1
                  強制有ListBox1.Click之發生才能繼續call userform2
         call userform2
next
end sub

謝謝協助

GBKEE

回復 1# yangjie

1. '可有指令 使游標或畫面停在userform1
   
2. 'UserForm2.Hide
   
3. Private Sub ListBox1_Click()
   
4. '強制有ListBox1.Click之發生才能繼續
   
5.     Call UserForm2
   
6. End Sub

複製代碼