将单元格地址作为字符串转换为单元格范围

Question

我有一个单元格J9，它的值是其他随机单元格的地址，例如"$CW$178"；。然后我想在一个地址与J9.Value相同的单元格中添加一个形状，所以在这种情况下，我会在$CW$178单元格中添加圆形。但是，每次执行宏时，都会返回运行时错误"424"：需要对象。

这是我的代码：

Sub button0_Click()
Cell2 = Range("J9").Value
Set shpOval = Shapes.AddShape(msoShapeOval, Cell2.Left, Cell2.Top, 50, 50) <--Debug highlights this line

Answer 1

Range需要Set。此外，您还缺少Shapes之前的工作表引用。

Dim visualizer As Worksheet
Set visualizer = ActiveWorkbook.Worksheets("Visualizer") ' or ThisWorkbook.
Dim Cell2 As Range
Set Cell2 = visualizer.Range(ActiveSheet.Range("J9").Value)
Dim shpOval As Shape
Set shpOval = visualizer.Shapes.AddShape(msoShapeOval, Cell2.Left, Cell2.Top, 50, 50)