Hoe wijzigt u alle auteursnamen van opmerkingen in Excel?

Wanneer u opmerkingen in een werkblad invoegt, wordt de naam van de auteur van de opmerking automatisch in de opmerking ingevoegd, gevolgd door een dubbele punt. Soms wilt u misschien de naam van de auteur van de opmerking wijzigen. Hoe kunt u dat doen? U kunt de naam van de auteur van de opmerking in Excel wijzigen met behulp van de volgende methoden.

Wijzig de standaard auteursnaam van alle nieuwe opmerkingen door Excel-opties te configureren

Wijzig snel de auteursnaam van alle bestaande opmerkingen in het actieve of alle werkbladen met Kutools voor Excel

Wijzig de auteursnaam van alle bestaande opmerkingen in het hele werkboek met VBA-code

Wijzig de standaard auteursnaam van alle nieuwe opmerkingen door Excel-opties te configureren

U kunt de Excel-gebruikersnaam wijzigen om de auteursnaam van alle nieuwe opmerkingen die u gaat invoegen te wijzigen.

1. Klik op Bestand > Opties in Excel 2010/2013/2016, of u kunt klikken op de Office- knop > Excel-opties > Populair in Excel 2007.

2. In het dialoogvenster Excel-opties klikt u op Algemeen in de linker balk, scrolt u vervolgens naar de sectie Pas uw exemplaar van Microsoft Office aan in het rechterpaneel en vervangt u de oude Gebruikersnaam door de nieuwe die u nodig hebt. Klik ten slotte op de knop OK. Zie screenshot:

Vanaf nu, wanneer u nieuwe opmerkingen in uw werkblad invoegt, zal de auteursnaam de nieuwe zijn zoals hierboven gespecificeerd. De auteursnaam van de oude opmerkingen blijft echter de oude.

Vind eenvoudig en vervang de auteursnaam van alle bestaande opmerkingen met een nieuwe met Kutools voor Excel

Naast de bovenstaande methode, raad ik u aan de functie Verwijderen/Toevoegen Gebruikersnaam in Opmerking van Kutools voor Excel. Met deze functie kunt u eenvoudig de auteursnaam van alle bestaande opmerkingen wijzigen naar de nieuwe, niet alleen in het actieve werkblad, maar ook in het hele werkboek.

1. Ga naar het werkblad waarin u de auteursnaam van alle opmerkingen wilt wijzigen, en klik vervolgens op Kutools > Meer > Verwijderen/Toevoegen Gebruikersnaam in Opmerking. Zie screenshot:

2. Configureer in het dialoogvenster Verwijderen/Toevoegen Gebruikersnaam in Opmerking als volgt:

Verwijder eerst de auteursnaam uit alle opmerkingen in het opgegeven bereik.

• (1) In de Keuzelijst Bereik, als u alleen auteursnamen in het huidige werkblad wilt wijzigen, selecteert u de optie Huidig werkblad. Om auteursnamen in het hele werkboek te wijzigen, selecteert u de optie Alle werkbladen.
• (2) Kies de optie Gebruikersnamen verwijderen in opmerkingen.
• (3) Klik op de knop Toepassen.
• (4) Klik in het pop-up dialoogvenster op de knop OK.

Voeg vervolgens een nieuwe auteursnaam toe aan alle opmerkingen in het opgegeven bereik.

• (1) Voer de nieuwe auteursnaam van de opmerkingen in het vak Gebruikersnaam in, en kies vervolgens de optie Gebruikersnamen toevoegen aan opmerkingen;
• (2) Klik op de knop Toepassen;
• (3) Klik in het pop-up dialoogvenster op de knop OK;
• (4) Klik op de knop Sluiten om het dialoogvenster te sluiten.

Met VBA-code alle negatieve getallen van een bereik omzetten naar positief

Als u de auteursnaam van alle bestaande opmerkingen in het hele werkboek wilt wijzigen, helpt de onderstaande VBA-code u daarbij:

1. Druk tegelijkertijd op Alt + F11 om Microsoft Visual Basic for Applications te openen. En in het venster Microsoft Visual Basic for Applications klikt u op Invoegen > Module, kopieer en plak vervolgens de volgende code in het modulevenster:

VBA-code: Wijzig de auteursnaam van alle bestaande opmerkingen in het hele werkboek

Sub ChangeCommentName()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub

2. Druk op de toets F5 om de code uit te voeren, dan verschijnt er een KutoolsforExcel dialoogvenster met de oude auteursnaam van de opmerking in het tekstvak, klik op de knop OK. Zie screenshot:

3. Dan verschijnt er nog een KutoolsforExcel dialoogvenster, typ de nieuwe auteursnaam van de opmerking die u nodig heeft in het tekstvak, en klik vervolgens op de knop OK. Zie screenshot:

Nu worden alle auteursnamen van de bestaande opmerkingen onmiddellijk gewijzigd in de nieuwe naam in het hele werkboek.

Opmerking: Deze methode werkt niet voor nieuwe opmerkingen die u invoegt.

Demo: Wijzig alle auteursnamen van opmerkingen met Kutools voor Excel

Gerelateerde artikelen