返回列表 上一主題 發帖

如何寫巨集清除有顏色儲存格的內容

新手上路

帖子
1 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
window 7 
軟體版本
MS Office 
閱讀權限
10 
性別
女 
註冊時間
2015-5-8 
最後登錄
2016-5-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-20 09:35 | 只看該作者

如何寫巨集清除有顏色儲存格的內容

請教大大，如何寫巨集清除有顏色儲存格的內容
謝謝!



清除有顏色儲存格內容.zip (15.51 KB)
收藏 分享

justintoolbox

帖子
57 
主題
14 
精華
0 
積分
73 
點名
0  
作業系統
win8.1 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2015-4-2 
最後登錄
2019-6-17 
2#
發表於 2016-6-27 14:05 | 只看該作者
請使用底下代碼
Cells.Interior.Color = xlNone
試試看~

TOP

cjw

帖子
6 
主題
0 
精華
0 
積分
19 
點名
0  
作業系統
windows xp 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
來自
台灣台中 
註冊時間
2016-10-24 
最後登錄
2017-8-22 
3#
發表於 2016-10-25 10:01 | 只看該作者
Sub TEST_A()

For A = 1 To Cells(Rows.Count, "A").End(3).Row

If Cells(A, 1).Interior.ColorIndex <> xlNone Then

Cells(A, 1).Value = ""

End If

Next

End Sub
cjw

TOP

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2024-8-10 
4#
發表於 2017-7-29 09:44 | 只看該作者
本帖最後由 kim223824 於 2017-7-29 09:46 編輯

Sub TEST_B()
         Cells.ClearContents
End Sub

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題