Erstellen Sie einen Bereich von Offsets

Question

Ich muss einen Bereich in Bezug auf eine bestimmte Zelle auswählen.

Dies ist, was ich bisher haben - der Benutzer doppelklickt eine Zelle:

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

Die Zelle des geklickt Benutzer ist dann in Target als Range verfügbar.

Ich muss dann eine neue Range relativ zur Position von Target auswählen. Ich habe den Code unten versucht:

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

ich andere Leute Beiträge viele verschiedene Möglichkeiten, aus der Lektüre habe versucht, mit .Cells, .Address, aber kann nicht scheinen, um es an die Arbeit. Ich denke, ich bekomme die Datentypen durcheinander? Irgendwelche Ideen?

Answer 1

Sie können Offset und Resize kombinieren, um Ihr Ergebnis zu erzielen. Verwenden Sie zuerst Offset, um die Verschiebung von Target und dann Resize zu erhalten, um den Bereich auf die erforderliche Anzahl von Zeilen und Spalten zu erhöhen. Hier ist ein Beispielcode:

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