| | 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 | |
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 |
|
|