[發問] 取消著色

PJChen

Dear,
Range("J4:Y" & xRow)都是有著色的,我想讓Range>0則取消著色,但以下程式會把Range內無論是否>0全取消著色,
可否幫忙看下語法上是否有誤?
取消著色.rar (25.83 KB)

下載次數: 1

2020-6-14 17:30

1. Sub 取消著色()
   
2. Dim Sh As Worksheet, c As Range
   
3. Set Sh = Workbooks("取消著色.xlsx").Sheets("2" & "")
   
4. Sh.Activate
   
5. xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row '料號
   
6. Set xRng = Range("J4:Y" & xRow)
   
7.     With Sh
   
8.         Sh.Activate
   
9.         With xRng.Interior
   
10.             For Each c In xRng
    
11.             If c > 0 Then
    
12.                 .Pattern = xlNone '取消著色
    
13.                 .TintAndShade = 0
    
14.                 .PatternTintAndShade = 0
    
15.             End If
    
16.             Next
    
17.         End With
    
18.     End With
    
19. End Sub

複製代碼

准提部林

Sub 取消著色()
Dim Sh As Worksheet, c As Range
Set Sh = Workbooks("取消著色.xlsx").Sheets("2" & "")
Sh.Activate
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row '料號
Set xRng = Range("J4:Y" & xRow)
For Each c In xRng
    If c > 0 Then
       c.Interior.ColorIndex = xlNone '取消著色
    End If
Next
End Sub

PJChen

回復 2# 准提部林
Thank u.