Question

我有一个带有两个工作表的excel文档，我们称它们为Sheet1和Sheet2，Sheet 1包含第14行向下的各种数据，Sheet2包含A列中的数字，每个包含数字的单元格都被着色为唯一的颜色。我想要实现的是在sheet1下，如果B列包含一个数字，并且此数字与sheet2的A列中的数字匹配，那么我想更改Sheet1中的行的颜色以匹配Sheet中的单元格颜色。

到目前为止，我的编码如下

  With xlWSheet2
        .Range("A1").Value = "0"
        xlWSheet2.Cells(1, 1).interior.color = Color.AliceBlue
        .Range("A2").Value = "1"
        xlWSheet2.Cells(2, 1).interior.color = Color.Aqua
        .Range("A3").Value = "2"
        xlWSheet2.Cells(3, 1).interior.color = Color.Beige
        .Range("A4", ).Value = "3"
        xlWSheet2.Cells(4, 1).interior.color = Color.Blue
        .Range("A5").Value = "4"
        xlWSheet2.Cells(5, 1).interior.color = Color.CadetBlue
        .Range("A6").Value = "5"
        xlWSheet2.Cells(6, 1).interior.color = Color.DarkGoldenrod
        .Range("A7").Value = "6"
        xlWSheet2.Cells(7, 1).interior.color = Color.Firebrick
        .Range("A8").Value = "7"
        xlWSheet2.Cells(8, 1).interior.color = Color.Gainsboro
        .Range("A9").Value = "8"
        xlWSheet2.Cells(1, 1).interior.color = Color.Honeydew
        .Range("A10").Value = "9"
        xlWSheet2.Cells(9, 1).interior.color = Color.IndianRed
    End With

上面的代码更改了Sheet2中的单元格颜色并添加了一个很好的数字，现在是尝试匹配单元格的困难部分

    With xlWSheet1
xlLRow = .Range("A" & .Rows.Count).End(Excel.XlDirection.xlUp).Row
    If .Range("B15:B"& xlLRow").Value = xlWSheet1.Cells.Range("A1:A9").Value Then
xlWSheet1.Cells.interior.color = xlWSheet2.Cells.interior.color
    End With

感谢您的帮助，非常感谢

使用VB.NET更改Excel中的行颜色

0 个答案: