Note: The other languages of the website are Google-translated. Back to English

Sut i gadw llinellau grid wrth lenwi lliw yn Excel?

Fel y gwyddom i gyd, pan fyddwn yn llenwi lliw cefndir i gelloedd, bydd y llinellau grid yn cael eu gorchuddio hefyd, yn yr achos hwn, sut y gallem gadw'r llinellau grid wrth lenwi lliw cefndir mewn celloedd Excel i ddangos y screenshot canlynol.

doc cadw llinellau grid yn llenwi lliw 1

Cadw llinellau grid wrth lenwi lliw â chod VBA


swigen dde glas saeth Cadw llinellau grid wrth lenwi lliw â chod VBA


Fel rheol, nid oes unrhyw ffordd uniongyrchol inni ddatrys y swydd hon, ond, yma, gallaf gyflwyno cod VBA i chi. Gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y chwith Prosiect-VBAProject cwarel, cliciwch ddwywaith Llyfr Gwaith hwn o dan yr estynedig Prosiect VBA, yna copïwch a gludwch y cod VBA canlynol i'r Modiwl gwag:

Cod VBA: cadw llinellau grid wrth lenwi lliw

Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not xRgPre Is Nothing Then DrawBorders xRgPre
    Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
    Dim xCell As Range
    Application.ScreenUpdating = False
    For Each xCell In Rg
        If xCell.Interior.ColorIndex = xlNone Then
            With xCell.Borders
                If .ColorIndex = 15 Then
                    .LineStyle = xlNone
                End If
            End With
        Else
            With xCell.Borders
                If .LineStyle = xlNone Then
                    .Weight = xlThin
                    .ColorIndex = 15
                End If
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

doc cadw llinellau grid yn llenwi lliw 2

3. Ac yna arbed a chau ffenestr y cod, nawr, pan fyddwch chi'n llenwi lliw ar gyfer ystod o gelloedd, bydd y llinellau grid yn cael eu dangos yn awtomatig.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (16)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Trwsiad gwych!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n iawn, ond yn anffodus bob tro rydw i nawr yn clicio ar gell, mae'r beirniaid taflen waith! Wedi tynnu'r VBA ac mae'r dyfarnwr wedi dod i ben. Tybed pam ddylai hyn ddigwydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Vic,
Nid oes unrhyw broblem hon yn fy llyfr gwaith Excel, pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un peth yma ag Excel 2016. Rwy'n mynd yn rhewi ac yn bennaf yn cuddio'r sgrin am sawl eiliad, yn enwedig wrth ddewis llawer o gelloedd. Mae'n drueni oherwydd mae'n gweithio'n berffaith fel arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yn gweithio ond mae'n rhaid cywiro'r gwall os gwelwch chi.
Dim xRgPre Fel Ystod
Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)
Ar Ail-ddechrau Gwall Nesaf
Os Nad Ydy xRgPre Yn Dim Yna Draw Borders xRgPre
Gosod xRgPre = Targed


*************************************
A DDARLLEN... gan fod y datganiad If ond yn sicrhau bod rhywbeth yno i'w osod i'r cof.

Gallai un osod y llinell nesaf isod ar gyfer glanhau a pheidio â chaniatáu gollyngiadau cof.

Is Gweithlyfr Preifat_TaflenSelectionChange(ByVal Sh Fel Gwrthrych, ByVal Target As Range)
Ar Ail-ddechrau Gwall Nesaf
Gosod xRgPre = Targed
Os Nad Ydy xRgPre Yn Dim Yna Draw Borders xRgPre
'Oherwydd sicr nid yw gollyngiadau cof yn digwydd
'Glanhau'r cof a neilltuwyd ar ôl nad oes ei angen.
Gosod xRqPre = Dim byd



Cael diwrnod braf..
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n gweithio gyda Fformatio Amodol. Gosod xRqPre = Nid oes dim yn rhoi gwall: newidyn heb ei ddiffinio (dilëwyd y llinell). Jiggle sgrin yma hefyd, gan ddefnyddio 2010. Yn ddoeth arall, mae'n arf cŵl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
defnyddio lliwiau safonol yn unig ;)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cŵl, ond nawr os byddaf yn llenwi rhai celloedd, ac yn taro Ctrl + Z i ddadwneud, ni fydd yn gweithio. Ni fydd yn dadwneud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Andrew,
Oes, ni all y cod uchod gefnogi nodwedd Dadwneud, ni ddylech lenwi unrhyw liw â llaw i ddadwneud eich gwaith.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ateb arall, os nad ydych chi eisiau llanast gyda'r cod:
Yn gyntaf, nodwch pa liw llwyd sy'n cyd-fynd â'r llinellau rhagosodedig a chadwch hynny mewn golwg.
Yn y tab Cartref cliciwch ar arddulliau Cell, cliciwch ar y dde ar Normal, cliciwch ar Addasu -> Fformat -> Border. Ar gyfer Lliw Llinell, dewiswch y llwyd hwnnw. Ar gyfer Rhagosodiadau, dewiswch Amlinelliad. Wedi'i wneud.
Nawr efallai y bydd yn rhaid i chi ddewis pob un (CTRL + A / Command + A) a chlicio ar arddulliau Cell -> Normal i sicrhau ei fod yn cael ei gymhwyso i bob cell. Pan fyddwch chi'n llenwi cell, bydd y ffiniau'n aros.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Alissa , roedd gen i'r un broblem, ni allwn ei thrwsio ond fe helpodd eich ateb fi lawer , felly diolch yn fawr iawn , rydych chi'n athrylith .
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn o gymorth mawr i mi. Yn llythrennol rydw i wedi bod yn chwilio cymaint o lefydd a dyma'r unig esboniad weithiodd! Diolch!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn - diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Roeddwn i'n tynnu blew yn ceisio cael y borders llwyd-ish neis i aros ar ôl lliwio. Methu credu nad yw Microsoft wedi gweithredu hyn yn barod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych. (Diolch) Ond dyma'r cwestiwn go iawn - Pam mae Excel yn caniatáu i linellau grid ddiflannu wrth lenwi celloedd â lliw yn y lle cyntaf? Dim ond gwall mud arall yn y byd technolegol nad yw datblygwyr deallus, fel y'i gelwir, byth yn meddwl amdano. Hynny yw, mae'r llinellau grid, yn ddiofyn, i fod yno beth bynnag ......
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir