Skip i'r prif gynnwys

Awto-amlygu rhes a cholofn weithredol yn Excel (Canllaw Llawn)

Gall llywio trwy daflenni gwaith Excel helaeth sy'n llawn data fod yn heriol, ac mae'n hawdd colli golwg ar eich lle neu werthoedd wedi'u camddarllen. Er mwyn gwella'ch dadansoddiad data a lleihau'r siawns o wallau, byddwn yn cyflwyno 3 ffordd wahanol o dynnu sylw'n ddeinamig at res a cholofn cell ddethol yn Excel. Wrth i chi symud o gell i gell, mae'r amlygu'n symud yn ddeinamig, gan ddarparu ciw gweledol clir a greddfol i'ch cadw chi i ganolbwyntio ar y data cywir fel y dangosir y demo a ganlyn:

Awto-amlygu rhes a cholofn weithredol yn Excel

Fideo: Awto-amlygu rhes a cholofn weithredol yn Excel

Awto-amlygu rhes a cholofn weithredol gyda chod VBA

Er mwyn amlygu colofn a rhes gyfan y gell a ddewiswyd yn awtomatig yn y daflen waith gyfredol, efallai y bydd y cod VBA canlynol yn eich helpu i gyflawni'r dasg hon.

Cam 1: Agorwch y daflen waith lle rydych chi am amlygu rhes a cholofn weithredol yn awtomatig

Cam 2: Agorwch olygydd modiwl taflen VBA a chopïwch y cod

  1. De-gliciwch enw'r ddalen, a dewiswch Gweld y Cod o'r ddewislen cyd-destun, gweler y screenshot:
  2. Yn y golygydd modiwl dalen VBA a agorwyd, copïwch a gludwch y cod canlynol i'r modiwl gwag. Gweler y sgrinlun:
    Cod VBA: rhes auto-dynnu a cholofn y gell a ddewiswyd 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
     Cells.Interior.ColorIndex = xlNone
    rowRange.Interior.Color = RGB(248, 150, 171)
    colRange.Interior.Color = RGB(173, 233, 249)
End Sub
    Awgrymiadau: Addaswch y cod
    • I newid y lliw uchafbwynt, yn syml, mae angen i chi addasu'r gwerth RGB yn y sgriptiau canlynol:
      rowRange.Interior.Color = RGB(248, 150, 171)
      colRange.Interior.Color = RGB(173, 233, 249)
    • I dynnu sylw at y rhes gyfan o gell a ddewiswyd yn unig, tynnwch y llinell hon neu gwnewch sylw ohoni (ychwanegwch gollnod ar flaen y llinell):
      colRange.Interior.Color = RGB(173, 233, 249)
    • I amlygu colofn gyfan y gell a ddewiswyd yn unig, tynnwch y llinell hon neu gwnewch sylw ohoni (ychwanegwch gollnod ar flaen y llinell hon):
      rhesRange.Interior.Color = RGB(248, 150, 171)

  3. Yna, caewch ffenestr golygydd VBA i ddychwelyd i'r daflen waith.

Canlyniad:

Nawr, pan fyddwch chi'n dewis cell, mae rhes a cholofn gyfan y gell honno'n cael eu hamlygu'n awtomatig, ac mae'r uchafbwynt yn symud yn ddeinamig wrth i'r gell a ddewiswyd newid fel y dangosir y demo isod:

Nodiadau:
  • Bydd y cod hwn yn clirio'r lliwiau cefndir o'r holl gelloedd yn y daflen waith, felly, ceisiwch osgoi defnyddio'r datrysiad hwn os oes gennych gelloedd gyda lliwio arferol.
  • Bydd rhedeg y cod hwn yn analluogi'r Dadwneud nodwedd yn y daflen, sy'n golygu na allwch wrthdroi unrhyw gamgymeriadau trwy wasgu'r Ctrl + Z llwybr byr.
  • Ni fydd y cod hwn yn gweithio mewn taflen waith warchodedig.
  • Er mwyn rhoi'r gorau i amlygu rhes a cholofn y gell a ddewiswyd, bydd angen i chi gael gwared ar y cod VBA a ychwanegwyd yn flaenorol. Ar ôl hynny, i ailosod yr amlygu trwy glicio Hafan > Llenwch liw > Dim llenwi.

