Convertire in caratteri minuscoli in Excel VBA
Di seguito vedremo un programma in Excel VBA che converte il testo in caso corretto. Cioè, la prima lettera di ogni parola in maiuscolo, mentre le altre lettere in minuscolo.
Situazione:
-
In primo luogo, si dichiara due oggetti Gamma. Chiamiamo la gamma di oggetti RNG e delle cellule.
Dim rng As Range, cell As Range
-
inizializzare il RNG oggetto Range con l’intervallo selezionato.
Set rng = Selection
-
vogliamo controllare ogni cella in un intervallo selezionato casualmente (questo intervallo può essere di qualsiasi dimensione). In Excel VBA, è possibile utilizzare il ciclo For Each di questo componente. Aggiungere le seguenti righe di codice:
For Each cell In rng Next cell
Nota: RNG e cellule sono scelti a caso qui, è possibile utilizzare qualsiasi nome.
Ricordarsi di fare riferimento a questi nomi nel resto del codice.
-
Per ignorare una cella che contiene una formula, aggiungere la riga seguente codice tra For Each e Avanti (solo se cell.HasFormula è falso continuiamo).
If Not cell.HasFormula Then End If
-
Quindi, vogliamo convertire ogni parola in questo intervallo per ‘caso corretto’.
È possibile utilizzare la funzione del foglio di lavoro corretto per questo compito. Aggiungere la seguente riga di codice nel tuo if.
cell.Value = WorksheetFunction.Proper(cell.Value)
-
Verificare il programma.
Risultato:
