Telefonino.net network
 
| 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 » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 03-03-2015, 19.22.57   #1
domenico82
Newbie
 
Registrato: 24-10-2014
Messaggi: 18
domenico82 promette bene
maiuscolo forzato

Ciao a tutti!!!
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
domenico82 non è collegato   Rispondi citando
Vecchio 03-03-2015, 20.46.37   #2
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
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 -
Alexsandra non è collegato   Rispondi citando
Vecchio 04-03-2015, 14.33.26   #3
domenico82
Newbie
 
Registrato: 24-10-2014
Messaggi: 18
domenico82 promette bene
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?
domenico82 non è collegato   Rispondi citando
Vecchio 04-03-2015, 14.47.14   #4
domenico82
Newbie
 
Registrato: 24-10-2014
Messaggi: 18
domenico82 promette bene
Rif: maiuscolo forzato

.
domenico82 non è collegato   Rispondi citando
Vecchio 04-03-2015, 18.14.08   #5
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
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 -
Alexsandra non è collegato   Rispondi citando
Vecchio 05-03-2015, 01.55.36   #6
domenico82
Newbie
 
Registrato: 24-10-2014
Messaggi: 18
domenico82 promette bene
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?
domenico82 non è collegato   Rispondi citando
Vecchio 05-03-2015, 11.01.09   #7
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: maiuscolo forzato

lo devi incollare in ogni foglio
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Vecchio 05-03-2015, 13.04.47   #8
domenico82
Newbie
 
Registrato: 24-10-2014
Messaggi: 18
domenico82 promette bene
Rif: maiuscolo forzato

Grazie infinite Ale, il tuo aiuto è sempre puntuale e prezioso :-)
domenico82 non è collegato   Rispondi citando
Vecchio 05-03-2015, 15.01.17   #9
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: maiuscolo forzato

___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

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 10.37.54
Problemi con DMA (modo PIO forzato) KONEY Windows 7/Vista/XP/ 2003 7 17-12-2008 18.35.31
Impostazione del proprietario forzato degli oggetti di una directory balubeto Windows 7/Vista/XP/ 2003 19 21-10-2008 00.24.21
al riavvio forzato cursore lampeggiante... Match Patrol Hardware e Overclock 2 30-12-2006 21.33.41
Upgrade forzato (e non richiesto) linea adsl crazy.cat Internet e Reti locali 8 19-12-2006 12.29.41

Orario GMT +2. Ora sono le: 11.13.09.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.