Hoe verander ik alle commentaarformaten in cellen in Excel?
Wanneer we opmerkingen in een werkblad invoegen, moeten we soms de standaard opmerkingenformaten wijzigen.Als er een paar opmerkingen zijn, kunnen we deze handmatig wijzigen, maar als er honderden opmerkingen moeten worden gewijzigd, hoe lost u dit dan op ?
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
Hergebruik alles: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en gebruik ze in de toekomst snel opnieuw.
Meer dan 20 tekstfuncties: Nummer uit tekststring halen; Extract of verwijder een deel van teksten; Converteer cijfers en valuta's naar Engelse woorden.
Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Voeg dubbele rijen en som samen.
Hulpmiddelen splitsen: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen.
Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Stuur gepersonaliseerde e-mails in bulk naar meerdere ontvangers.
Superfilter: Maak geavanceerde filterschema's en pas deze toe op elk blad Soort per week, dag, frequentie en meer; Filteren door vetgedrukt, formules, commentaar ...
Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig te implementeren in uw onderneming of organisatie.
Met de volgende VBA-code kunt u de lettergrootte en het lettertype van de opmerkingen in cellen wijzigen, maar de lettertypekleuren kunnen niet worden gewijzigd. gebruik de volgende VBA als:
1. Klikken Ontwikkelaar > Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen > Module, en kopieer en plak de volgende codes in de 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
In de bovenstaande code kunt u de.Naam als.Grootte variabelen zoals u zou willen.
2. Dan klikken knop om de code uit te voeren. En klik dan Review > Toon alle reacties om de opmerkingen te bekijken, zijn alle opmerkingenformaten in de hele werkmap gewijzigd. Zie screenshots:
Een handig hulpmiddel om alle commentaarformaten snel en tijdbesparend te wijzigen
Als u snel een ander type formaat voor alle opmerkingen wilt wijzigen, kunt u proberen de Formaat opmerkingen of Kutools for Excel.
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Get it Now
Volg na het installeren van Kutools voor Excel de volgende stappen om de commentaarformaten te wijzigen:
1. Maak een opmerking op met de stijl die u op andere opmerkingen wilt toepassen.
2. Klikken Kutools > Meer > Formaat opmerkingen, zie screenshot:
3. In de Formaat opmerkingen dialoogvenster, klik Formaat tabblad, en kies het bereik waarvan u het commentaarformaat wilt wijzigen, u kunt kiezen Actief blad or Alle lakens. Dan klikken Specificeer de commentaarcel om de cel te selecteren die het specifieke commentaarformaat bevat dat u wilt toepassen. Vervolgens verschijnt er een ander dialoogvenster om u het aantal gewijzigde cellen te vertellen. Zie screenshot:
4. Dan klikken Ok > Annuleer knoppen om het dialoogvenster te sluiten, en het geselecteerde celopmerkingsformaat is toegepast op andere opmerkingen.
Opmerkingen:
Als u niet de vetgedrukte lettertypestijl in alle commentaarcellen wilt gebruiken, controleer dan Forceer niet-vetgedrukte opmaak optie.
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
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?
knop om de code uit te voeren. En klik dan Review > Toon alle reacties om de opmerkingen te bekijken, zijn alle opmerkingenformaten in de hele werkmap gewijzigd. Zie screenshots:
