Question

我对VBA很新，我正在尝试为表格中的每个第二列添加一个箭头。我收到错误：method 'range' of object '_global' failed。

我应该怎么做才能解决它。

Sub loop1()
    'Loop round range P6:AA10
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer


    For i = 9 To 14
        For j = 6 To 10
            k = (i * 2) - 1
            ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Range(Cells(j, k)).Left + 2, _
                Range(Cells(j, k)).Top + 3, 15, 10).Select
        Next j
    Next i
End Sub

Answer 1

删除Range（），看起来像.Left和.Top是Cells不是Range对象的属性。此代码在Excel 2010上运行：

Sub loop1()
    'Loop round range P6:AA10
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer


    For i = 9 To 14
        For j = 6 To 10
            k = (i * 2) - 1
            ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Cells(j, k).Left + 2, _
                Cells(j, k).Top + 3, 15, 10).Select
        Next j
    Next i
End Sub

在工作表中循环圆形单元格，以使用VBA为每个单元格添加形状

1 个答案: