|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
03-03-2015, 18.22.57 | #1 |
Newbie
Registrato: 24-10-2014
Messaggi: 18
|
maiuscolo forzato
E' possibile creare una formula con visual basic che converta gli inserimenti da minuscolo in maiuscolo? Ho un lavoro costituito da 500 fogli, e vorrei che ogni singola cella di tutti i fogli abbia la stessa proprietà. Spulciando su internet ho trovato questa: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target = UCase(Target) End If End Sub funziona, ma applica la proprietà solo alla prima colonna. per averlo su tutte le colonne del foglio? (sono 20) Grazie |
03-03-2015, 19.46.37 | #2 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: maiuscolo forzato
Codice:
Private Sub Worksheet_Change(ByVal Target As Range) Target.Value = UCase(Target.Value) End Sub
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
04-03-2015, 13.33.26 | #3 |
Newbie
Registrato: 24-10-2014
Messaggi: 18
|
Rif: maiuscolo forzato
Grazie Ale,
questa funziona su tutte le celle di un foglio.... per estendere questa proprietà a tutti e 500 i fogli del mio lavoro, c'è un sistema particolare? o devo incollare manualmente la stringa su ogni singolo foglio? Inoltre ho notato che se cancello il contenuto di una cella, (gia convertita in maiuscolo) si apre una finestra con l'avviso: "errore di run-time '2147417848 (80010108)': Mtodo 'Value' dell' oggetto 'Range' non riuscito Da cosa dipende? è possibile eliminare questo avviso? |
04-03-2015, 13.47.14 | #4 |
Newbie
Registrato: 24-10-2014
Messaggi: 18
|
Rif: maiuscolo forzato
.
|
04-03-2015, 17.14.08 | #5 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: maiuscolo forzato
non ci avevo pensato.
quando fai una modifica qualsiasi, anche cancellare il contenuto, scateni l'evento Change per cui mandi in esecuzione la macro. Possiamo aggirare questo intoppo disabilitando gli eventi e mettendo una condizione se la cella è vuota. copia questo codice e prova Codice:
Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range Application.EnableEvents = False For Each cl In Target With cl If Not .Value = vbEmpty Then .Value = UCase(.Value) End If End With Next Application.EnableEvents = True End Sub
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
05-03-2015, 00.55.36 | #6 |
Newbie
Registrato: 24-10-2014
Messaggi: 18
|
Rif: maiuscolo forzato
Si funziona perfettamente,
e per estendere questa stringa a tutti i fogli c'è un sistema? o devo incollarla per ogni singolo foglio? |
05-03-2015, 10.01.09 | #7 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: maiuscolo forzato
lo devi incollare in ogni foglio
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
05-03-2015, 12.04.47 | #8 |
Newbie
Registrato: 24-10-2014
Messaggi: 18
|
Rif: maiuscolo forzato
Grazie infinite Ale, il tuo aiuto è sempre puntuale e prezioso :-)
|
05-03-2015, 14.01.17 | #9 |
Senior Member
WT Expert
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
|
Rif: maiuscolo forzato
___________________________________
- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale - |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
[XP PRO SP3]ripristino files forzato di adobe acrobat da parte di win xp RISOLTO | cippico | Software applicativo | 1 | 12-05-2010 09.37.54 |
Problemi con DMA (modo PIO forzato) | KONEY | Windows 7/Vista/XP/ 2003 | 7 | 17-12-2008 17.35.31 |
Impostazione del proprietario forzato degli oggetti di una directory | balubeto | Windows 7/Vista/XP/ 2003 | 19 | 20-10-2008 23.24.21 |
al riavvio forzato cursore lampeggiante... | Match Patrol | Hardware e Overclock | 2 | 30-12-2006 20.33.41 |
Upgrade forzato (e non richiesto) linea adsl | crazy.cat | Internet e Reti locali | 8 | 19-12-2006 11.29.41 |