Hoe snel een opmerking invoegen in meerdere cellen in Excel?
In een werkblad is het heel eenvoudig om een opmerking in een cel in te voegen, maar als u dezelfde opmerking tegelijkertijd in meerdere cellen wilt invoegen, hoe zou u dat dan kunnen doen?
Voeg een opmerking in meerdere cellen in met de functie Plakken speciaal
Voeg een opmerking toe aan meerdere cellen met VBA-code
Voeg een opmerking in meerdere cellen in met de functie Plakken speciaal
In Excel is het niet mogelijk om meerdere opmerkingen tegelijk in te voegen. U kunt een opmerking echter als volgt naar meerdere cellen kopiëren:
1. Voeg uw opmerking in een cel in.
2. Selecteer de commentaarcel en druk op Ctrl + C toetsen om het te kopiëren.
3. Selecteer vervolgens en klik met de rechtermuisknop op het bereik waarvan u een batchcommentaar wilt invoegen, selecteer plakken speciaal > plakken speciaal vanuit het rechtsklikmenu. Zie screenshot:
4. In de plakken speciaal dialoogvenster, controleer de Heb je vragen? Stel ze hier. optie en klik vervolgens op het OK knop. Zie screenshot:
Vervolgens worden dezelfde opmerkingen onmiddellijk in alle geselecteerde cellen ingevoegd.
Note: Deze methode voegt dezelfde opmerkingen toe aan alle geselecteerde cellen. Als u dezelfde opmerkingen alleen in zichtbare cellen van een gefilterde lijst wilt invoegen, probeer dan de onderstaande VBA-methode.
Voeg een opmerking toe aan meerdere cellen met VBA-code
Stel dat u een gefilterde lijst heeft zoals hieronder afgebeeld. En u wilt gewoon batchgewijs opmerkingen toevoegen aan alle zichtbare cellen. Ga als volgt te werk.
1. druk de anders + F11 sleutels samen om de te openen Microsoft Visual Basic voor applicaties venster.
2. In de Mocrosoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module, en voer de volgende code in de module in:
VBA: batch inerte opmerking voor meerdere cellen (alleen zichtbare cellen in gefilterde lijst)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub
3. druk de F5 sleutel om de code uit te voeren. Bij de eerste die opduikt Kutools for Excel dialoogvenster, selecteer het gefilterde bereik waaraan u opmerkingen wilt toevoegen en klik vervolgens op de OK knop. Zie screenshot:
4. Dan nog een Kutools for Excel dialoogvenster verschijnt, voer uw opmerking in het tekstvak in en klik vervolgens op het OK knop.
Nu worden opmerkingen alleen in alle zichtbare cellen in de geselecteerde gefilterde lijst ingevoegd, zoals hieronder wordt getoond:
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!