Sut i dynnu sylw at bennawd colofn neu golofn os caiff ei hidlo yn Excel?
Ar gyfer tabl â cholofnau lluosog, nid yw'n hawdd darganfod pa golofn sy'n cael ei hidlo ar gip gan nad oes symbol amlwg ar gyfer y golofn wedi'i hidlo heblaw am a marc. Os ydych chi am sicrhau bod y golofn wedi'i hidlo yn rhagorol mewn tabl, gall dull yn yr erthygl hon eich helpu chi.
Tynnwch sylw at bennawd colofn neu golofn gyfan os caiff ei hidlo â chod VBA
Tynnwch sylw at bennawd colofn neu golofn gyfan os caiff ei hidlo â chod VBA
Fel islaw'r screenshot a ddangosir, mae angen i chi dynnu sylw at y golofn gyfan neu ddim ond pennawd y golofn os yw'r golofn hon wedi'i hidlo mewn ystod tabl, cymhwyswch y codau VBA canlynol.
1. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn ffenestr Microsoft Visual Basic for Applications, cliciwch Mewnosod > Modiwlau. Yna copïwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Tynnwch sylw at bennawd y golofn os yw'r golofn wedi'i hidlo
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End Sub
I dynnu sylw at y golofn gyfan os yw wedi'i hidlo mewn tabl, copïwch a gludwch y cod VBA isod i mewn i ffenestr y Modiwl.
Cod VBA: Tynnwch sylw at y golofn gyfan os caiff ei hidlo
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub
3. Gwasgwch y F5 allwedd i redeg y cod. Yn y popping up Kutools ar gyfer Excel blwch deialog, dewiswch gell gyntaf y tabl sydd ei hangen arnoch i dynnu sylw at bennawd y golofn wedi'i hidlo neu'r golofn gyfan wedi'i hidlo, ac yna cliciwch ar y OK botwm.
Yna bydd pennawd y golofn neu'r golofn gyfan yn cael ei hamlygu ar unwaith os yw'r golofn yn cael ei hidlo mewn tabl penodol. Gweler sgrinluniau:
Tynnwch sylw at bennawd y golofn os yw'r golofn wedi'i hidlo yn y tabl:
Tynnwch sylw at y golofn gyfan os caiff ei hidlo yn y tabl:
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!