- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 17# sppk22
¸Õ¸Õ¬Ý
UserForm26- Dim Rng As Range, xAr()
- Private Sub UserForm_Initialize()
- Dim i As Integer
- With ComboBox1
- .AddItem "20¡@©Ð¦a«Ø¦a¡]¤£§t«Øª«¡^"
- .AddItem "21¡@ªÅ¦a"
- .AddItem "22¡@¹A¦a"
- .AddItem "23¡@ªL¦a"
- .AddItem "24¡@¾i´Þ¦a"
- .AddItem "25¡@¤g¦a¤Î«Øª«¡]¦í¦v¥Î¡^"
- .AddItem "26¡@¤g¦a¤Î¼t©Ð"
- .AddItem "27¡@¤£§t¤g¦a¤§«Øª«¡]¦í¦v¥Î¡^"
- .AddItem "28¡@¤£§t¤g¦a¤§¼t©Ð"
- .AddItem "29¡@°ªº¸¤Ò²y³õ"
- .AddItem "2X¡@¨ä¥L¤£°Ê²£"
- .AddItem "2A¡@¤g¦a¤Î«Øª«¡]°Ó·~¥Î¡^"
- .AddItem "2B¡@¤£§t¤g¦a¤§«Øª«¡]°Ó·~¥Î¡^"
- End With
-
- ' xAr = Array("20¡@©Ð¦a«Ø¦a¡]¤£§t«Øª«¡^", "21¡@ªÅ¦a","22¡@¹A¦a",,,,,)
- ' xAr = Sheets("¸ê®Æ").Range("A1:A15").Value
- ' ComboBox1.List = xAr
-
-
- Set Rng = Cells(37, ActiveCell.Column).Resize(13) '
- Debug.Print Rng.Address
- ReDim xAr(1 To Rng.Count)
- For i = 1 To Rng.Count
- Set xAr(i) = Controls("TextBox" & i)
- Controls("TextBox" & i) = Rng(i).Text '¤u§@ªí¸ê®Æ¼g¨ì TextBox
- Next
- 'TextBox8 = [B37] '½Õ¾ã±q1¶}©l¹ïÀ³¨ì¤u§@ªí¤WªºÀx¦s®æ
- 'TextBox9 = [B38] '.....
-
-
- '*****©Î¬O«ü©wTextBox¦ì¸m¹ïÀ³¨ì¤u§@ªí¤WªºÀx¦s®æ
- 'i = 0
- 'For Each E In Array(5, 6, 9, 12, 1, 4, 2, 3)
- ' Set xAr(i) = Controls("TextBox" & E)
- ' Controls("TextBox" & E) = Rng(i + 1)
- 'Next
- '***************************************
- '
- End Sub
- Private Sub CommandButton1_Click() '½T©w ¸ê®Æ¼g¨ì¤u§@ªí¤W
- For i = 1 To Rng.Count
- Rng(i) = xAr(i).Text
- Next
- End Sub
- Private Sub ComboBox1_Change()
- TextBox9 = Left(ComboBox1, 2)
- End Sub
- Private Sub OptionButton1_Click()
- If OptionButton1 = True Then
- TextBox7 = Cells(3, Rng.Column).Value
- Else
- TextBox7 = ""
- End If
- End Sub
½Æ»s¥N½X |
|