Awto-amlygu rhes a cholofn weithredol gyda dim ond un clic o Kutools

Yn wynebu cyfyngiadau cod VBA yn Excel? Kutools ar gyfer Excel's Ffocws ar y Grid nodwedd yw eich ateb delfrydol! Wedi'i gynllunio i fynd i'r afael â diffygion VBA, mae'n cynnig amrywiaeth eang o arddulliau amlygu i wella'ch profiad dalennau. Gyda'i allu i gymhwyso'r arddulliau hyn ar draws yr holl lyfrau gwaith agored, Kutools yn sicrhau proses rheoli data sy’n gyson effeithlon ac yn ddeniadol i’r golwg.

Nodyn: Os ydych am ddefnyddio hwn Ffocws ar y Grid nodwedd, os gwelwch yn dda lawrlwytho a gosod Kutools ar gyfer Excel gyntaf.

Ar ôl gosod Kutools ar gyfer Excel, Cliciwch Kutools > Ffocws ar y Grid i alluogi'r nodwedd hon. Nawr, gallwch weld y rhes a cholofn o gell gweithredol yn cael eu hamlygu ar unwaith. Mae'r uchafbwynt hwn yn symud yn ddeinamig i'w ddilyn wrth i chi newid eich dewis cell. Gweler y demo isod:

⭐ Manteision Allweddol nodwedd Grid Focus:
  • Yn cadw lliwiau cefndir celloedd gwreiddiol:
    Yn wahanol i'r cod VBA, mae'r nodwedd hon yn parchu fformatio presennol eich taflen waith.
  • Gellir ei ddefnyddio mewn dalennau gwarchodedig:
    Mae'r nodwedd hon yn gweithio'n ddi-dor o fewn taflenni gwaith gwarchodedig, gan ei gwneud yn ddelfrydol ar gyfer rheoli dogfennau sensitif neu rai a rennir heb beryglu diogelwch.
  • Nid yw'n effeithio ar y swyddogaeth Dadwneud:
    Gyda'r nodwedd hon, rydych chi'n cadw mynediad llawn i ymarferoldeb dadwneud Excel. Mae hyn yn sicrhau y gallwch chi ddychwelyd newidiadau yn hawdd, gan ychwanegu haen o ddiogelwch at eich trin data.
  • Perfformiad sefydlog gyda data mawr:
    Mae'r nodwedd hon wedi'i chynllunio i drin setiau data mawr yn effeithlon, gan sicrhau perfformiad sefydlog hyd yn oed mewn taenlenni cymhleth a data-ddwys.
  • Arddulliau amlygu lluosog:
    Mae'r nodwedd hon yn cynnig amrywiaeth o opsiynau amlygu, sy'n eich galluogi i ddewis o wahanol arddulliau a lliwiau i wneud i'ch cell weithredol o res, colofn neu res a cholofn sefyll allan mewn ffordd sy'n gweddu orau i'ch dewisiadau a'ch anghenion.
Awgrym:

Awto-amlygu rhes a cholofn weithredol gyda Fformatio Amodol

Yn Excel, gallwch hefyd sefydlu Fformatio Amodol i dynnu sylw'n awtomatig at y rhes a'r golofn weithredol. I sefydlu'r nodwedd hon, dilynwch y camau hyn:

Cam 1: Dewiswch yr ystod ddata

Yn gyntaf, dewiswch yr ystod o gelloedd yr ydych am i'r nodwedd hon fod yn berthnasol iddynt. Gallai hyn fod y daflen waith gyfan neu set ddata benodol. Yma, byddaf yn dewis y daflen waith gyfan.

Cam 2: Fformatio Amodol Mynediad

Cliciwch Hafan > Fformatio Amodol > Rheol Newydd, gweler y screenshot:

Cam 3: Gosodwch y gweithrediadau yn y Rheol Fformatio Newydd

  1. Yn y Rheol Fformatio Newydd blwch deialog, dewiswch Defnyddiwch fformiwla i bennu pa gelloedd i'w fformatio oddi wrth y Dewiswch Math o Reol blwch rhestr.
  2. Yn y Gwerthoedd fformat lle mae'r fformiwla hon yn wir blwch, nodwch un o'r fformiwlâu hyn, yn yr enghraifft hon, byddaf yn cymhwyso'r drydedd fformiwla i dynnu sylw at y rhes a'r golofn weithredol.
    I amlygu rhes weithredol: 
    =CELL("row")=ROW()
    I amlygu colofn weithredol: 
    =CELL("col")=COLUMN()
    I amlygu rhes a cholofn weithredol: 
    =OR(CELL("row")=ROW(), CELL("col")= COLUMN())
  3. Yna, cliciwch fformat botwm.
  4. Yn y canlynol Celloedd Fformat blwch deialog, o dan y Llenwch tab, dewiswch un lliw i amlygu'r rhes a'r golofn weithredol yn ôl yr angen, gweler y sgrinlun:
  5. Yna, cliciwch OK > OK i gau'r dialogau.

Canlyniad:

Nawr, gallwch weld y golofn gyfan a'r rhes o gell A1 wedi'u hamlygu ar unwaith. I gymhwyso'r amlygu hwn i gell arall, cliciwch ar y gell a ddymunir a gwasgwch y botwm F9 allwedd i adnewyddu'r ddalen, a fydd wedyn yn amlygu colofn a rhes gyfan y gell sydd newydd ei dewis.

