Cum se introduce rapid un comentariu în mai multe celule din Excel?
Într-o foaie de lucru, a insera un comentariu într-o celulă este foarte ușor, dar când doriți să inserați același comentariu în mai multe celule în același timp, cum ați putea face?
Introduceți un comentariu în mai multe celule cu funcția Lipire specială
Introduceți un comentariu în mai multe celule cu cod VBA
Introduceți un comentariu în mai multe celule cu funcția Lipire specială
În Excel, nu există nicio modalitate de a insera mai multe comentarii în același timp. Cu toate acestea, puteți copia un comentariu în mai multe celule după cum urmează:
1. Introduceți comentariul într-o celulă.
2. Selectați celula de comentarii și apăsați tasta Ctrl + C chei pentru copiere.
3. Apoi selectați și faceți clic dreapta pe intervalul pe care doriți să-l inserați în comentariu, selectați Lipiți special > Lipiți special din meniul cu clic dreapta. Vedeți captura de ecran:
4. În Lipiți special caseta de dialog, verificați Comentarii , apoi faceți clic pe OK buton. Vedeți captura de ecran:
Apoi, aceleași comentarii sunt inserate imediat în toate celulele selectate.
notițe: Această metodă va insera aceleași comentarii în toate celulele selectate. Dacă doriți să inserați aceleași comentarii numai în celulele vizibile dintr-o listă filtrată, încercați metoda VBA de mai jos.
Introduceți un comentariu în mai multe celule cu cod VBA
Să presupunem că aveți o listă filtrată așa cum este prezentată mai jos. Și doriți doar să adăugați comentarii în serie la toate celulele vizibile. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele împreună pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. În Mocrosoft Visual Basic pentru aplicații fereastra, faceți clic pe Insera > Moduleși introduceți următorul cod în modul:
VBA: Lăsați comentariu inert pe mai multe celule (celule vizibile numai în lista filtrată)
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. apasă pe F5 tasta pentru a rula codul. În prima popping up Kutools pentru Excel caseta de dialog, selectați intervalul filtrat pe care doriți să adăugați comentarii, apoi faceți clic pe OK buton. Vedeți captura de ecran:
4. Apoi alta Kutools pentru Excel caseta de dialog apare, vă rugăm să introduceți comentariul în caseta de text, apoi faceți clic pe OK butonul.
Acum, comentariile sunt inserate în toate celulele vizibile numai în lista filtrată selectată, după cum se arată în imaginea de mai jos:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!