¦³¸Õ¹L³o¼Ë¼g
If IsNumeric(TextBox6.Text) Then
Dim num As Integer
num = TextBox6.Text
Else
If Not IsNumeric(TextBox6.Text) Then
MsgBox "Äæ¦ì¿é¤J¥²¶·¬°¼ÆÈ"
End If
End If
Set y = Sheets("CNC¦W³æ(All1)")
Select Case num
Case num
ComboBox1.Value = y.Range("B2", y.[B2].End(xlDown)).Value
-------------------------------------------------------------------------
¸£³U¹ê¦b¦³ÂI¥´µ²¡A³o¼Ë¼gªk¦³°ÝÃD¶Ü?
«ô°U¦U¦ì¤j¤j«üÂI~~~