Awgrym: 
  • Yn wir, er bod y dull Fformatio Amodol ar gyfer amlygu yn Excel yn cynnig ateb, nid yw mor ddi-dor â defnyddio VBA ac Ffocws ar y Grid nodwedd. Mae'r dull hwn yn gofyn am ailgyfrifo'r ddalen â llaw (a gyflawnir trwy wasgu'r F9 allweddol).
    Er mwyn galluogi ailgyfrifo eich taflen waith yn awtomatig, gallwch ymgorffori cod VBA syml ym modiwl cod eich taflen darged. Bydd hyn yn awtomeiddio'r broses adnewyddu, gan sicrhau'r diweddariadau amlygu ar unwaith wrth i chi ddewis gwahanol gelloedd heb wasgu'r F9 cywair. Cliciwch ar y dde ar enw'r ddalen, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun. Yna copïwch a gludwch y cod canlynol i'r modiwl dalen: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Target.Calculate
End Sub
  • Mae'r Fformatio Amodol yn cadw'r fformatio presennol yr ydych wedi'i gymhwyso â llaw i'ch taflen waith.
  • Mae'n hysbys bod Fformatio Amodol yn gyfnewidiol, yn enwedig pan gaiff ei gymhwyso i setiau data mawr iawn. Gall ei ddefnydd helaeth o bosibl arafu perfformiad eich llyfr gwaith, gan effeithio ar effeithlonrwydd prosesu data a llywio.
  • Dim ond mewn fersiynau Excel 2007 y mae swyddogaeth CELL ar gael ac yn ddiweddarach, nid yw'r dull hwn yn gydnaws â fersiynau cynharach o Excel.

Cymhariaeth o'r Dulliau uchod

nodwedd Cod VBA Fformatio Amodol Kutools ar gyfer Excel
Cadw lliw cefndir cell Na Ydy Ydy
Yn cefnogi Dadwneud Na Ydy Ydy
Sefydlog mewn setiau data mawr Na Na Ydy
Gellir ei ddefnyddio mewn dalennau gwarchodedig Na Ydy Ydy
Yn berthnasol i bob llyfr gwaith agored Dim ond taflen gyfredol Dim ond taflen gyfredol Pob llyfr gwaith agored
Angen adnewyddu â llaw (F9) Na Ydy Na

Mae hynny'n cloi ein canllaw ar sut i dynnu sylw at y golofn a'r rhes o gell ddethol yn Excel. Os oes gennych ddiddordeb mewn archwilio mwy o awgrymiadau a thriciau Excel, mae ein gwefan yn cynnig miloedd o diwtorialau, os gwelwch yn dda cliciwch yma i gael mynediad iddynt. Diolch am ddarllen, ac edrychwn ymlaen at ddarparu mwy o wybodaeth ddefnyddiol i chi yn y dyfodol!

Erthyglau cysylltiedig:

  • Rhes a cholofn awto-dynnu sylw at gell weithredol
  • Pan edrychwch ar daflen waith fawr gyda nifer o ddata, efallai yr hoffech dynnu sylw at res a cholofn y gell a ddewiswyd fel y gallwch ddarllen y data yn hawdd ac yn reddfol er mwyn osgoi eu camddarllen. Yma, gallaf gyflwyno rhai triciau diddorol i chi i dynnu sylw at res a cholofn y gell gyfredol, pan fydd y gell yn cael ei newid, mae colofn a rhes y gell newydd yn cael eu hamlygu'n awtomatig.
  • Tynnwch sylw at bob rhes neu golofn arall yn Excel
  • Mewn taflen waith fawr, mae amlygu neu lenwi pob un arall neu bob nfed rhes neu golofn yn gwella gwelededd data a darllenadwyedd. Mae nid yn unig yn gwneud i'r daflen waith edrych yn daclus ond mae hefyd yn eich helpu i ddeall y data yn gyflymach. Yn yr erthygl hon, byddwn yn eich arwain trwy wahanol ddulliau i liwio pob un arall neu'r nfed rhes neu golofn, gan eich helpu i gyflwyno'ch data mewn modd mwy apelgar a syml.
  • Tynnwch sylw at y rhes gyfan / gyfan wrth sgrolio
  • Os oes gennych daflen waith fawr gyda sawl colofn, bydd yn anodd ichi wahaniaethu data ar y rhes honno. Yn yr achos hwn, gallwch dynnu sylw at y rhes gyfan o gell weithredol fel y gallwch weld y data yn y rhes honno yn gyflym ac yn hawdd pan fyddwch chi'n sgrolio i lawr y bar sgrolio llorweddol. Yr erthygl hon, byddaf yn siarad am rai triciau i chi ddatrys y broblem hon. .
  • Amlygwch resi yn seiliedig ar y gwymplen
  • Bydd yr erthygl hon yn siarad am sut i dynnu sylw at resi yn seiliedig ar gwymplen, cymerwch y screenshot canlynol er enghraifft, pan fyddaf yn dewis “In Progress” o’r gwymplen yng ngholofn E, mae angen i mi dynnu sylw at y rhes hon gyda lliw coch, pan fyddaf yn dewiswch “Wedi'i gwblhau” o'r gwymplen, mae angen i mi dynnu sylw at y rhes hon gyda lliw glas, a phan fyddaf yn dewis “Not Started”, bydd lliw gwyrdd yn cael ei ddefnyddio i dynnu sylw at y rhes.
Comments (61)
Rated 5 out of 5 · 1 ratings
dreams knight
dreams knight
This comment was minimized by the moderator on the site
And please reply to an email
Reply
0
0
dreams knight
dreams knight
This comment was minimized by the moderator on the site
Great job . But in the first task at the top of the browser page, when I did it, it was working correctly, but when I made protection for the sheet, it stopped working correctly, you see, what's the solution. Thank you
Reply
0
0
skyyang
skyyang     dreams knight
This comment was minimized by the moderator on the site
Hello,
To solve your problem, please apply the followign code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    Me.Unprotect
    Cells.Interior.ColorIndex = xlNone
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    rowRange.Interior.Color = RGB(173, 233, 249)
    colRange.Interior.Color = RGB(173, 233, 249)
    Me.Protect
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    
    ' Clear previous highlighting
    Me.Cells.FormatConditions.Delete
    
    ' Check if Checkbox1 is checked
    ' If CheckBox1.Value = True Then
        ' Check if a single cell or a range of cells is selected
        If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
            Dim selectedRange As Range
            Dim selectedRows As Range
            Dim selectedColumns As Range
            
            Set selectedRange = Target
            Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
            Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)
            
            ' Add conditional formatting to highlight the selected rows
            With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
            
            ' Add conditional formatting to highlight the selected columns
            With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
                .Interior.Color = RGB(255, 230, 153) ' Yellow color
            End With
        End If
    ' End If
    
    On Error GoTo 0
