¦p¦ó¨Ï¥Î¦h­ÓKeyCode~TextBox1.Activate¯à¨Ï¥Î°j°é¼¶¼g¶Ü?(¤w¸Ñ¨M¡A·PÁÂO¤j)

av8d

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    i = 49
    For j = 8 To 13
    If KeyCode = i Then
    ¤u§@ªí1.OLEObjects("TextBox" & j).Activate
    i = i + 1
    Next
    End If
End Sub


¥H¤W¸Ó¦p¦ó¼¶¼g¤~¯à¼g¥X°j°é?(¦p¤U)
    If KeyCode = 49 Then
    TextBox8.Activate
    End If

    If KeyCode = 50 Then
    TextBox9.Activate
    End If

    If KeyCode = 51 Then
    TextBox10.Activate
    End If

¥H¦¹Ãþ±À~

oobird

1. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.   i = KeyCode
   
3.   If i < 49 Or i > 57 Then Exit Sub
   
4.   Me.OLEObjects("TextBox" & i - 41).Activate
   
5. End Sub

½Æ»s¥N½X