VBA 抓取ListBox中的內容

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

51^# 跳轉到 »

發表於 2021-7-7 14:22 | 只看該作者

回復 50# samwang

彙整_0707.zip (117.42 KB)

新增資料夾.zip (407.42 KB)
麻煩大大了

samwang

大學生 Rank: 4

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

52^#

發表於 2021-7-7 16:11 | 只看該作者

回復 51# wang077

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

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

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

53^#

發表於 2021-7-7 16:28 | 只看該作者

回復 52# samwang
我後來直接在dbl_Click
下了Unload
再下show
把form重新show一次
就可以了
可以一次多選，選完2個機台後在listbox裡的空白處點兩下就好了

samwang

大學生 Rank: 4

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

54^#

發表於 2021-7-7 16:39 | 只看該作者

回復 53# wang077

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

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

55^#

發表於 2021-7-8 07:55 | 只看該作者

回復 54# samwang

彙整_0708.zip (469.76 KB)
感覺會有更好的辦法，只是目前我只做到這樣而已

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

56^#

發表於 2021-7-8 11:04 | 只看該作者

回復 54# samwang
大大，不好意思又來麻煩你了
我現在做了一個listbox來裝篩選條件，但是只能抓到一個來篩選
有辦法抓多個條件來篩選嗎

Private Sub CommandButton5_Click()
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Worksheets("總表").Range("$A$2:$T$2414").AutoFilter field:=7, Criteria1:="=" & ListBox2.List(i)
End If
Next
End Sub

複製代碼

彙整_0708.zip (464.45 KB)