標題: [發問] 取消著色 [打印本頁]

---

作者: PJChen    時間: 2020-6-14 17:34     標題: 取消著色

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

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

複製代碼

---

作者: 准提部林    時間: 2020-6-14 18:37

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    時間: 2020-6-14 19:57

回復 2# 准提部林
Thank u.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)