GBKEE

¦^´_ 1# av8d

1. Sub Ex()
   
2.     Dim d As Object, i As Integer
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     L1C = Label1.Caption
   
5.     L2C = Label2.Caption
   
6.     L3C = Label3.Caption
   
7.     L4C = Label4.Caption
   
8.     TB1 = TextBox1.Value
   
9.     For i = 1 To 18
   
10.         d("GAS" & i) = Chr(64 + i)   '¨Ï¥Î¦r¤¸
    
11.         If Me.Controls("OptionButton" & i).Value = True Then
    
12.             Sheets("ÂIÀ\").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7) = Array(L1C, L2C, L3C, L4C, 1, d("GAS" & i), TB1)
    
13.         End If
    
14.     Next
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# av8d

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim d As Object, i As Integer
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     L1C = Label1.Caption
   
6.     L2C = Label2.Caption
   
7.     L3C = Label3.Caption
   
8.     L4C = Label4.Caption
   
9.     TB1 = TextBox1.Value
   
10.     For i = 1 To 18
    
11.         d("GAS" & i) = Sheet1.Cells(i, "A")  '¤£³W«h¤¤¤å¦b A1 - A18
    
12.         If Me.Controls("OptionButton" & i).Value = True Then
    
13.             Sheets("ÂIÀ\").Cells(Rows.Count, "A").End(3)(2, 1).Resize(1, 7) = Array(L1C, L2C, L3C, L4C, 1, d("GAS" & i), TB1)
    
14.         End If
    
15.     Next
    
16. End Sub

½Æ»s¥N½X