Question

Sub APnumbers()
Dim Currentcell As Range
ActiveWorkbook.Sheets(2).Activate
Set Currentcell = ActiveSheet.Range("BA5").Activate
End Sub

在第二行，我得到一个错误＆＃34;需要对象＆＃34;。你能帮忙吗？

Answer 1

正如Dave和citizenkong的评论所暗示的那样，如果没有选择和激活，你可以采用不同的方式。这样的事情可以解决问题：

Sub APnumbers()

    Dim Currentcell As Range
    Dim ws as Worksheet: Set ws = ActiveWorkbook.Sheets(2)

    Set Currentcell = ws.Range("BA5")

End Sub

分配范围时vba中所需的对象

1 个答案: