返回列表 上一主題 發帖

[發問] 取消著色

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-6-14 17:34 | 只看該作者

[發問] 取消著色

Dear,
Range("J4:Y" & xRow)都是有著色的,我想讓Range>0則取消著色,但以下程式會把Range內無論是否>0全取消著色,
可否幫忙看下語法上是否有誤?
取消著色.rar (25.83 KB)
  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
複製代碼
收藏 分享

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
2#
發表於 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

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2020-6-14 19:57 | 只看該作者
回復 2# 准提部林
Thank u.

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題