[發問] 變數設定

Scott090

請把陣列中的對應位置值設給變數，VBA如何做，謝謝

1. Option Base 1
   
2. Option Explicit
   
3. 
   
4. Sub Test()
   
5. 
   
6.     '定義變數
   
7.     Dim Qref%, kWref%, COPref%, Qev_ref%, Qcd_ref%, Tchws%, Tchwr%, Tcws%, Tcwr%
   
8.     Dim a0%, a1%, a2%, a3%, a4%, a5%
   
9.     Dim ar
   
10.    
    
11.     '變數名稱陣列,   說明: 名稱在陣列中的位置是會變的
    
12.     ar = Array("Qref", "kWref", "COPref", "Qev_ref", "Qcd_ref", "Tchws", "Tchwr", "Tcws", "Tcwr", _
    
13.                 "a0", "a1", "a2", "a3", "a4", "a5")
    
14.    
    
15.     '把變數名稱在陣列中的位置設給變數
    
16.    
    
17.     '(如何寫VBA可以得到期望結果)'?
    
18.     'Qref = 1
    
19.     'kWref = 2
    
20.     'COPref = 3
    
21.     'Qev_ref = 4
    
22.     'Qcd_ref = 5
    
23.    
    
24.     '   .
    
25.     '   .
    
26.     '   .
    
27.     'a5 = 15
    
28.    
    
29.    
    
30. End Sub

複製代碼

stillfish00

回復 1# Scott090
這樣?
Qref = Application.Match("Qref", ar, 0)
kWref = Application.Match("kWref", ar, 0)

Scott090

回復 2# stillfish00


    謝謝大大的解惑，答案正是所要的，非常感恩

再請教，
假如事先沒變數設定，是否能從名稱陣列中分離出 使成各個變數並賦于在陣列中的位置值?

stillfish00

回復 3# Scott090
沒辦法吧 , 除非全用code寫code?
是說你這樣變數的名稱放在Array有啥好處嗎，奇怪的用法。

Scott090

回復 4# stillfish00

非結構化性資料表欄位多，做計算的程式易失去可讀性而混亂；
例如:
       AR(i,j) 的 j 代表欄位，欄位多了 ，j 只是一個數字概念，沒有名詞意義；當然，數字用來做迴圈很重要
       Cells(i,"B").offset(,j) 一樣的意思

假如能用欄位名稱當變數 j， 則是：
     AR(i,欄位名稱)
     cells(i,"B").offset(,欄位名稱)

以上請教 大大  有沒有其他的解法

謝謝

ML089

回復 1# Scott090

1. Option Base 1
   
2. Option Explicit
   
3. 
   
4. Sub Test1()
   
5. 
   
6. '定義變數
   
7.     Dim Qref%, kWref%, COPref%, Qev_ref%, Qcd_ref%, Tchws%, Tchwr%, Tcws%, Tcwr%
   
8.     Dim a0%, a1%, a2%, a3%, a4%, a5%
   
9.     Dim ar, x
   
10.     Dim D As Object
    
11.     Set D = CreateObject("Scripting.Dictionary")
    
12. 
    
13.     '變數名稱陣列,   說明: 名稱在陣列中的位置是會變的
    
14.     ar = Array("Qref", "kWref", "COPref", "Qev_ref", "Qcd_ref", "Tchws", "Tchwr", "Tcws", "Tcwr") ', "a0", "a1", "a2", "a3", "a4", "a5")
    
15. 
    
16.     '把變數名稱在陣列中的位置設給變數
    
17. 
    
18.     '(如何寫VBA可以得到期望結果)'?
    
19.     'Qref = 1
    
20.     'kWref = 2
    
21.     'COPref = 3
    
22.     'Qev_ref = 4
    
23.     'Qcd_ref = 5
    
24. 
    
25.     '   .
    
26.     '   .
    
27.     '   .
    
28.     'a5 = 15
    
29.     For Each x In ar
    
30.         D(x) = Application.Match(x, ar, 0)
    
31.     Next
    
32. 
    
33.     [E1:F1].Resize(D.Count) = Application.Transpose(Array(D.keys, D.items))
    
34.    
    
35.     For Each x In D.keys
    
36.         Debug.Print x, D(x)
    
37.     Next
    
38. End Sub

複製代碼

stillfish00

回復 5# Scott090
處理資料欄位標題，如果需要 我也是採類似ML版主的做法
建立一個字典來對應 : 名稱 -> 欄號
這樣你就能像這樣去使用 : Cells(i,"B").offset(,D("Qref"))
不用宣告 Qref 變數

當然，通常資料欄位都是固定位置時，直接用Const定常數就好。

Scott090

回復 6# ML089


    謝謝大大的回應
抱歉，我沒把問題描述清楚

問題的目標是要 賦值 給 變數，不只是字串在陣列中的位置
例如：
          Qref =1，因為字串 "Qref" 在 陣列的位置 是 1
          Qev_ref = 4, 因為字串 "Qev_ref" 在陣列的位置是 4

Scott090

回復 7# stillfish00


之所以發想要以動態的方式處理，
    就是因為欄位很多且位置會變；直接用 Const 會拉得很長，資料位置變動時也不易更改

提議用 ML 版主的字典法 D("Qref") 應可行

測試後再報告

謝謝

GBKEE

回復 9# Scott090
試試看

1. Option Base 1
   
2. Option Explicit
   
3. Sub Test()
   
4.     '定義變數
   
5.     '  Dim Qref%, kWref%, COPref%, Qev_ref%, Qcd_ref%, Tchws%, Tchwr%, Tcws%, Tcwr%
   
6.     '  Dim a0%, a1%, a2%, a3%, a4%, a5%
   
7.     Dim ar, i As Integer
   
8.    
   
9.     '變數名稱陣列,   說明: 名稱在陣列中的位置是會變的
   
10.     ar = Array("Qref", "kWref", "COPref", "Qev_ref", "Qcd_ref", "Tchws", "Tchwr", "Tcws", "Tcwr", _
    
11.                 "_a0", "_a1", "_a2", "_a3", "_a4", "_a5")  '
    
12.     For i = 1 To UBound(ar)
    
13.         ActiveSheet.Names.Add ar(i), i     '在作用中工作表上定義名稱,給值
    
14.     Next
    
15.     MsgBox Cells(i, "B").Offset(, [Qref]).Address
    
16. End Sub

複製代碼