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

dou10801

如何將去重的ARR資料轉入B欄的驗證清單中,感恩.

Andy2483

回復 1# dou10801


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

下載 (24.32 KB)

2022-12-19 15:49

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

Andy2483

回復 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

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

Andy2483

回復 4# dou10801


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

singo1232001

回復 5# Andy2483


1.字典本身是物件

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

3.這兩個陣列可直接取用
   但與一般的陣列不同
   無法直接修改(可讀不可改)
  
   要修改一樣得從字典物件去修
   或者
   如前幾樓的方式 先把資料匯入新的arr陣列 改用arr修改處理資料  


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

Andy2483

回復 6# singo1232001


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

請前輩再指導,謝謝

Andy2483

回復 6# singo1232001


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

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

准提部林

Formula1:=Join(Y.keys, ",")
本身即是陣列, 不須再轉給其它陣列變數

dou10801

感謝各位前輩指導,如何將Y.KEYS作排序,謝謝.