missbb

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-8-23 19:35 | 只看該作者

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

想要清除範圍內的顏色 (但是要保留原有的格式化設定), 用下程式碼卻不行, 請指教是那兒錯了?

Sub test()
Dim i As Integer
lastrow = Range("a" & Rows.Count).End(xlUp).Row
For i = 7 To Sheets.Count
With Sheets(i).Range("F4:aj" & lastrow)
.ClearContents
.Interior.ColorIndex = xlNone
End With
Next i
End Sub

複製代碼

樓主熱帖

lcctno

中學生 Rank: 2

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

2^#

發表於 2015-8-23 20:18 | 只看該作者

我是使用錄製的方法得到的工程碼
.Interior.ColorIndex = xlNone 改為以下或許可行
Selection.FormatConditions.Delete

TOP

missbb

中學生 Rank: 2

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

3^#

發表於 2015-8-23 20:25 | 只看該作者

回復 2# lcctno

已試但不支援此方法, 附上檔案.

表格TEST2.rar (48.59 KB)
下載次數: 7

2015-8-23 20:25

複製代碼

第2個問題是想在不同工作表, 清除F4至AJ 最後一行的內容及顏色, 以D17 開工人數為標記, 因很工作表人數不同, 只寫了下列就不懂了???:'(

Sub 清除F4至AJLR()
'想清除F4至AJ 最後一行的內容及顏色, 以D17 開工人數為標記, 因很工作表人數不同
Dim r As Variant
Dim c As Variant
Dim cl As Variant
Worksheets("taiwan").Activate
Set c = Range("D4:D20").Find("開工人數")
If Not c Is Nothing Then
c.Select
r = Selection.Row '返回行
cl = Selection.Column '返回列
End If
End Sub

複製代碼

TOP

lcctno

中學生 Rank: 2

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

4^#

發表於 2015-8-23 20:48 | 只看該作者

由於我是新手很多的vba我都是使用錄製巨集的方式來使用然後想辦法減去不需要的程式碼雖然上不了檯面但那是初學者的我最快的方法就只有這招了但蠻好用的您可以自己試試用錄製巨集的方式拆招

TOP

ikboy

中學生 Rank: 2

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

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("D4

20").Find("開工人數")
If Not c Is Nothing Then
c.Select
r = c.Row '返回行
cl = c.Column '返回列
End Sub

TOP

missbb

中學生 Rank: 2

帖子: 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