創建從偏移量的範圍

Question

我需要選擇與某個單元格相關的範圍。

這是我迄今爲止 - 用戶雙擊單元格：

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

細胞點擊用戶，然後在Target可作爲Range。

然後我需要選擇一個新的Range相對於Target的位置。我曾嘗試下面的代碼：

dataSheet.Range(Target.Offset(2, 2)), Target.Offset(15, bHeight)).Select 

我已經嘗試了很多不同的方式使用.Cells，.Address閱讀別人的帖子，但似乎無法得到它的工作。我想我正在混淆數據類型？有任何想法嗎？

Answer 1

您可以結合Offset和Resize來實現您的結果。首先使用Offset從Target獲取位移，然後使用Resize將範圍增加到所需的行數和列數。以下是示例代碼：

Option Explicit 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 

    Dim rngNew As Range 
    Dim bHeight As Integer 

    bHeight = 3 
    Set rngNew = Target.Offset(2, 2).Resize(13, bHeight) 

    rngNew.Select 

End Sub