Comment changer tous les formats de commentaires dans les cellules dans Excel?
Lorsque nous insérons des commentaires dans une feuille de calcul, parfois, nous pouvons avoir besoin de changer les formats de commentaires par défaut, s'il y a quelques commentaires, nous pouvons les changer manuellement, mais s'il y a des centaines de commentaires qui doivent être modifiés, comment le résoudre ?
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Trier par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.
Avec le code VBA suivant, vous pouvez modifier la taille de la police et la police des commentaires dans les cellules, mais il ne peut pas modifier les couleurs de police. veuillez utiliser le VBA suivant comme:
1. Cliquez Développeur > Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Module, puis copiez et collez les codes suivants dans le module:
Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xComment In xWs.Comments
With xComment.Shape.TextFrame.Characters.Font
.Name = "Times New Roman"
.Size = 14
End With
Next
Next
End Sub
Dans le code ci-dessus, vous pouvez définir le.Prénom et.Taille variables comme vous le souhaitez.
2. Puis clique bouton pour exécuter le code. Et puis cliquez Commentaires > Voir tous les commentaires pour afficher les commentaires, tous les formats de commentaires de l'ensemble du classeur ont été modifiés. Voir les captures d'écran:
Un outil pratique pour changer rapidement et rapidement tous les formats de commentaires
Si vous souhaitez modifier rapidement d'autres types de format pour tous les commentaires, vous pouvez essayer d'utiliser le Commentaires sur le format of Kutools pour Excel.
Après avoir installé Kutools for Excel, veuillez suivre les étapes suivantes pour modifier les formats de commentaire:
1. Mettez en forme un commentaire avec le style que vous souhaitez appliquer à d'autres commentaires.
2. Cliquez Kutools > Plus d’informations > Commentaires sur le format, voir capture d'écran:
3. Dans le Commentaires sur le format boîte de dialogue, cliquez sur Format onglet, et choisissez la portée que vous souhaitez modifier le format de commentaire, vous pouvez choisir Feuille active or Toutes les feuilles. Puis clique Spécifiez la cellule de commentaire pour sélectionner la cellule qui contient le format de commentaire spécifique que vous souhaitez appliquer. Ensuite, une autre boîte de dialogue apparaît pour vous indiquer le nombre de cellules modifiées. Voir la capture d'écran:
4. Puis clique Ok > Annuler pour fermer la boîte de dialogue et le format de commentaire de cellule sélectionné a été appliqué aux autres commentaires.
Notes:
Si vous ne souhaitez pas utiliser le style de police gras dans toutes les cellules de commentaire, veuillez vérifier Forcer le formatage non gras option.
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft
Any advice on how to update the code for this extra little trick?
bouton pour exécuter le code. Et puis cliquez Commentaires > Voir tous les commentaires pour afficher les commentaires, tous les formats de commentaires de l'ensemble du classeur ont été modifiés. Voir les captures d'écran:
