Ինչպե՞ս առանձնացնել սյունակը կամ սյունակի վերնագիրը, եթե այն զտված է Excel- ում:
Բազմաթիվ սյունակներով աղյուսակի համար հեշտ չէ պարզել, թե որ սյունն է ֆիլտրացված մի հայացքով, քանի որ զտված սյունակի համար չկա ակնհայտ խորհրդանիշ, բացառությամբ նշագծել. Եթե ցանկանում եք զտված սյունը աղյուսակում անթերի դարձնել, այս հոդվածի մեթոդը կարող է օգնել ձեզ:
Նշեք սյունակի վերնագիրը կամ ամբողջ սյունը, եթե այն զտված է VBA կոդով
Նշեք սյունակի վերնագիրը կամ ամբողջ սյունը, եթե այն զտված է VBA կոդով
Ինչպես ցույց է տրված սքրինշոթից ներքևում, դուք պետք է նշեք ամբողջ սյունակը կամ միայն սյունակի վերնագիրը, եթե այս սյունակը զտված է աղյուսակի տիրույթում, խնդրում ենք կիրառել հետևյալ VBA կոդերը:
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Microsoft Visual Basic հավելվածների համար պատուհանում սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA կոդ. Նշեք սյունակի վերնագիրը, եթե սյունը զտված է
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
Ամբողջ սյունը լուսաբանելու համար, եթե այն զտված է աղյուսակում, խնդրում ենք պատճենել և կպցնել ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA կոդ. Նշեք ամբողջ սյունը, եթե այն զտված է
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. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, խնդրում ենք ընտրել աղյուսակի առաջին բջիջը, որն անհրաժեշտ է զտված սյունակի վերնագիրը կամ ամբողջ ֆիլտրացված սյունը ընդգծելու համար, ապա կտտացրեք OK կոճակը:
Այնուհետև սյունակի վերնագիրը կամ ամբողջ սյունակը անմիջապես կարևորվեն, եթե սյունը զտված է որոշակի աղյուսակում: Տեսեք սքրինշոթերը.
Նշեք սյունակի վերնագիրը, եթե սյունակը զտված է աղյուսակում.
Նշեք ամբողջ սյունակը, եթե այն զտված է աղյուսակում.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: