如何將sheet中標注顏色的單元格坐標顯示出來,請牛人大蝦幫忙給寫個宏函式,具體見下方截圖!
uj5u.com熱心網友回復:
請參考:Sub test()
Dim Rng As Range, tRng As Range, bgColor As Long, iColor As Long
Set tRng = Range("a1:h7") ''這個范圍自己定義
bgColor = 16777215 ''一般填充色是白色的
For Each Rng In tRng
iColor = Rng.Interior.Color
If iColor <> bgColor Then
Debug.Print Rng.Address(0, 0) & "===>" & iColor
End If
Next
End Sub
uj5u.com熱心網友回復:
麻煩能幫忙寫一個可以完整直接運行的函式嗎?這個東西完全不懂,不知道如何修改代碼!轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/126357.html
標籤:VBA
上一篇:路過
下一篇:如何判斷剪切板為空
