Conas sraitheanna a cheilt bunaithe ar dhath na cille in Excel?
I mbileog oibre Excel, tá liosta de na cealla agam a bhfuil go leor dathanna éagsúla orthu, anois, ní mór dom gach sraitheanna daite gorm éadrom a cheilt mar a thaispeántar ar an scáileán a leanas, conas a d’fhéadfá déileáil leis an tasc seo in Excel go tapa agus go héasca?
Folaigh sraitheanna bunaithe ar dhath na cille le cód VBA
Folaigh sraitheanna bunaithe ar dhath na cille le Kutools le haghaidh Excel
Folaigh sraitheanna bunaithe ar dhath na cille le cód VBA
Chun sraitheanna a cheilt bunaithe ar dhath cúlra ar leith, d’fhéadfadh an cód VBA seo a leanas cabhrú leat, déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha, ansin osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Folaigh sraitheanna bunaithe ar dhath na cille:
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit na cealla a theastaíonn uait a úsáid a roghnú, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe, tá na cealla daite gorma go léir curtha i bhfolach ag an am céanna, féach an scáileán:
Nótaí:
1. Sa chód thuas, an uimhir 20 laistigh den script seo Más xRg.Range ("A" & I) .Interior.ColorIndex = 20 Ansin an uimhir innéacs dathanna, is féidir leat í a athrú de réir mar is gá duit.
2. Mura bhfuil tú cinnte faoin uimhir innéacs dathanna, ba cheart duit an cód seo a leanas a chur i bhfeidhm chun an t-innéacs dathanna a theastaíonn uait a fháil amach a fháil:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Agus ansin cuir isteach an fhoirmle: = GetColor (A2) chun uimhir innéacs dathanna ar leith an chúlra i gcill A2 a thabhairt ar ais, athraíonn tú A2 go cinn eile de réir mar is gá duit.
Folaigh sraitheanna bunaithe ar dhath na cille le Kutools le haghaidh Excel
Má tá tú Kutools le haghaidh Excel, Lena Roghnaigh Cealla le Formáid fóntais, is féidir leat na cealla daite ar leith a roghnú ar dtús, agus ansin iad a cheilt ag an am céanna.
Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:
1. Cliceáil Kutools > Roghnaigh > Roghnaigh Cealla le Formáid, féach ar an scáileán:
2. Sa an Roghnaigh Cealla le Formáid bosca dialóige, déan na hoibríochtaí thíos:
(1.) Cliceáil cnaipe chun an raon sonraí a theastaíonn uait a úsáid a roghnú;
(2.) Ansin cliceáil Roghnaigh Formáid Ó Cill cnaipe chun an chill daite ar leith a roghnú ar mhaith leat sraitheanna a cheilt bunaithe air;
(3.) Tá tréithe uile na cille ar leith liostaithe sa bhosca liosta, ach seiceáil le do thoil Dath an chúlra faoi na Líon alt seo.
3. Ansin cliceáil Ok cnaipe, roghnaíodh na cealla uile a bhfuil an dath sonrach orthu ag an am céanna, agus ansin cliceáil Baile > déanta > Folaigh & Unhide > Folaigh Sraitheanna, féach ar an scáileán:
4. Agus ansin na cealla roghnaithe a bhfuil an dath sonrach orthu i bhfolach, féach an scáileán:
Cliceáil Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!
Taispeántas: Folaigh sraitheanna bunaithe ar dhath na cille le Kutools le haghaidh Excel
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á!