Utilizzo del tastierino numerico tramite macro

Question

Ho un userfom con diverse textbox, per poter accelerare l’inserimento dei dati utilizzo 2 macro che mi permettono di utilizzare il punto (che mi viene trasformato in virgola) del tastierino numerico e l’uso del tasto invio per registrare i dati. Le macro sono: La prima per il punto

Private Sub TextBox2_Change()

If Application.International(xlDecimalSeparator) = "," Then

TextBox2.Text = Replace(TextBox2.Text, ".", ",")

End If

End Sub

La seconda mi permette di utilizzare il tasto invio

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 13 Then

CommandButton1_Click

End If

End Sub

Chiedo il vostro prezioso aiuto per unirle in un unico codice. Grazie.

Answer 1

Ciao Giudor,

prova così:

---

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    If KeyCode = 13 Then

        CommandButton1_Click

    ElseIf KeyCode = 110 Or KeyCode = 190 Then

        If Application.International(xlDecimalSeparator) = "," Then

            KeyCode = 188

        End If

    End If

End Sub

---

190 corrisponde al codice del punto sulla tastiera normale. Nel caso non ti serva togli

Or KeyCode = 190

David

Answer 2

Grazie a te per il riscontro e per la tua cortesia

;-)

David

Answer 3

Ancora una volta grazie David per la tua ammirevole disponibilità.

Answer 4

Direi di si. Non ho modo di provare ma i codici dei tasti sono standard.

Ti fornisco però il modo per verificare: nel tuo codice inserisci un debug.print KeyCode

---

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    Debug.Print KeyCode

    ...........

End sub

---

Poi sposta la tua applicazione sul notebook e utilizza i tasti del notebook. Nella finestra immediata di VBA (Control + G per visualizzarla nel caso non la vedessi) ti verrano stampati i codici relativi ai tasti premuti. In questo modo puoi verificare da solo se i codici corrispondono.

David

Answer 5

David sei stato veloce e perfetto come sempre. Ti ringrazio per il servizio che ci rendete e la possibilità che ci offrite di capire. Un' ultima cosa. se il codice venisse utilizzato su un notebook bisogna modificare qualcosa o andrebbe bene?