Ci-dessous, nous examinerons un programme en Excel VBA ce convertit le texte en casse appropriée. C'est-à-dire la première lettre de chaque mot en majuscule et toutes les autres lettres en minuscule.
Situation:
1. Tout d'abord, nous déclarons deux objets Range. Nous appelons les objets Range rng et cell.
Dim rng As Range, cellule As Range
2. Nous initialisons l'objet Range rng avec la plage sélectionnée.
Définir rng = Sélection
3. Nous voulons vérifier chaque cellule dans une plage sélectionnée au hasard (cette plage peut être de n'importe quelle taille). Dans Excel VBA, vous pouvez utiliser la boucle For Each Next pour cela. Ajoutez les lignes de code suivantes :
Pour chaque cellule dans rng
Cellule suivante
Remarque : rng et cell sont choisis au hasard ici, vous pouvez utiliser n'importe quel nom. N'oubliez pas de faire référence à ces noms dans le reste de votre code.
4. Pour ignorer une cellule qui contient une formule, ajoutez la ligne de code suivante entre For Each et Next (uniquement si cell.HasFormula est false, nous continuons).
Si ce n'est pas la cellule.HasFormula Alors
Fin si
5. Ensuite, nous voulons convertir chaque mot de cette plage en « bonne casse ». Vous pouvez utiliser la fonction de feuille de calcul Propre pour cette tâche. Ajoutez la ligne de code suivante dans votre instruction if.
cell.Value = WorksheetFunction.Proper(cell.Value)
6. Testez le programme.
Résultat:
