根據單元格值選擇VBA

Question

我的代碼返回錯誤。 結果是所希望的，但是錯誤消息卻很煩人。 我該如何擺脫呢？

Sub SELECTIE_VERZUIM()

Dim Cval As Variant
Dim Rng1 As Range
Cval = Sheet4.Range("A16").Value
Set Rng1 = Sheet4.Range("D1:T" & Cval).Select

End Sub

運行時錯誤“ 424”：必需對象

Answer 1

嘗試：

Sub SELECTIE_VERZUIM()

    Dim Cval As Variant

    Cval = Sheet4.Range("A16").Value

    Sheet4.Range("D1:T" & Cval).Select

End Sub

另外，您應避免在VBA中使用“ Select