Excel scorciatoia x minuscole - maiuscole

[MarioSilla]

Ciao. Ho un file excel contenente dati vari, alcuni scritti in maiuscolo e altri in minuscolo. Esiste una scorciatoia x fare in modo che tutto diventi o maiuscolo o minuscolo ?

Grazie e ciao

[Anthony47]

Prova questa macro, DOPO aver fatto 2 copie di backup dell tuo file:

Codice: Seleziona tutto

Sub smaiusc()
For Each cell In ActiveSheet.UsedRange
'If IsText("AA") Then BB = "Pio"
If Val(cell.Value) <> 0 Then GoTo Skip
cell.Value = Application.WorksheetFunction.Proper(cell.Value)
Skip:
Next
End Sub

Lanciali foglio dopo foglio, trasforma tutto in minuscolo eccetto l' iniziale; se vuoi tutto minuscolo invece di .Proper usa .Lower

Ciao,

[MarioSilla]

Sei stato grande, funziona a meraviglia

[Anthony47]

funziona a meraviglia

Beh.. funziona ma non e' perfetta.

Infatti:
-la funzione .Lower non e' disponibile in vba
-il controllo che la cella contenga una stringa e' un po' grossolano

Per i posteri, la macro suggerita e' questa:

Codice: Seleziona tutto

Sub smaiusc()
For Each Cell In ActiveSheet.UsedRange
If Application.WorksheetFunction.IsText(Cell.Value) Then
  Cell.Value = Application.WorksheetFunction.Proper(Cell.Value)  '<<<Minuscolo
  End If
Next
End Sub

che trasforma tutto in minuscolo eccetto l' iniziale di ogni parola.

Per tutto minuscolo e tutto maiuscolo, usare una di queste istruzione al posto di quella marcata <<<:

Codice: Seleziona tutto

cell.Value = LCase(cell.Value)  '<<<minuscolo
cell.Value = UCase(cell.Value)  '<<<MAIUSCOLO

Ciao a tutti,

[Alexsandra]

e se sono 2 frasi, e le celle (non tutte) contengono delle formule?
come si potrebbe fare

[Anthony47]

L' indovinello di Alexsandra mette in evidenza un PERICOLO di ambedue le macro che ho postato:
-se la cella contiene un testo che e' dovuto a una formula [es: SE(A1>B2;"OK";"ERRATO")], la macro sostituisce la formula con il testo (minuscolo o maiuscolo secondo i casi), distruggendo cioe' la formula. Cosa ovviamente molto GRAVE.


Per i posteri suggerisco:
1) due copie di backup sempre
2) questa "penultima" versione della macro:

Codice: Seleziona tutto

Sub smaiusc()
For Each Cell In ActiveSheet.UsedRange
If (Application.WorksheetFunction.IsNonText(Cell.Value) + Cell.HasFormula) Then GoTo Skippa
Cell.Value = Application.WorksheetFunction.Proper(Cell.Value)  '<<<Minuscolo
Skippa:
Next
End Sub

Atri contributi sono ovviamente sempre utili.

Ciao a tutti,