導航:首頁 > 程序命令 > 顏色命令宏

顏色命令宏

發布時間:2023-07-08 01:44:07

① Excel利用宏填充顏色

If Sheets(1).Selection.Interior.ColorIndex = 15 Then
運行這句時會顯示: 對象不支持該屬性或方法.問題在於前一句定義了"Sheets(1).Cells(i, j).Select"
所以這里只用 "If Selection.Interior.ColorIndex = 15 Then"
另外,如果只是將程序改為 "If Selection.Interior.ColorIndex = 15 Then" 那麼下面的判斷就不能用
Sheets(2).Cells(i, j).Select
Sheets(2).Selection.Interior.ColorIndex = 1
這兩句, 因為Sheets(2).Cells(i, j).Select這句會造成Selection區域的改變,從而會產生新的錯誤.

Sub 填色()
Dim i As Integer
Dim j As Integer
Sheets(1).Select
For i = 1 To Sheets(1).UsedRange.Rows.Count
For j = 1 To Sheets(1).UsedRange.Columns.Count
Sheets(1).Cells(i, j).Select
If Selection.Interior.ColorIndex = 15 Then
Sheets(2).Cells(i, j).Interior.ColorIndex = 1
End If
Next j
Next i
End Sub

把程序改為這樣,應該是比較少的改動了.如果你想優化,還是參照上面的回復.

② Eecel中如何實現使用宏命令改變表格內所有字體顏色

該表表格所有字體顏色的VBA代碼:

Cells.Font.Color=RGB(0,255,0)


RGB表示紅、綠、藍的組合,如果需要為白色就是RGB(255,255,255),黑色就是RGB(0,0,0)

閱讀全文

與顏色命令宏相關的資料

熱點內容
最長連續遞減子序列python 瀏覽:154
電腦編譯系統有哪些 瀏覽:914
新建的文件夾另一部手機讀不出來 瀏覽:989
怎麼把安卓app傳到新iphone 瀏覽:37
安卓伺服器如何關閉 瀏覽:581
linux登陸不了 瀏覽:553
單片機供電時出現亂碼 瀏覽:612
解壓ae要多久 瀏覽:51
江蘇省超級伺服器雲主機 瀏覽:160
星際譯王linux安裝 瀏覽:4
導微信賬單不發解壓碼是什麼情況 瀏覽:96
如何手動刪除安卓app 瀏覽:11
帝國時代2征服者解壓包怎麼安裝 瀏覽:949
python抓取url 瀏覽:921
有些硬碟能加密 瀏覽:637
安卓車機怎麼換開局動畫 瀏覽:689
安卓手機如何設置卸載軟體 瀏覽:88
用友加密狗號給別人 瀏覽:221
電腦裡面怎麼找到編譯器 瀏覽:495
編譯速度與相關 瀏覽:296