ActiveCell.Interior.ColorIndex是VBA中用于设置单元格背景颜色的属性。ColorIndex属性接受一个整数值,用于表示不同的颜色。-4142是ColorIndex属性中的一个特殊值,表示无颜色或无填充。 条件格式错误是指在设置条件格式时出现了错误。可能是由于语法错误、逻辑错误或其他原因导致的。 在VBA中,可以使用条件语句和循环结...
问VBA - ActiveCell.Interior.ColorIndex -4142条件格式错误EN内置的图标无法缩小（截止2022年9月），自...
Option Explicit Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim i As Long, col As String Application.ScreenUpdating = False Cells.Interior.ColorIndex = -4142…
Private Sub CommandButton2_Click()Dim rag As RangeFor Each rag In UsedRangerag.Font.ColorIndex = rag.Interior.ColorIndexrag.Interior.ColorIndex = -4142NextEnd Sub你把你的EXCEL文件发上来，我帮你弄。
Cells.Interior.ColorIndex = -4142 '取消单元格原有填充色,但不包含条件格式产生的颜色。 Rows(Target.Row).Interior.ColorIndex = 33 '活动单元格整行填充颜色 Columns(Target.Column).Interior.ColorIndex = 33 '活动单元格整列填充颜色 Application.ScreenUpdating = True ...
因为颜色填充不自动触发事件，只能变相处理。在SelectChange事件中进行执行，所以导致：颜色填充后要点击其他单元格才能运行相应的判断。Dim RNG As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Interior.ColorIndex = -4142 Then Set RNG = Nothing: Exit Sub ...
2. 通过ColorIndex属性修改单元格字体的颜色 通过上面的方法外,还可以通过指定Range.Font.ColorIndex属性来修改单元格字体的颜色,该属性表示了调色板中颜色的索引值,也可以指定一个常量,xlColorIndexAutomatic(-4105)为自动配色,xlColorIndexNone(-4142)表示无色。
[示例01]设置工作表标签的颜色 Sub SetSheetTabColor() MsgBox "设置当前工作表标签的颜色" ActiveSheet.Tab.ColorIndex = 7 End Sub [示例02]恢复工作表标签颜色 Sub SetSheetTabColorDefault() MsgBox "将当前工作表标签颜色设置为默认值" ActiveSheet.Tab.ColorIndex = -4142 ...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume NextApplication.ScreenUpdating = FalseCells.Interior.ColorIndex = -4142 '取消原色Rows(Target.Row).Interior.ColorIndex = 17 '整行着色Columns(Target.Column).Interior.ColorIndex = 17 '整列着色Range("A1:W1").Interior.ColorIn...
Sub Extract() Dim arrData() Dim lastRow As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") lastRow = ws.UsedRange.Rows.Count arrData = ws.Range("A1:C" & lastRow).Value For i = 2 To lastRow arrData(i, 3) = Cells(i, 1).Interior.ColorIndex arrData(i, 2...