Sut i fewnosod sylw yn gyflym i gelloedd lluosog yn Excel?
Mewn taflen waith, mae'n hawdd iawn mewnosod sylw mewn cell, ond pan fyddwch chi am fewnosod yr un sylw mewn sawl cell ar yr un pryd, sut allech chi wneud?
Mewnosodwch sylw i gelloedd lluosog gyda nodwedd Gludo Arbennig
Mewnosodwch sylw i gelloedd lluosog gyda chod VBA
Mewnosodwch sylw i gelloedd lluosog gyda nodwedd Gludo Arbennig
Yn Excel, nid oes unrhyw ffordd i fewnosod sylwadau lluosog ar yr un pryd. Fodd bynnag, gallwch gopïo sylw i gelloedd lluosog fel a ganlyn:
1. Mewnosodwch eich sylw mewn cell.
2. Dewiswch y gell sylwadau a gwasgwch y Ctrl + C allweddi i'w gopïo.
3. Yna dewiswch a chliciwch ar yr ystod yr hoffech chi ei swpio mewnosod sylw, dewiswch Gludo Arbennig > Gludo Arbennig o'r ddewislen clicio ar y dde. Gweler y screenshot:
4. Yn y Gludo Arbennig blwch deialog, gwiriwch y sylwadau opsiwn, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
Yna rhoddir yr un sylwadau i'r holl gelloedd a ddewiswyd ar unwaith.
Nodyn: Bydd y dull hwn yn mewnosod yr un sylwadau i'r holl gelloedd a ddewiswyd. Os ydych chi am fewnosod yr un sylwadau i gelloedd gweladwy yn unig rhestr wedi'i hidlo, rhowch gynnig ar y dull VBA isod.
Mewnosodwch sylw i gelloedd lluosog gyda chod VBA
Gan dybio bod gennych chi restr wedi'i hidlo fel y dangosir isod. A 'ch jyst eisiau swp ychwanegu sylwadau at bob celloedd gweladwy. Gwnewch fel a ganlyn.
1. Gwasgwch y Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr.
2. Yn y Mocrosoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwl:
VBA: Sylw anadweithiol swp i gelloedd lluosog (celloedd gweladwy yn unig ar y rhestr wedi'i hidlo)
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. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping cyntaf Kutools ar gyfer Excel blwch deialog, dewiswch yr ystod wedi'i hidlo rydych chi am ychwanegu sylwadau, ac yna cliciwch ar y OK botwm. Gweler y screenshot:
4. Yna un arall Kutools ar gyfer Excel blwch deialog yn ymddangos, rhowch eich sylw yn y blwch testun, ac yna cliciwch ar y OK botwm.
Nawr mae sylwadau'n cael eu mewnosod i bob cell weladwy yn unig mewn rhestr hidlo ddethol fel y dangosir isod y llun:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!