Originariamente inviato da leomac
il simbolo "=" identifica appunto un uguaglianza tra due numeri o funzioni in generale, se inserisco
codice:
Range ("F13").Value = TextBox9.text
in teroria sarà vero anche il contrario
codice:
TextBox9.text = Range ("F13").Value
in pratica però mi rendo conto che non lo è anche perchè facendo partire la macro non compare nessun testo nella textbox.
Scusate ma ancora non riesco del tutto a "sintonizzarmi" sul linguaggio.
Ecco, forse è quello che ti manca.
Quello che dici non avrebbe alcun senso né logico né pratico.
L'assegnazione è e sarà sempre manuale, cioè avverrà se il codice lo richiede.
Dal momento in cui esegui l'assegnazione:
codice:
Range ("F13").Value = TextBox9.text
entrambi gli oggetti conterranno lo stesso valore.
Ma se successivamente cambi il valore in uno od in entrambi gli oggetti:
codice:
Range ("F13").Value = 5
TextBox9.text=23
Ogni oggetto conterrà il proprio (nuovo) valore.
Cosa completamente diversa è verificare se i due oggetti hanno lo stesso valore:
codice:
If Range ("F13").Value = TextBox9.text Then
MsgBox "Sono uguali."
Else
MsgBox "Sono diversi."
End If
Ma questi sono concetti universali di programmazione, indipendenti dal linguaggio.
Originariamente inviato da leomac
Nel senso se è possibile impartire alla textbox l'inserimento di soli numeri o un numero di caratteri fissi. Esmpio: impartisco alla textbox numero caratteri = 8 quindi se scrivo SETTEMBRE mi farà solo scrivere SETTEMBR.
1-Per il numero di caratteri devi impostare la proprietà MaxLength
2- Per filtrare il tipo di caratteri, puoi usare l'evento KeyPress , testando il parametro KeyAscii. In un modulo Bas inserisci questa routine:
codice:
Public Function ValidaCarattereNumerico (valAscii As Integer) As Integer
Rem Verifica che il carattere digitato sia un numero.
Rem Se non è un numero restituisce 0 (nessun carattere)
Rem I caratteri inferiori al codice 32 (tasti di sistema) devono sempre essere consentiti.
If valAscii < 32 Then
ValidaCarattereNumerico = valAscii
Exit Function
End If
ValidaCarattereNumerico = IIf(InStr(1, "1234567890", Chr$(valAscii)) > 0, valAscii, 0)
End Function
Poi nell'evento KeyPress del TextBox inserisci la chiamata:
codice:
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ValidaCarattereNumerico (KeyAscii)
End Sub