返回列表下一主題上一主題發帖

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

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-7-10 18:04 | 只看該作者

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

請教先進們
在表單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

謝謝協助