根据变量

Question

我尝试了不同的解决方案，并且成功编译了，但是在电子表格上没有看到我的问题的结果。

我想根据不同工作表的两个单元格中的值来格式化一张表格的颜色。

一个值是长度（行号），一个是宽度（列号），每次更改单元格的值时都应更新。以下是我没有显示任何结果的内容：

Sub Worksheet_Formatting(ByVal Target As Range)

Dim NearWidth As Integer
Dim NearLength As Integer
Dim R As Range

NearWidth = Worksheets("Information").Cells(2, 2).Value
NearLength = Worksheets("Information").Cells(3, 2).Value
R = Range(Worksheets("Antenna Placement").Cells(2, 2).Value, Worksheets("Antenna Placement").Cells(NearLength, NearWidth)) = RGB(0, 255, 0)


End Sub

有关为什么编译但结果没有显示的任何解释？

Answer 1

您正在混合设置范围和设置背景颜色。将您的R = ...替换为

Set R = Range(Worksheets("Antenna Placement").Cells(2, 2).Value, Worksheets("Antenna Placement").Cells(NearLength, NearWidth))    
R.Interior.Color = RGB(0,255,0)