Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Controllo sulla TextBox se maiuscolo o minuscolo

Ultimo Aggiornamento: 05/06/2017 16:30
Post: 60
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
28/05/2017 17:16

Gent.mi,

in una cella di lavoro di Excel (F3), è inserita una parola avente l'iniziale minuscolo o maiuscolo.

In una UserForm ho inserito una TextBox e gradirei cortesemente avere un controllo che mi indica se la parola scritta sulla cella è minuscolo o maiuscolo.

Ringrazio per il gentile aiuto.
Post: 3.881
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/05/2017 07:12

aa cosa ti serve ? se devi fare un confronto conviene traformare ambedue le stringhe tipo
if ucase(range("A1") = ucase(textbox1.text) then
[Modificato da patel45 29/05/2017 10:45]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 60
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
29/05/2017 10:24

Biongiorno Patel,

ringrazio per l'interessamento
è un semplice programma (richiesta password) che funziona e per completare gradirei inserire una condizione se le parole inserite sulla cella sono in maiuscolo o minuscolo.
Il codice:

Private Sub Cmd_VerificaNome_Click()

If Not Foglio2.Range("G2") = "" Then
If Not Foglio2.Range("G2") = Me.TxtUtente.Text Then
' If UCase(Range("G2") = UCase(TxtUtente).Text) Then
MsgBox "Nome inesistente"
Me.TxtUtente.Text = ""
Me.TxtUtente.SetFocus
Else
MsgBox "Nome esistente!!!"
TxtPassword.SetFocus
End If
End If
' End If
End Sub
Post: 3.882
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/05/2017 10:48

ti interessa solo l'iniziale o tutta la parola ? comunque non ho ancora capito a cosa serve, una password deve essere = a quella memorizzata e basta.

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 1.362
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
29/05/2017 10:51

Ciao
da quel che ho capito vuoi che nella txtBox utente venga inserito l'esatto valore della cella G2 (F3??), cioè se in G2 c'è: pIpPo l'utente deve inserire pIpPo.

Se è così puoi utilizzare StrComp:

if StrComp(TuaCella,TuaTxtBox)=0 then
...giusto
else
...errato

saluti



[Modificato da dodo47 29/05/2017 10:53]
Domenico
Win 10 - Excel 2016
Post: 61
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
29/05/2017 11:56

Gent.mo Dodo,

con il codice inserito accetta sia le maiuscolo che le minuscolo.
Inserendo un nome diverso prosegue invece dovrebbe bloccarsi "Nome non Inserito".

Ringrazio della premura e ringrazio anche Patel.
Post: 1.363
Registrato il: 06/04/2013
Utente Veteran
2010
OFFLINE
29/05/2017 12:09

Ciao
non mi risulta, se è diverso segnala l'errore, poi dipende da cosa scrivi ovviamente.

saluti


Domenico
Win 10 - Excel 2016
Post: 3.884
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/05/2017 12:37

Digito, devi deciderti a spiegare bene cosa vuoi

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 62
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
29/05/2017 17:11

Gent.mi

chiedo scusa a Patel e Dolo per la poca chiarezza nell'esporre il quesito.

Invio il file di prova. Nel Foglio di appoggio è inserito un nome alla cella G2 che ha la lettera inziale maiuscolo.
Cliccando su avvio sul foglio di accesso mi si apre un UserForm.
Se inserisco la parola in minuscolo va in errore viceversa se inserisco la parola esatta va bene.
Gradirei un avviso che mi indica che la parola è maiuscolo.

Ringrazio per la pazienza.
Post: 3.886
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/05/2017 17:38

Per controllare se la parola digitata è tutta in maiuscolo devi controllare il codice ASCII di ogni carattere e verificare se è < 97, non hai ancora spiegato a cosa ti serve.
La tua macro è già corretta così come è.
[Modificato da patel45 29/05/2017 17:54]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 3.887
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/05/2017 18:28

Re:
digito, 28/05/2017 17.16:

gradirei cortesemente avere un controllo che mi indica se la parola scritta sulla cella è minuscolo o maiuscolo.

quando dici parola intendi la prima lettera ?

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 63
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
29/05/2017 18:38

Gent.mo Patel,

perfettamente la prima lettera della parola.

Grazie.
Post: 3.888
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
29/05/2017 20:04

Forse ho capito cosa vuoi, certamente non mi hai aiutato
Private Sub Cmd_Verifica_Click()
Dim CAR As String
If Foglio2.Range("G2") = "" Then Exit Sub
If Foglio2.Range("G2") = Me.TxtUtente.Text Then
   MsgBox "Nome corretto!!!"
ElseIf UCase(Foglio2.Range("G2")) = UCase(Me.TxtUtente.Text) Then
   CAR = Left(Me.TxtUtente.Text, 1)
   If Asc(CAR) > 97 Then
        MsgBox ("La prima lettera non è maiuscola")
        Me.TxtUtente.Text = ""
        Me.TxtUtente.SetFocus
   End If
Else
   MsgBox "Nome errato!!!"
   Me.TxtUtente.Text = ""
   Me.TxtUtente.SetFocus
End If
End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 64
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
04/06/2017 10:21

Gent.mo Patel,

scusa del notevole ritardo funziona.
Approfitto della cortesia per chiedere se è possibile
una modifica al codice per la verifica anche alla 2° TextBox

Ringrazio per la gradita disponibilità, saluto.
Post: 3.893
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
05/06/2017 09:37

ormai hai visto come si fa, prova a farlo da te e se ci sono problemi mostra ciò che hai fatto

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 65
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
05/06/2017 14:29

Gent. Patel,

ringrazio della premura e pazienza. Comprendo benissimo le difficoltà che incontri nel capire ciò che ognuno di noi desidera.

Purtroppo è da giorni che sono dietro senza ottenere un risultato positivo; ho rimediato inserendo un secondo pulsante (VerificaUtente1) inserendo Visible False al pulsante (VerificaUtente). In questo modo anche se non è corretto funziona.

Al momento devo cliccare con il mouse sul pulsante per la verifica è possibile far funzionare anche con il pulsante Invio della tastiera del PC?

Fiducioso di un gradito riscontro, con stima saluto.
Post: 3.894
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
05/06/2017 15:13

non vedo la presenza di 2 pulsanti di verifica, inoltre non capisco a cosa serva fare una verifica contemporanea di 2 utenti. Mi sembra che tu stia facendo esercizi inutili. Sostituire il tasto invio al pulsante non è una buona idea.
Spiega qual'è il tuo scopo da raggiungere, reale o solo esercitazione ?
[Modificato da patel45 05/06/2017 16:27]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 66
Registrato il: 27/04/2005
Utente Junior
Excel 2010
OFFLINE
05/06/2017 16:05

Gent.mo Patel,

considerando che ho molti fogli di lavoro, la verifica serve solo se viene inserito il nome esatto.
Un pulsante era nascosto e, secondo le condizioni si rendeva visibile o meno comunque le ho suddivisi.
Pensavo di riuscire con un'unico pulsante per le verifiche.
Al momento va bene.

Ringrazio della disponibilità, auguro un buon pomeriggio.
Post: 3.895
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
05/06/2017 16:30

ottenere una risposta a tono da te è veramente una impresa difficile, mi confermi il dubbio che tu non abbia le idee chiare su cosa tai facendo

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 02:11. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com