Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 根据变量设置范围的行和列的格式_Excel_Vba_Formatting_Range_Conditional Formatting - Fatal编程技术网

Excel 根据变量设置范围的行和列的格式

Excel 根据变量设置范围的行和列的格式,excel,vba,formatting,range,conditional-formatting,Excel,Vba,Formatting,Range,Conditional Formatting,我尝试了不同的解决方案,并成功地编译了,但在电子表格上没有看到解决我问题的结果 我想根据不同工作表的两个单元格中的值设置一张工作表的颜色格式 一个值将是长度行号,一个值将是宽度列号,并且应在每次更改单元格的值时进行更新。以下是我没有显示任何结果的内容: Sub Worksheet_Formatting(ByVal Target As Range) Dim NearWidth As Integer Dim NearLength As Integer Dim R As Range NearWid

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

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

一个值将是长度行号,一个值将是宽度列号,并且应在每次更改单元格的值时进行更新。以下是我没有显示任何结果的内容:

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

有没有解释为什么这是编译,但结果没有显示?

您正在混合设置范围和设置背景色。替换你的R=。。。与


谢谢你的回复。我做了更改,现在我有的是:NearWidth=worksheetsantformation.Cells2,2.Value NearLength=WorksheetsInformation.Cells3,2.Value Set R=RangeWorksheetsAntenna Placement.Cells1,1.Value,worksheetsantena Placement.CellsNearLength,NearWidth R.Interior.Color=RGB0,255,0 End Sub我在天线放置窗口中有代码。错了吗?你在看什么细胞?换言之,您说过希望在单元格更改时运行此操作-什么单元格?信息工作表中的B2和B3单元格?这个宏应该放在一个工作表模块中,在VB窗口的项目上单击鼠标右键,然后添加模块。这些单元定义了应显示在天线放置表上的区域
Set R = Range(Worksheets("Antenna Placement").Cells(2, 2).Value, Worksheets("Antenna Placement").Cells(NearLength, NearWidth))    
R.Interior.Color = RGB(0,255,0)