ML089

¦^´_ 1# Scott090

1. Option Base 1
   
2. Option Explicit
   
3. 
   
4. Sub Test1()
   
5. 
   
6. '©w¸qÅܼÆ
   
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.     'ÅܼƦWºÙ°}¦C,   »¡©ú: ¦WºÙ¦b°}¦C¤¤ªº¦ì¸m¬O·|Åܪº
    
14.     ar = Array("Qref", "kWref", "COPref", "Qev_ref", "Qcd_ref", "Tchws", "Tchwr", "Tcws", "Tcwr") ', "a0", "a1", "a2", "a3", "a4", "a5")
    
15. 
    
16.     '§âÅܼƦWºÙ¦b°}¦C¤¤ªº¦ì¸m³]µ¹ÅܼÆ
    
17. 
    
18.     '(¦p¦ó¼gVBA¥i¥H±o¨ì´Á±æµ²ªG)'?
    
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

½Æ»s¥N½X