抓取篩選條件的值匯入listbox - VB 與 VB.Net - 麻辣家族討論版版

麻辣家族討論版版 » VB 與 VB.Net » 抓取篩選條件的值匯入listbox

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

抓取篩選條件的值匯入listbox

中學生 Rank: 2

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

10^# 跳轉到 »

發表於 2021-7-9 08:38 | 只看該作者

本帖最後由 wang077 於 2021-7-9 08:40 編輯

回復 8# s3526369
大大，剛剛看了一下
它好像會抓到重複值耶
重複.JPG

重複.JPG

中學生 Rank: 2

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

9^#

發表於 2021-7-9 08:32 | 只看該作者

回復 8# s3526369
有了，感謝大神幫助
另外我想請教一下
如果我要抓取的格式是日期
如果按照這樣抓，好像抓不到格式耶

　暱稱: 大榮

中學生 Rank: 2

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

8^#

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

本帖最後由 s3526369 於 2021-7-9 08:17 編輯

回復 7# wang077 Dim crr
Dim i As Long
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
      .Activate
For Each a In .Range("A2", .[a2].End(xlDown))  '把[a2]改成[a1000]或者是[a2000] 格數可以自行設定
D(a.Value) = ""
Next
End With
crr = D.keys
'================================================================排序
For i = 0 To UBound(crr) - 1
   k = i
   For j = i + 1 To UBound(crr)
         If crr(k) > crr(j) Then k = j '升序排列用">"，降序排列用"<"
   Next
   If k > i Then
      X = crr(i)
      crr(i) = crr(k)
      crr(k) = X
   End If
Next

ComboBox1.List = crr

中學生 Rank: 2

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

7^#

發表於 2021-7-8 09:36 | 只看該作者

回復 6# s3526369

如果像這樣，F那欄空白幾格後，下面的抓不到了
範例檔案已寄到你的mail

　暱稱: 大榮

中學生 Rank: 2

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

6^#

發表於 2021-7-8 08:59 | 只看該作者

回復 5# wang077
不用客氣有什麼問題可以再問

中學生 Rank: 2

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

5^#

發表於 2021-7-8 08:49 | 只看該作者

回復 4# s3526369
感謝大大，解決我的疑惑

　暱稱: 大榮

中學生 Rank: 2

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

4^#

發表於 2021-7-8 08:18 | 只看該作者

本帖最後由 s3526369 於 2021-7-8 08:20 編輯

回復 3# wang077

Dim crr
Dim i As Long
Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
.Activate
For Each a In .Range(.[a2], .[a2].End(xlDown))
D(a.Value) = ""
Next
End With
crr = D.keys
'================================================================排序
For i = 0 To UBound(crr) - 1
k = i
For j = i + 1 To UBound(crr)
If crr(k) > crr(j) Then k = j '升序排列用">"，降序排列用"<"
Next
If k > i Then
X = crr(i)
crr(i) = crr(k)
crr(k) = X
End If
Next
ComboBox1.List = crr

複製代碼

中學生 Rank: 2

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

3^#

發表於 2021-7-7 17:27 | 只看該作者

回復 2# s3526369
感謝幫忙，有辦法讓它從小到大排序嗎

　暱稱: 大榮

中學生 Rank: 2

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

2^#

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

本帖最後由 s3526369 於 2021-7-7 16:46 編輯

回復 1# wang077

Set D = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
.Activate
For Each a In .Range(.[a2], .[a2].End(xlDown))
D(a.Value) = ""
Next
End With
ComboBox1.List = D.keys

複製代碼

我這個是用下式選單
你可以寄檔案給我幫你看
[email protected]

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。

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