Skip to main content

Conas innéacs dath cúlra na gcealla in Excel a chinneadh agus a aithint?

Nuair a fhaigheann tú bileog ina bhfuil ilchealla ildaite mar atá faoi bhun an scáileáin a thaispeántar, i gcásanna áirithe, b’fhéidir gur mhaith leat innéacs dath cúlra na gcealla datha seo a aithint. Níl aon ghné ionsuite ann a fhéadann innéacs dathanna cille a chinneadh, ach, san alt seo, tugaim isteach roinnt cóid VBA chun an post seo in Excel a réiteach go tapa.
innéacs dath 1 a chinneadh

Ainmnigh dath na cille le VBA


Ainmnigh dath na cille le VBA

Déan mar a leanas céimeanna chun dath na cille le VBA a chinneadh.

1. Brúigh Alt + F11 eochracha chun an Microsoft Visual Basic le haghaidh Feidhmchláir fhuinneog.
innéacs dath 2 a chinneadh

2. cliceáil Ionsáigh > Modúil nua a oscailt Modúil agus greamaigh faoi bhun chód VBA leis an script bán. Féach an pictiúr:

VBA: Faigh cód heics traidisiúnta na cille

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function
innéacs dath 3 a chinneadh
innéacs dath 4 a chinneadh

3. Sábháil an cód agus dún an fhuinneog VBA. Roghnaigh cill bhán in aice leis an gcill daite, clóscríobh an fhoirmle seo, = getRGB1 (A16), ansin tarraing an láimhseáil autofill thar na cealla is mian leat a úsáid. Féach an pictiúr:

innéacs dath 5 a chinneadh
innéacs dath 6 a chinneadh

Leid: tá roinnt cóid eile ann a fhéadann innéacs dathanna na cille a aithint.

1. VBA: Luach deachúil do gach cód

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

Toradh:
innéacs dath 7 a chinneadh

2. VBA: Luachanna deachúlacha

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

Toradh:
innéacs dath 8 a chinneadh


roghnaigh luachanna dúblacha nó uathúla go tapa i raon Excel

I mbileog Excel, má tá raon agat a chuimsíonn roinnt sraitheanna dúblacha, b’fhéidir go mbeidh ort iad a roghnú nó gan iad a íoc, ach conas is féidir an post seo a réiteach go tapa? Má tá sé agat Kutools le haghaidh Excel, is féidir leat é a úsáid Roghnaigh Dúblach & Cealla Uathúla fóntais chun na cinn dhúblacha nó na luachanna uathúla sa raon a roghnú go tapa, nó dath cúlra agus cló a líonadh do na dúblacha agus na luachanna uathúla.  Cliceáil le haghaidh triail saor in aisce 30 lá!
aibhsigh doc dúblach thar cholúin 6
 
Kutools for Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

Ailt Choibhneasta:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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 ...

Tuairisc


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á!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Alle codes die ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
This comment was minimized by the moderator on the site
I'm sorry, the site translates by itself...

I'm wondering why this doesnt work with colored cells using conditional formatting.
All programs on this page give a "blank" result, so no color at all even though the cell is colored.
If I color the cell myself instead of conditional formatting I get the right result back but i need the conditional formatting too!

Hope to hear from you!
This comment was minimized by the moderator on the site
Excelente Post, me ajudou. Parabéns
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations