|
| 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 » | |
23-11-2008, 10.10.36 | #1 |
Sospeso
Registrato: 25-03-2008
Messaggi: 247
|
EXCEL - Macro per celle selezionate.
Ho creato una semplice macro che genera il carattere alternativamente Maiuscolo/minuscolo sul testo di una qualsiasi cella di un foglio di excel. Cioè, col mouse su una cella qualsiasi che contiene del testo, battendo CTRL-m ottengo la variazione del carattere da maiuscolo a minuscolo o viceversa. La mia domanda è: come è possibile, se è possibile, fare funzionare la macro su una selezione di diverse celle? Ad esempio, io vorrei selezionare con il mouse l'intervallo "D3:G7" e poi lanciare la mia macro ed avere il risultato del cambio carattere (Maiuscolo/minuscolo) per tutte le celle selezionate. Forse è già stato affrontato questo argomento, mi sapete indicare dove, per favore, oppure (meglio ancora) replicare la soluzione? Grazie a tutti gli interessati a questo argomento. Riccardo P.S. La mia macro attuale è la seguente. Sub Maiu_minu() ' Scelta rapida da tastiera: Ctrl-m With Selection Valor$ = ActiveCell.Value If Valor$ = UCase(Valor$) Then ActiveCell.Value = LCase(Valor$) Else ActiveCell.Value = UCase(Valor$) End If End With End Sub |
23-11-2008, 12.35.13 | #2 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Devi agire su un intervallo (range) di celle.
Se passassi come parametro un range alla tua sub, saresti sulla buona strada. Ovviamente dovresti essere in grado di identificare gli estremi del range. Studiati bene metodi e proprietà della classe range |
24-11-2008, 14.49.32 | #3 |
Miss Nuuuuuu
Registrato: 23-07-2003
Loc.: più o meno.. Milano
Messaggi: 908
|
mmmm...
prova così: Codice:
Sub Maiu_minu() ' Scelta rapida da tastiera: Ctrl-m Dim cella As Range For Each cella In Selection If IsEmpty(cella) Then GoTo salta_cella Valor$ = cella.Value If Valor$ = UCase(Valor$) Then cella.Value = LCase(Valor$) Else cella.Value = UCase(Valor$) End If salta_cella: Next cella End Sub
___________________________________
« Le persone che non amano i gatti probabilmente erano topi in una vita precedente!! » ~ Non è possibile avere un cuore per gli uomini ed un cuore per gli animali. O si ha un cuore, o non lo si ha proprio. ~ |
24-11-2008, 15.46.22 | #4 |
Sospeso
Registrato: 25-03-2008
Messaggi: 247
|
macro su selezione di celle
Grazie a Cricchia:
La tua soluzione funziona perfettamente. In realtà ci sono arrivato anche io, ma attraverso strade molto più artificiose e complesse. La la tua soluzione è sicuramente migliore; era ciò che cercavo. Ti ringrazio molto. Riccardo |
25-11-2008, 15.05.35 | #5 |
Senior Member
Registrato: 10-05-2006
Loc.: roma
Messaggi: 274
|
Cricchia.... mitica come sempre... con queste macro Excell non ti batte nessuno... ho salvato la vita a mille colleghi grazie a te...
dovresti cominciare a farti pagare .... ciao
___________________________________
meditates |
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 |
Excel, come eliminare collegamenti da celle selezionate? | ghisirds | Office suite | 4 | 15-06-2007 21.49.10 |
collegamenti tra celle e fogli excel | katodb | Office suite | 3 | 04-12-2004 18.00.11 |
Macro Excel | TiTTi | Office suite | 19 | 14-09-2004 20.46.09 |
Macro in excel che genera un file pdf | simon79vi | Software applicativo | 9 | 22-06-2004 11.23.29 |
modifica macro in excel | mag | Software applicativo | 2 | 20-11-2003 11.12.08 |