VBA 抓取ListBox中的內容

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

21^# 跳轉到 »

發表於 2021-7-7 16:11 | 顯示全部帖子

回復 51# wang077

您提供的程式有問題，程式本來Listbox 設定為change，現在你又同時設定為Listbox_DblClick
這樣不行會衝突，而且DblClick只能單選，好像有和之前的需求又不一樣，謝謝。

原程式架構: listbox 設為複選，選擇機號，機號暫存Ar數組-->用commandbutton 執行迴圈Ar去做複製動作

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

22^#

發表於 2021-7-7 16:39 | 顯示全部帖子

回復 53# wang077

可以提供檔案，讓我學習一下嗎? 謝謝

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

23^#

發表於 2021-7-8 13:31 | 顯示全部帖子

回復 56# wang077

我現在做了一個listbox來裝篩選條件，但是只能抓到一個來篩選
有辦法抓多個條件來篩選嗎

不好意思，可以解釋清楚一點嗎? listbox裝篩選後的結果嗎?
但只能抓一個來篩選??

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

24^#

發表於 2021-7-8 13:31 | 顯示全部帖子

回復 56# wang077

我現在做了一個listbox來裝篩選條件，但是只能抓到一個來篩選
有辦法抓多個條件來篩選嗎

不好意思，可以解釋清楚一點嗎? listbox裝篩選後的結果嗎?
但只能抓一個來篩選??
有辦法抓多個條件來篩選嗎??

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-4-29

25^#

發表於 2021-7-9 18:32 | 顯示全部帖子

回復 59# wang077

請測試看看，謝謝

Private Sub CommandButton5_Click()
Dim ar2, s%
s = 0: ReDim ar2(s)
With Sheets("總表").Range("a2:u" & [a65536].End(3).Row)
Sheets(1).AutoFilterMode = False
For i = 0 To ListBox2.ListCount - 1
      If ListBox2.Selected(i) = True Then
         ReDim Preserve ar2(s)
         ar2(s) = CStr(ListBox2.List(i))
         s = s + 1
      End If
Next
.AutoFilter Field:=7, Criteria1:=ar2, Operator:=xlFilterValues
End With
Set ar2 = Nothing
End Sub