Hai mai incontrato persone che insistono a digitare tutto con il tasto Caps Lock attivato? In alcuni fogli di lavoro, ciò potrebbe non essere accettabile. Eppure, eccoti qui, con un foglio di lavoro pieno di celle di testo tutte in maiuscolo. Come si converte tutto in maiuscolo e minuscolo, senza la necessità di ridigitare?

Se ti trovi in ​​questa situazione, la macro MakeProper potrebbe fare il trucco per te. Esaminerà un intervallo di celle selezionato e quindi convertirà le costanti in ciò a cui Excel si riferisce come “caso corretto”.

Ciò significa semplicemente che quando hai finito, la prima lettera di ogni parola in una cella sarà maiuscola; il resto sarà minuscolo. Se una cella contiene una formula, viene ignorata.

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

Se preferisci convertire tutto il testo nell’intervallo in minuscolo, puoi invece utilizzare la seguente macro, MakeLower ().

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2026) si applica a Microsoft Excel 97, 2000, 2002 e 2003.