Textbox con stesso codice

Hai un problema con Excel?

Nuova discussione

Textbox con stesso codice
di Donatello (utente non iscritto) data: 08/01/2010
Avrei un altro quesito: vorrei poter associare a piu' textbox lo stesso codice che andrebbe scritto singolarmente nelle rispettive "private sub textbox_keypress"; in altre parole, invece di scrivere lo stesso identico codice in ciascuna "private sub textbox_keypress", si puo' scriverlo una sola volta, magari come macro, in modo da essere poi "visto" da un numero n textbox?
spero di essere stato chiaro...le tb sono in un form chiamato da un foglio excel.
grazie

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (KeyAscii < 48 Or KeyAscii > 58) And KeyAscii <> 8 And KeyAscii <> 46 Then
        KeyAscii = 0
    End If
    If KeyAscii = 46 Then
        If InStr(1, TextBox1.Text, ".") > 0 Then
            KeyAscii = 0
        End If
    End If
End Sub

di Mabolsie (utente non iscritto) data: 08/01/2010
Per far ciò devi creare un " modulo " in questo modulo crei un routine col nome che vuoi esempio,
sub xxxxx()
tuo codice
end sub
ad ogni evento della textbox metti il nome della routine del modulo xxxxx.
esempio:

sub textbox1_keypress
xxxxxx
end sub

sub textbox2_******
xxxxxx
end sub

ciao
di Donatello (utente non iscritto) data: 08/01/2010
La cosa che vorrei evitare e' proprio quella di dover dare un'istruzione ad ogni sub textbox_keypress, perche' ho un form con circa 200 textbox...!
quindi vorrei un modo per assegnare un'unica istruzione a diciamo 200 textbox_keypress, se esiste, a meno che non ci siano altri modi per far si che in una textbox si possano scrivere solo numeri e non lettere.
grazie comunque!
di Mabolsie (utente non iscritto) data: 08/01/2010
... ma le txt_kps eseguono tutte la stessa azione o ci sono 200 codici diversi ???

ciao
di Donatello (utente non iscritto) data: 09/01/2010
Si eseguono tutte lo stesso codice, senno' il discorso sarebbe inutile! e' un codice x consentire di scrivere solo numeri, con una sola virgola, e che rifiuta le lettere ed altri caratteri.
se ci fosse qualcos'altro da poter fare x scrivere solo numeri ad una tb, ben venga...
di Mabolsie (utente non iscritto) data: 09/01/2010
Per controllare che in una txt siano scritti solo numeri puoi usare anche la funzione " isnumeric "

ti posto una srtinga che mi ha mandato la mia amica patty.

ciao
If IsNumeric(TextBox1) = False Then 'se il valore non è un numero MsgBox "Inserire Numeri" 'in questa tex dobbiamo mettere solo numeri
di Donatello (utente non iscritto) data: 13/01/2010
Ti ringrazio, sembra comunque interessante...
ciao

Vuoi Approfondire?