Hogyan lehet gyorsan beszúrni egy megjegyzést az Excel több cellájába?
Egy munkalapon nagyon egyszerű megjegyzést beilleszteni egy cellába, de amikor ugyanazt a megjegyzést egyszerre több cellába szeretné beilleszteni, hogyan tehetné?
Helyezzen megjegyzést több cellába a Speciális beillesztés funkcióval
Szúrjon be megjegyzést több cellába VBA kóddal
Helyezzen megjegyzést több cellába a Speciális beillesztés funkcióval
Az Excel alkalmazásban nincs mód több megjegyzés egyidejű beillesztésére. A megjegyzést azonban több cellába másolhatja az alábbiak szerint:
1. Helyezze be a megjegyzését egy cellába.
2. Válassza ki a megjegyzés cellát, majd nyomja meg a gombot Ctrl + C gombokat a másoláshoz.
3. Ezután jelölje ki és kattintson a jobb gombbal arra a tartományra, amelyhez kötegelt megjegyzést szeretne fűzni, majd válassza ki Speciális beillesztés > Speciális beillesztés a jobb egérgombbal kattintva. Lásd a képernyőképet:
4. Ban,-ben Speciális beillesztés párbeszédpanelen ellenőrizze a Hozzászólások lehetőséget, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ezután ugyanazokat a megjegyzéseket azonnal beillesztjük az összes kiválasztott cellába.
Megjegyzések: Ez a módszer ugyanazokat a megjegyzéseket illeszti be az összes kiválasztott cellába. Ha ugyanazokat a megjegyzéseket csak egy szűrt lista látható celláiba kívánja beszúrni, próbálkozzon az alábbi VBA módszerrel.
Szúrjon be megjegyzést több cellába VBA kóddal
Tegyük fel, hogy van egy szűrt listája az alábbi képernyőképen. És csak kötegelt megjegyzéseket szeretne hozzáadni az összes látható cellához. Kérjük, tegye a következőket.
1. megnyomni a más + F11 gombok együtt megnyitni a Microsoft Visual Basic alkalmazásokhoz ablak.
2. Ban,-ben Mocrosoft Visual Basic alkalmazásokhoz ablakot, kérjük kattintson betétlap > Modulok, és írja be a következő kódot a modulba:
VBA: Inert megjegyzés kötegelése több cellára (csak a szűrt listában látható cellák)
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. megnyomni a F5 gombot a kód futtatásához. Az első felbukkanó Kutools az Excel számára párbeszédpanelen válassza ki a szűrt tartományt, amelyhez hozzá kívánja fűzni a megjegyzéseket, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
4. Aztán még egy Kutools az Excel számára megjelenik a párbeszédpanel, kérjük, írja be a megjegyzését a szövegmezőbe, majd kattintson a gombra OK gombot.
Most a megjegyzéseket csak az összes látható cellába helyezzük be a kiválasztott szűrt listában, az alábbi képernyőképen:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!