Conas sraitheanna bunaithe ar dhath cúlra in Excel a scriosadh?
Conas a d’fhéadfá sraitheanna iomlána a scriosadh bunaithe ar dhath an chúlra? Sa sampla seo, ní mór dom na sraitheanna go léir a scriosann cealla a bhfuil dath cúlra gorm orthu a scriosadh mar a leanas an pictiúr a thaispeántar. Leis an alt seo, gheobhaidh tú roinnt cóid chun an tasc seo a bhaint amach in Excel.
Scrios sraitheanna le dath cúlra sonrach bunaithe ar gach cill
Scrios sraitheanna le dath cúlra sonrach bunaithe ar cholún amháin
Scrios sraitheanna le dath cúlra sonrach bunaithe ar gach cill
Má tá réimse sonraí agat a líon le roinnt dathanna cille go randamach, agus ní mór duit na sraitheanna a bhfuil dath na cille orthu gorm a scriosadh mar a thaispeántar ar an scáileán a leanas:
Chun an cineál seo sraitheanna a scriosadh, is féidir leat an cód VBA seo a leanas a úsáid, déan mar seo le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt 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: Scrios na sraitheanna ina bhfuil dath líonta ar leith sna cealla:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit cill a roghnú leis an dath líonta a theastaíonn uait a scriosadh, féach an scáileán:
4. Ansin cliceáil OK, agus scriosadh na sraitheanna go léir má tá dath líonta ar leith ag an gcill.
Scrios sraitheanna le dath cúlra sonrach bunaithe ar cholún amháin
Más mian leat na sraitheanna a scriosadh le dath ar leith bunaithe ar cholún amháin, mar shampla, scrios na sraitheanna le dath gorm i gcolún A agus faigh an pictiúr thíos, anseo freisin is féidir le cód VBA fabhar a dhéanamh duit.
1. Coinnigh síos an ALT + F11 eochracha a oscailt 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: Scrios sraitheanna bunaithe ar cholún a bhfuil dath líonta sonrach ag cealla:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
nótaí: Sa chód thuas, A2: A21 an colún ina bhfuil an dath líonta sonrach ar mhaith leat na sraitheanna a scriosadh bunaithe air, an uimhir 20 in ColorIndex = 20 Is é script an t-innéacs dathanna ar mhaith leat sraitheanna bunaithe air a scriosadh. Is féidir leat iad a athrú de réir do riachtanas.
3. Ansin brúigh F5 eochair chun an cód seo a rith, agus scriosadh na sraitheanna uile ina bhfuil an dath gorm i gcolún A ag an am céanna.
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á!