¦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¦¹Ãþ±À~