End Sub
Reply
Report
0
0
sahudewa@gmail.com
This comment was minimized by the moderator on the site
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

' Clear previous highlighting
Me.Cells.FormatConditions.Delete

' Check if a single cell or a range of cells is selected
If Target.Cells.Count = 1 Or Target.Cells.Count > 1 Then
Dim selectedRange As Range
Dim selectedRows As Range
Dim selectedColumns As Range

Set selectedRange = Target
Set selectedRows = Me.Range(Me.Cells(selectedRange.Row, 1), Me.Cells(selectedRange.Row + selectedRange.Rows.Count - 1, 1).EntireRow)
Set selectedColumns = Me.Range(Me.Cells(1, selectedRange.Column), Me.Cells(1, selectedRange.Column + selectedRange.Columns.Count - 1).EntireColumn)

' Add conditional formatting to highlight the selected rows
With selectedRows.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With

' Add conditional formatting to highlight the selected columns
With selectedColumns.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE")
.Interior.Color = RGB(255, 230, 153) ' Yellow color
End With
End If

On Error GoTo 0
End Sub
Reply
Report
0
0
Disgruntled Researcher
Disgruntled Researcher
This comment was minimized by the moderator on the site
can you please post code in VBA format? trying to figure out what your code looks like from what you posted in a jumble is frustrating.
Reply
0
0
A. Patel
A. Patel
This comment was minimized by the moderator on the site
Hi,

The above code is brilliant. But i have two questions and if you can help then will be much appreciated. Let me know if there is cost associated with it.

1. The above code is removing my previous formatting of the cells. Eg. if i have got the cells filld with blue then above code clears that fill.
2. Is there a code that i can use when i am extracting values from another sheet and that row in the that sheet gets highlighted as well. Eg. I want to extract vale from another cell, so when i press = sign in sheet 1 and then when i move to sheet 2 to bring the value the row in the sheet doesn't get highlighted.

Regards,
Reply
0
0
skyyang
skyyang     A. Patel
This comment was minimized by the moderator on the site
Hello, Patel
For the first question:
It may be difficult to modify the VBA code, so, I recommend you to apply the Conditional Formatting feature for solving this problem, the following article may help you:
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html

Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

For the second question:
Sorry, I can't solve this problem at present,😜
Reply
Report
0
0
2Took
2Took
This comment was minimized by the moderator on the site
How do you modify the code so that:
1. It does not permanently strip existing colors of cells. Currently, after another cell is selected, it leaves colorless previous row. I'd like to keep the colors of the worksheet, as they were before row was highlighted by this code.
2. Limit the highlight width to only Columns A thru K, not the entire row.
Reply
0
0
skyyang
skyyang     2Took
This comment was minimized by the moderator on the site
Hello,
It may be difficult to modify the VBA code, so, here, I recommend you to apply the Conditional Formatting feature for solving this problem, please view the below article: (Note: if you need to highlight the column A to column K, you just need to select the range you need, and then apply the conditional formatting.)
https://www.extendoffice.com/documents/excel/3500-excel-highlight-selected-row-conditional-formatting.html


