返回列表 上一主題 發帖

[發問] 清除範圍內的顏色

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-8-23 19:35 | 只看該作者

[發問] 清除範圍內的顏色

想要清除範圍內的顏色 (但是要保留原有的格式化設定), 用下程式碼卻不行, 請指教是那兒錯了?
  1. Sub test()
  2. Dim i As Integer
  3.   
  4.    
  5. lastrow = Range("a" & Rows.Count).End(xlUp).Row
  6.    
  7. For i = 7 To Sheets.Count
  8.    With Sheets(i).Range("F4:aj" & lastrow)
  9.    .ClearContents
  10.    .Interior.ColorIndex = xlNone
  11.    
  12.     End With
  13.    
  14.     Next i
  15.    
  16. End Sub
複製代碼
收藏 分享

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
6#
發表於 2015-8-24 20:45 | 只看該作者
回復 5# ikboy

THANKS

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
16  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-10-26 

2016猴年全勤獎章
5#
發表於 2015-8-24 06:31 | 只看該作者
Sub test()
Dim i As Integer
Dim r As Variant
Dim c As Variant
Dim cl As Variant
zr = Rows.Count
For i = 7 To Sheets.Count
    With Sheets(i)
        lastrow = .Range("aj" & zr).End(3).Row
        .Range("F4:aj" & lastrow).Clear  '更直接地刪除內容及格式
        Rem .ClearContents
        Rem .Interior.ColorIndex = xlNone
    End With
Next i
Worksheets("taiwan").Activate
Set c = Range("D420").Find("開工人數")
If Not c Is Nothing Then
   c.Select
   r = c.Row  '返回行
   cl = c.Column '返回列
End Sub

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
305  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
4#
發表於 2015-8-23 20:48 | 只看該作者
由於我是新手 很多的vba我都是使用錄製巨集的方式來使用 然後想辦法減去不需要的程式碼 雖然上不了檯面 但那是初學者的我 最快的方法就只有這招了  但蠻好用的 您可以自己試試用錄製巨集的方式拆招

TOP

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
3#
發表於 2015-8-23 20:25 | 只看該作者
回復 2# lcctno

已試但不支援此方法, 附上檔案.
  1. 表格TEST2.rar (48.59 KB)
複製代碼
第2個問題是想在不同工作表, 清除F4至AJ 最後一行的內容及顏色, 以D17 開工人數 為標記, 因很工作表人數不同, 只寫了下列就不懂了???:'(
  1. Sub 清除F4至AJLR()

  3. '想清除F4至AJ 最後一行的內容及顏色, 以D17 開工人數 為標記, 因很工作表人數不同

  5. Dim r As Variant
  6. Dim c As Variant
  7. Dim cl As Variant

  9. Worksheets("taiwan").Activate

  11. Set c = Range("D4:D20").Find("開工人數")
  12. If Not c Is Nothing Then
  13.    c.Select
  14.    r = Selection.Row  '返回行
  15.    cl = Selection.Column '返回列
  16.    
  17.    End If

  19. End Sub
複製代碼

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
305  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
2#
發表於 2015-8-23 20:18 | 只看該作者
我是使用錄製的方法得到的工程碼
.Interior.ColorIndex = xlNone 改為以下 或許可行
Selection.FormatConditions.Delete

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表 上一主題