[發問] 如何將ARR資料轉入B欄的驗證清單

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

2^#

發表於 2022-12-19 15:49 | 只看該作者

回復 1# dou10801

謝謝前輩發表此主題與範例
是這意思嗎?

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(arr, ",")

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

3^#

發表於 2022-12-19 16:40 | 只看該作者

回復 1# dou10801

以下是後學藉此題練習字典去除重複的心得與註解
Option Explicit
Sub 資料以字典去除重複轉為驗證清單()
Dim i&, Y, arr
'↑宣告變數:i是長整數,(Y,arr)是通用型變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y是字典
For i = 1 To [A65536].End(xlUp).Row
'↑設順迴圈!i從1到A欄有內容儲存格最後列號
Y(Trim(Cells(i, "A"))) = ""
'↑令迴圈儲存格的值去除頭尾的空白字元後當key,item是空字元,放入字典中
Next
arr = Application.Transpose(Application.Transpose(Y.KEYS))
'↑令arr是一維陣列!用Y字典的key轉置兩次的值放入這陣列中
With [工作表1!B:B].Validation
   .Delete
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(arr, ",")
    '因為Formula1:=後面要給一個","符號可分割的字串,所以JOIN() 就可以了
   'https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/join-function
End With
Set Y = Nothing
Erase arr
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

dou10801

中學生 Rank: 2

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 227
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2026-9-25

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2022-12-21 09:03 | 只看該作者

感謝兩位前輩指導.
TO:Andy2483=arr = Application.Transpose(Application.Transpose(Y.KEYS))
'↑令arr是一維陣列!用Y字典的key轉置兩次的值放入這陣列中
經測試 arr=Y.KEYS 即可.

杜小平

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

5^#

發表於 2022-12-21 10:19 | 只看該作者

回復 4# dou10801

謝謝前輩回復
太好了,又學到一個經驗,後學將字典與一維陣列搞混了!謝謝分享測試心得

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2022-12-21 11:01 | 只看該作者

本帖最後由 singo1232001 於 2022-12-21 11:15 編輯

回復 5# Andy2483

1.字典本身是物件

2.創建字典d後,字典本身會順便創建 d.keys  跟d.items 兩個一維陣列

3.這兩個陣列可直接取用
但與一般的陣列不同
無法直接修改(可讀不可改)

要修改一樣得從字典物件去修
或者
如前幾樓的方式先把資料匯入新的arr陣列改用arr修改處理資料

補充:在字典與陣列互相欠套的各種方式中  ( 物件包陣列物件包物件  陣列包物件  陣列包陣列)
      只要陣列在物件之下,皆不能修改只能讀取,所以只有第一次整組匯入的機會,一進去就不能再改
      只有陣列存在陣列下,才能修改子陣列
      例如:二維陣列ar(1,1) 或第二層陣列ar(1)(1)
      這兩種陣列也都可以叫二維陣列不容易區分實務上並沒有特別區分講法
      因為在維度的概念上,是一樣的 ,只有效率上會有些許差別,跟應用上有些取差別

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

7^#

發表於 2022-12-21 11:27 | 只看該作者

本帖最後由 Andy2483 於 2022-12-21 11:30 編輯

回復 6# singo1232001

謝謝前輩指導
後學感覺好幸運,能得到前輩的回覆指導
後學學到前輩指導的心得,用立體停車場比喻:
1.一般陣列是駕駛自己開進停車,自己取車開出 (Array)
2.字典像是自動立體停車場機器,將車輸送到立體停車格,機器取出車子
3.停車格s是陣列,車子是陣列值 (items)
4.輸送的機器s也是陣列 (keys)
5.自動立體停車場的車子要透過機器才能進出

請前輩再指導,謝謝

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: 厚臉皮的學生

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

8^#

發表於 2022-12-21 11:44 | 只看該作者

本帖最後由 Andy2483 於 2022-12-21 11:56 編輯

回復 6# singo1232001

前輩的補充知識包含很廣,有些後學還不會用,請前輩以後再提點
至於字典裡的陣列大小不能改,後學有學到先將字典裡放入一個夠用的空陣列,就可以變通使用
謝謝前輩再指導

補充心得:
字典可透過Add,Remove,RemoveAll做字典增減

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流