颜色宏命令

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选项卡中。