[µo°Ý] ¬d¸ß¸ê®Æ

jackysiu

®Ú¾ÚColumn Aªº­È¬d¸ß¸ê®Æ¡AColume A¬O¥Ñ1¶}©l½s¸¹¡A¦pTextBox6ªº­Èµ¥©óColumn Aªº­È±N¬ÛÃö¸ê®ÆÅã¥Ü¡A¦ý¥u¯à¦b½s¸¹1¦Ü9¦³®Ä¡A10¶}©l¤£¯àÅã¥Ü¬ÛÃö¸ê®Æ¡F
¬ÛÃöµ{¦¡½X¦p¤U¡A½Ð¦U«e½ú«ü¾É¡I

Private Sub CommandButton1_Click()
Dim i&
For i = Sheets("Sheet1").Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1).Value, 1) = TextBox6.Value Then
TextBox1.Text = Sheets("Sheet1").Cells(i, 2)
TextBox2.Text = Sheets("Sheet1").Cells(i, 3)
TextBox3.Text = Sheets("Sheet1").Cells(i, 4)
TextBox4.Text = Sheets("Sheet1").Cells(i, 5)
ComboBox1.Text = Sheets("Sheet1").Cells(i, 6)
ComboBox2.Text = Sheets("Sheet1").Cells(i, 7)
ComboBox3.Text = Sheets("Sheet1").Cells(i, 8)
TextBox5.Text = Sheets("Sheet1").Cells(i, 9)
ComboBox4.Text = Sheets("Sheet1").Cells(i, 10)
End If
Next
End Sub