Di seguito vedremo un programma in Excel VBA Quello converte il testo nel caso corretto. Cioè, la prima lettera di ogni parola in maiuscolo e tutte le altre lettere in minuscolo.
Situazione:
1. Innanzitutto, dichiariamo due oggetti Range. Chiamiamo gli oggetti Range rng e cell.
Dim rng As Range, cella As Range
2. Inizializziamo l'oggetto Range rng con l'intervallo selezionato.
Imposta rng = Selezione
3. Vogliamo controllare ogni cella in un intervallo selezionato casualmente (questo intervallo può essere di qualsiasi dimensione). In Excel VBA, puoi utilizzare il ciclo For Each Next per questo. Aggiungi le seguenti righe di codice:
Per ogni cella In rng
Cella successiva
Nota: rng e cella sono scelti a caso qui, puoi usare qualsiasi nome. Ricorda di fare riferimento a questi nomi nel resto del codice.
4. Per ignorare una cella che contiene una formula, aggiungi la seguente riga di codice tra For Each e Next (solo se cell.HasFormula è false, continuiamo).
If Not cell.HasFormula Then
Finisci se
5. Successivamente, vogliamo convertire ogni parola in questo intervallo in "caso corretto". È possibile utilizzare la funzione del foglio di lavoro Proper per questa attività. Aggiungi la seguente riga di codice nella tua istruzione if.
cell.Value = WorksheetFunction.Proper(cell.Value)
6. Testare il programma.
Risultato:
