Conas aird a tharraingt ar cheanntásc colún nó colún má dhéantar é a scagadh in Excel?
Maidir le tábla ina bhfuil ilcholúin, ní furasta a fháil amach cén colún a scagtar go sracfhéachaint mar níl aon siombail shoiléir ann don cholún scagtha ach amháin a 
marc. Más mian leat an colún scagtha a dhéanamh gan íoc i dtábla, is féidir le modh san alt seo cabhrú leat.
Aibhsigh ceanntásc an cholúin nó an cholúin iomláin má dhéantar é a scagadh le cód VBA
Aibhsigh ceanntásc an cholúin nó an cholúin iomláin má dhéantar é a scagadh le cód VBA
Mar a thaispeántar thíos an scáileán, ní mór duit aird a tharraingt ar an gcolún iomlán nó ar cheanntásc an cholúin amháin má dhéantar an colún seo a scagadh i raon tábla, cuir na cóid VBA seo a leanas i bhfeidhm.
1. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. I bhfuinneog Microsoft Visual Basic for Applications, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil an cód VBA thíos i bhfuinneog an Mhodúil.
Cód VBA: Aibhsigh ceanntásc an cholúin má dhéantar an colún a scagadh
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 SubChun aird a tharraingt ar an gcolún iomlán má dhéantar é a scagadh i dtábla, cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.
Cód VBA: Aibhsigh an colún iomlán má dhéantar é a scagadh
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 Sub3. Brúigh an F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh an chéad chill den tábla a theastaíonn uait chun aird a tharraingt ar cheanntásc an cholúin scagtha nó ar an gcolún scagtha iomlán, agus ansin cliceáil ar an OK cnaipe.
Ansin cuirfear ceanntásc an cholúin nó an colún iomlán chun suntais láithreach má dhéantar an colún a scagadh i dtábla áirithe. Féach screenshots:
Aibhsigh ceanntásc an cholúin má dhéantar an colún a scagadh sa tábla:
Aibhsigh an colún iomlán má dhéantar é a scagadh sa tábla:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
