vba Interior.ColorIndex

这是一个 VBA 中用于设置单元格背景颜色的属性。它用于设置单元格的颜色索引值，可以是 0 到 56 之间的整数，分别代表了 Excel 自带的颜色。例如，设置为 3 将会使单元格的背景颜色变成红色。使用该属性时，需要先选中要设置颜色的单元格，然后使用以下语句设置颜色：

Range("A1").Interior.ColorIndex = 3

相关问题

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Target.Range.Interior.ColorIndex = 6 Target.Range.Cells.Interior.ColorIndex = 6 End Sub这个VBA代码为什么指向的单元格不会填充颜色

这段VBA代码的作用是在单元格中添加超链接时，单击超链接后会将目标单元格的背景色和字体颜色都设为颜色索引6（即黄色）。但是，该代码没有直接指定特定的单元格进行填充颜色。相反，它是通过超链接的目标范围（即单元格）来设置颜色。

可能的原因是：如果您单击的超链接没有指向一个单元格，则此代码将无法填充颜色。您可以尝试在单元格中添加超链接并单击它，以查看是否会填充颜色。

Sub HighlightTodayAndTomorrow() Dim todayDate As Date Dim tomorrowDate As Date Dim lastRow As Long Dim i As Long todayDate = Date tomorrowDate = Date + 1 lastRow = Range("a1").CurrentRegion.Rows.Count For i = 1 To lastRow If Cells(i, 1).Value = todayDate Or Cells(i, 1).Value = tomorrowDate Then Rows(i).Interior.Color = RGB(198, 239, 206) '将符合条件的行背景色设为淡绿色 Else Rows(i).Interior.ColorIndex = xlNone '取消背景色 End If Next i End Sub將顔色修改為綫框，

好的，根据您的要求，以下是新的VBA代码：

Sub HighlightTodayAndTomorrow()
    Dim todayDate As Date
    Dim tomorrowDate As Date
    Dim lastRow As Long
    Dim i As Long
    
    todayDate = Date
    tomorrowDate = Date + 1
    
    lastRow = Range("a1").CurrentRegion.Rows.Count
    
    For i = 1 To lastRow
        If Cells(i, 1).Value = todayDate Or Cells(i, 1).Value = tomorrowDate Then
            Rows(i).Borders.LineStyle = xlContinuous '将符合条件的行边框设为实线
            Rows(i).Borders.Weight = xlThin '将符合条件的行边框粗细设为细线
            Rows(i).Borders.ColorIndex = 1 '将符合条件的行边框颜色设为黑色
        Else
            Rows(i).Borders.LineStyle = xlNone '取消边框
        End If
    Next i
End Sub

这段代码会将当前工作表中日期等于今天或明天的行加粗边框，颜色为黑色，线型为实线，粗细为细线，但是不会改变已经有边框的行的样式。如果您需要修改颜色、线型或粗细，可以自行修改 Borders 属性中的参数。