Hoe markeer ik alle cellen met opmerkingen in Excel?
Opmerking is een handige functie voor ons om belangrijke informatie in Excel te schrijven, nadat de opmerking is ingevoegd, wordt er een kleine rode indicator in de cel weergegeven. Maar soms zijn de rode indicatoren niet erg opvallend, dus we kunnen alle cellen markeren met opmerkingen met een specifieke kleur om ze meer op te laten vallen. Lees dit artikel voor meer details.
Markeer alle cellen met opmerkingen met de functie Ga naar speciaal
Markeer alle cellen met opmerkingen met VBA-code
Markeer alle cellen met opmerkingen met de functie Ga naar speciaal
In Excel kunnen we eerst alle commentaarcellen selecteren en ze vervolgens een kleur geven die we leuk vinden, doe dit als volgt:
1. Selecteer het gegevensbereik of het hele werkblad waarvan u de cellen met opmerkingen wilt markeren.
2. Dan klikken Home > Zoek en selecteer > Ga naar speciaal, zie screenshot:
Tip: U kunt op snelkoppelingen drukken Ctrl + G om de te openen gaan naar dialoogvenster en klik op special om de te openen Ga naar speciaal dialoogvenster.
3. In de Ga naar speciaal dialoogvenster, vink aan Heb je vragen? Stel ze hier. optie, zie screenshot:
4. Dan klikken OK om dit dialoogvenster te sluiten en alle cellen met opmerkingen zijn in uw selectie geselecteerd, zie screenshot:
5. Nadat u de commentaarcellen heeft geselecteerd, klikt u op het opvulkleur pictogram onder de Home tabblad en kies een kleur die je leuk vindt, alle geselecteerde celopmerkingen worden in één keer gekleurd, zie screenshot:
Markeer alle cellen met opmerkingen met VBA-code
U kunt ook alle celopmerkingen in het actieve werkblad onmiddellijk markeren en kleuren met de volgende VBA-code:
1. Activeer uw werkblad waarin u de commentaarcellen wilt markeren.
2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: markeer alle cellen met opmerkingen
Sub ColorComments()
'Update 20141110
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
Application.ScreenUpdating = False
For Each Rng In WorkRng
Rng.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub
4. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het bereik te selecteren waarin u de commentaarcellen wilt markeren, zie screenshot:
5. En klik vervolgens op OK, zijn alle opmerkingen in uw selectie op kleur gemarkeerd.
Note:
In de bovenstaande code kunt u de kleurindex in het script wijzigen Rng.Interieur.KleurIndex = 36 naar jouw smaak.
Gerelateerde artikelen:
Hoe alle commentaarposities in Excel te resetten?
Hoe verander ik de kleur van de commentaarindicator in Excel?
Hoe automatisch datum en tijd toevoegen om te reageren in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!