返回列表 上一主題 發帖

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

missbb

帖子
215 
主題
70 
精華
0 
積分
290 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-1-29 
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

帖子
215 
主題
70 
精華
0 
積分
290 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-1-29 
2#
發表於 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

missbb

帖子
215 
主題
70 
精華
0 
積分
290 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-1-29 
3#
發表於 2015-8-24 20:45 | 顯示全部帖子
回復 5# ikboy

THANKS

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題