顏色宏命令

1. 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

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

2. excel中如何用宏來顏色排序

你指定了排序的范圍，這樣導致排序出現故障
1.你可以嘗試將某一列按照同樣的方法進行排序，然後進行錄制
2.在宏中直接用selection替換掉你手動選擇的范圍後重試

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

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

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

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

4. excel表格填充顏色的快捷命令是什麼

填充顏色沒有專用的快捷鍵，但可以使用面板快捷鍵填充，下面給出使用方法：

所需材料：Excel。

一、打開Excel，按下Alt鍵顯示面板快捷鍵，然後點擊開始菜單的快捷鍵H鍵。

5. wps的宏如何設置字體顏色快捷鍵

用宏。 先拖黑，然後 工具=》 宏 =》 錄制新宏。 點擊「鍵盤」，在「請按新快捷鍵」，按下你想要的快捷鍵， 最後在格式 =》邊框與底紋 =》 底紋，修改為你想要的顏色，最後 「停止錄制」。完成

6. Excel 自動填充顏色的宏怎麼編寫

Private Sub CommandButton1_Click()
With Selection
.Interior.Color = [i14].Interior.Color
End With
End Sub

7. excel塗顏色指令

excel表格填充顏色的快捷命令是Ctrl+M。

工具：office excel

步驟：

1、打開office excel，點擊開發工具下邊的錄制宏，進入錄制階段。

8. EXCEL一個簡單的填色宏

早上時間倉促，寫的比較粗糙，試試，應該功能是有的。
Sub color_for_same()
Dim i%, j%, rmax%, cmax%
Dim target
Application.ScreenUpdating = False

'檢查《工資1》並填色
ThisWorkbook.Worksheets("工資1").Select
ThisWorkbook.Worksheets("工資1").Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
rmax = ThisWorkbook.Worksheets("工資1").Range("I65536").End(xlUp).Row
cmax = ThisWorkbook.Worksheets("工資1").Range("SD" & rmax).End(xlToLeft).Column
target = ThisWorkbook.Worksheets("工資1").Range("I" & rmax).Value
For i = 10 To cmax
If ThisWorkbook.Worksheets("工資1").Cells(rmax, i).Value = target Then
ThisWorkbook.Worksheets("工資1").Cells(rmax, i).Interior.Color = 49407
End If
Next
'檢查《工資2》並填色
ThisWorkbook.Worksheets("工資2").Select
ThisWorkbook.Worksheets("工資2").Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
rmax = ThisWorkbook.Worksheets("工資2").Range("J65536").End(xlUp).Row
cmax = ThisWorkbook.Worksheets("工資2").Range("SD" & rmax).End(xlToLeft).Column
target = ThisWorkbook.Worksheets("工資2").Range("J" & rmax).Value
For i = 11 To cmax
If ThisWorkbook.Worksheets("工資2").Cells(rmax, i).Value = target Then
ThisWorkbook.Worksheets("工資2").Cells(rmax, i).Interior.Color = 49407
End If
Next
ThisWorkbook.Worksheets("工資2").Range("J" & rmax).Select
Application.ScreenUpdating = True
End Sub

9. EXCEL裡面的「宏」怎麼用

1、通常首先添加「宏」選項。具體路徑是單擊左上角的Microsoft圖標，然後選擇：「Excel選項」 - 「常用」，選中「功能區顯示開發工具」選項卡，然後您可以看到「開發」有一個選項「工具」在Excel選項卡中。