Or you can use the Kutools for Excel' Reading Layout feature, you can try it 30 days for free.
Please download from: https://www.extendoffice.com/download/kutools-for-excel.html

Please try, hope it can help you!
Reply
Report
0
0
Jerry
Jerry
This comment was minimized by the moderator on the site
Thank you so much for this tip!!!
Reply
0
0
Rated 5 out of 5
Rodney
Rodney
This comment was minimized by the moderator on the site
Another easy way to highlight your rows: https://youtu.be/iOF06mZDGIk
Reply
0
0
Gues
Gues
This comment was minimized by the moderator on the site
FAIL. Wiped out all my other cell formatting irreversibly. And doesn't work if the sheet is protected. FAIL.
Reply
0
0
crystal
crystal     Gues
This comment was minimized by the moderator on the site
Hi Gues,The code does not work in a protected worksheet. If you want to keep the original cell formatting, please try the below code.The Reading Layout feature of Kutools is stable and handy, maybe you can download a free trial to have a try.
<div data-tag="code">Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Update 202001106
Static xRow
Static xColumn

Dim xWs As Worksheet
Dim xCRg, xCRg1, xRRg, xRRg1, xOHRg As Range
Dim xAHRORg, xAHRORg1 As Range
Dim xAWs As Worksheet
Dim xFNum As Integer
Dim xCll As Range

On Error Resume Next

Application.ScreenUpdating = False
pRow = Selection.Row
pColumn = Selection.Column

Set xWs = ActiveWorkbook.Worksheets.Item("AutoHighlightRAndC")
Set xAWs = Target.Worksheet
If xWs Is Nothing Then
Set xWs = ActiveWorkbook.Worksheets.Add
xWs.Name = "AutoHighlightRAndC"
xWs.Visible = xlSheetHidden
xAWs.Activate
End If

If xColumn <> "" Then
Set xCRg = Columns(xColumn)
xCRg.Interior.ColorIndex = xlNone
Set xCRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg.Count
Set xAHRORg1 = xAWs.Cells(xFNum, xColumn)
Set xAHRORg = xWs.Cells(xFNum, xColumn)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xCRg.Item(xFNum).Interior.ColorIndex = xWs.Columns(xColumn).Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(xRow)
xRRg.Interior.ColorIndex = xlNone
Set xRRg = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xRRg.Count
Set xAHRORg1 = xAWs.Cells(xRow, xFNum)
Set xAHRORg = xWs.Cells(xRow, xFNum)
xAHRORg1.Interior.ColorIndex = xAHRORg.Interior.ColorIndex
'xRRg.Item(xFNum).Interior.ColorIndex = xWs.Rows(xRow).Item(xFNum).Interior.ColorIndex
Next

End If

xRow = pRow
xColumn = pColumn

Set xCRg = Columns(pColumn)
Set xCRg1 = Intersect(xCRg.Worksheet.UsedRange, xCRg)
For xFNum = 1 To xCRg1.Count
Set xOHRg = xWs.Cells(xFNum, pColumn)
xOHRg.Interior.ColorIndex = xCRg1.Item(xFNum).Interior.ColorIndex
Next

Set xRRg = Rows(pRow)
Set xRRg1 = Intersect(xRRg.Worksheet.UsedRange, xRRg)

For xFNum = 1 To xRRg1.Count
Set xCll = xWs.Cells(pRow, xFNum)
xCll.Interior.ColorIndex = xRRg1.Item(xFNum).Interior.ColorIndex
Next
xCRg.Interior.ColorIndex = 34
xRRg.Interior.ColorIndex = 34
Application.ScreenUpdating = True
End Sub
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations