Sut i dynnu sylw at werthoedd dyblyg mewn gwahanol liwiau yn Excel?
Yn Excel, gallwn yn hawdd dynnu sylw at y gwerthoedd dyblyg mewn colofn gydag un lliw trwy ddefnyddio'r Fformatio Amodol, ond, weithiau, mae angen i ni dynnu sylw at y gwerthoedd dyblyg mewn gwahanol liwiau er mwyn adnabod y dyblygu yn gyflym ac yn hawdd fel y llun a ddangosir. Sut allech chi ddatrys y dasg hon yn Excel?
Tynnwch sylw at werthoedd dyblyg mewn colofn gyda gwahanol liwiau trwy ddefnyddio cod VBA
Tynnwch sylw at werthoedd dyblyg mewn colofn gyda gwahanol liwiau trwy ddefnyddio cod VBA
Mewn gwirionedd, nid oes unrhyw ffordd uniongyrchol inni orffen y swydd hon yn Excel, ond, efallai y bydd y cod VBA isod yn eich helpu, gwnewch fel a ganlyn:
1. Dewiswch y golofn o werthoedd yr ydych am dynnu sylw atynt yn dyblygu gyda lliwiau gwahaniaeth, yna daliwch y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnwch sylw at werthoedd dyblyg mewn gwahanol liwiau:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. Ac yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn eich atgoffa i ddewis yr ystod ddata rydych chi am dynnu sylw at y gwerthoedd dyblyg, gweler y screenshot:
4. Yna cliciwch OK botwm, mae'r holl werthoedd dyblyg wedi'u hamlygu mewn gwahanol liwiau, gweler y screenshot:
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!