Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Windows 2010 la prima lettera in maiuscolo

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Windows 2010 la prima lettera in maiuscolo

Postdi pacifico » 13/01/16 10:14

Gent.mi,

in un foglio excel 2010, in una colonna vengono inseriti delle voci e gradirei che la prima
lettera sia convertita in maiuscolo.

Ho inserito in un modulo il seguente codice senza ottenere un risultato:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D4:D200")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len

(Target(1).Value) - 1)
End If
Application.EnableEvents = True
End Sub

Attualmente scrivo una frase in una TextBox e tramite un comando (Bottone) la frase si
colloca nella cella della colonna D.

Gradirei gentilmente un Vosto aiuto, cordialmente saluto.


Domenico.
pacifico
Utente Senior
 
Post: 162
Iscritto il: 05/10/06 16:20

Sponsor
 

Re: Windows 2010 la prima lettera in maiuscolo

Postdi Anthony47 » 14/01/16 02:23

Quella e' una macro "di evento" ch quindi non andrebbe messa in un modulo qualsiasi, ma nel modulo di classe del foglio il cui evento deve essere gestito:
-tasto dx sul tab col nome del foglio, scegli Visualizza codice; incolla il codice su "quel" modulo.

Comunque se popoli quella colonna dal textbox, ti dovrebbe bastare modificare l'istruzione con cui trasferisci il testo sulla cella; es:
Codice: Seleziona tutto
Range("LaMiaCella").Value = UCase(Left(UserForm1.TextBox1.Text, 1)) & Mid(UserForm1.TextBox1.Text, 2)

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Windows 2010 la prima lettera in maiuscolo

Postdi pacifico » 14/01/16 10:54

Gent.mo Antony47,

mi scuso del ritardo e ringrazio della gentile attenzione la formula consigliata funziona
perfettamente.

Al programma ultimato, lavoro con le relative finestre: inserimenti dati, calendario,
stampa, ricerca dati e visione dati inseriti con ListBox ed ecc.
Gradirei sapere ed il reativo codice per far si che il foglio di lavoro sia invisibile e
bloccato e non accessibile.

Attualmente lo minimizzo ed inserisco anche la password se vi è una ulteriore protezione.

Nuovamente ringrazio, cordialmente saluto.

Domenico.
pacifico
Utente Senior
 
Post: 162
Iscritto il: 05/10/06 16:20

Re: Windows 2010 la prima lettera in maiuscolo

Postdi Anthony47 » 14/01/16 23:53

L'efficacia delle protezioni in Excel e' in rapporto all'abilita' tra chi vuole nascondere e chi vuole vedere.
Se parli di Fogli io ti suggerisco di dichiararli "veryHidden", in modo che almeno non si possono sbloccare con semplici comandi.
Ad esempio metti in una macro di Workbook_Open istruzioni del tipo
Codice: Seleziona tutto
Sheets("Foglio1").Visible = xlVeryHidden
Sheets("Foglio2").Visible = xlVeryHidden

E' possibile che alcune operazioni richiedano che il foglio sia visibile; per questo userai ad esempio:
Codice: Seleziona tutto
Sheets("Foglio2").Visible = True

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Windows 2010 la prima lettera in maiuscolo

Postdi pacifico » 17/01/16 19:05

Gent.mo Antony47,

nel rigraziare per la gentilezza anche questa modifica funziona.

Riscontro un problema che chiuso il programma tramite un comando "Esci", alla riapertura
dello stesso, mi esce la seguente finestra:

Il programma è già aperto. Riaprendolo le modifiche apportate andranno perse. Riaprire....?

Cordialmente saluto.

Domenico.
pacifico
Utente Senior
 
Post: 162
Iscritto il: 05/10/06 16:20

Re: Windows 2010 la prima lettera in maiuscolo

Postdi Anthony47 » 18/01/16 12:47

Non ho capito quali operazioni fai, se cioe' chiudi il file e poi l'applicazione Excel; e se il messaggio (che dovrebbe essere riferito a un file gia' aperto) ti compare quando rilanci Excel o quando apri ul file.
Quindi prova a descrivere dettagliatamente le operazioni che esegui e quel che succede, passo passo.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Windows 2010 la prima lettera in maiuscolo

Postdi pacifico » 18/01/16 16:44

Gent.mo Antony47,

mi scuso se non sono stato chiaro nell'esprimere il problema che riscontro.

Cerco di descrivere.

Come accennato, ho il programma che ha 5 UserForm con vari pulsanti di comando ed un
pulsante di comando (Esci) con il seguente codice:

Private Sub CommandButton1_Click()

Unload UserForm1 (o UserForm2 ed ecc.)

End Sub

all'apertura mi esce il primo e l'unico foglio di lavoro con la relativa UserForm1 ed ho
inserito a "Questa_Cartella_di_lavoro" il seguente codice:

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

Con questo comando mi da la possibilità di rendere il foglio di lavoro invisibile o
nascosto e, una volta chiuso il programma con il pulsante di lavoro "Esci" che regolarmente
chiude, alla riapertura del programma mi esce la finestra con la seguente dicitura:

"Il programma è già aperto. Riaprendolo le modifiche apportate andranno perse.
Riaprire....?"

Evidentemente mi chiude l'UserForm e ci vorrebbe un comando che mi chiude anche il foglio
di lavoro che essendo invisibile, rimane aperto.

Ringrazio della pazienza, cordialmente saluto.

Domenico.
pacifico
Utente Senior
 
Post: 162
Iscritto il: 05/10/06 16:20

Re: Windows 2010 la prima lettera in maiuscolo

Postdi Anthony47 » 18/01/16 23:44

Evidentemente lasci il file Excel aperto, visto che non lo chiudi.
Devi inserire, dulcis in fundo, anche la chiusura del workbook, tipo
Codice: Seleziona tutto
Workbooks("NomeFile").Close   

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Windows 2010 la prima lettera in maiuscolo":

Problema Windows 10
Autore: asso1998
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Maury170419, salatony e 9 ospiti