Excel VBA: Cómo ampliar un rango determinado de una selección actual

Question

quiero hacer algo como:

E18-(1,1) &":" &E18+(1,1) 

Mi intención es la de mantener la selección del rango E18 (valor = B) y ampliar la selección a D16:F20 .

Si tengo rango de una célula de E18 y quiero ampliar la gama de D16:F20, ¿cómo puedo hacer esto?

Answer 1

Range(Cells(WorksheetFunction.Max(1, Selection.Row - 1), _ 
     WorksheetFunction.Max(1, Selection.Column - 1)), _ 
     Cells(WorksheetFunction.Min(Selection.Worksheet.Rows.Count, _ 
     Selection.Row + 1), _ 
     WorksheetFunction.Min(Selection.Worksheet.Columns.Count, _ 
     Selection.Column + 1))).Select 

upd: gracias Siddharth Rout para formatear mi msg

Answer 2

¿Te refieres a esto?

La sintaxis de

ExpandRange [Rango], [Número de Col a la izquierda], [Número de filas on Top], [Número de Col a la derecha], [número de filas hacia abajo]

Sub Sample() 
    Debug.Print ExpandRange(Range("B5"), 1, 1, 1, 1)   '<~~ $A$4:$C$6 
    Debug.Print ExpandRange(Range("A1"), 1, 1, 1, 1)   '<~~ Error 
    Debug.Print ExpandRange(Range("XFD4"), 1, 1, 1, 1)   '<~~ Error 
    Debug.Print ExpandRange(Range("XFD1048576"), 1, 1, 1, 1) '<~~ Error 
    Debug.Print ExpandRange(Range("E5"), 1, 1, 1, 1)   '<~~ $D$4:$F$6 
End Sub 

Function ExpandRange(rng As Range, lft As Long, tp As Long, _ 
rt As Long, dwn As Long) As String 
    If rng.Column - lft < 1 Or _ 
     rng.Row - tp < 1 Or _ 
     rng.Column + rt > ActiveSheet.Columns.Count Or _ 
     rng.Row + dwn > ActiveSheet.Rows.Count Then 
     ExpandRange = "Error" 
     Exit Function 
    End If 

    ExpandRange = Range(rng.Offset(-1 * tp, -1 * lft).Address & ":" & _ 
         rng.Offset(dwn, rt).Address).Address 
End Function 

Answer 3

Puede usar Application.WorksheetFunction.Offset() que es más rico que el Offset de VBA y hace todo lo que requiere la pregunta.
Creo que hace lo que hace Siddharth Rout ExpandRange, sin la necesidad de un UDF.

Answer 4

Aquí está el código simple que utilizo para cambiar el tamaño de una selección existente.

Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count + 50).Select 

Esto agregará 5 al recuento de filas y 50 al recuento de columnas. Adapte para adaptarse a sus necesidades.

Answer 5

En lugar de devolver una dirección absoluta, modifico la sintaxis anterior para devolver un rango. El crédito va a Siddharth Rout =)

Function ExpandRG(rng As Variant, lft As Long, tp As Long, rt As Long, dwn As Long) _ 
As Range 
Set ws = rng.Parent 
If rng.Column - lft < 1 Or _ 
    rng.Row - tp < 1 Or _ 
    rng.Column + rt > ActiveSheet.Columns.Count Or _ 
    rng.Row + dwn > ActiveSheet.Rows.Count Then 
     MsgBox "Out of range" 
     Exit Function 
End If 

Set rng = ws.Range(rng.Offset(-1 * tp, -1 * lft).Address & ":" & _ 
        rng.Offset(dwn, rt).Address)       
End Function 

Sub aa() 
Dim ori_add, O_add, New_add As Range 
Set ori_add = Range("B2") 
Set O_add = ori_add 

Call ExpandRG(ori_add, 1, 1, 1, 1) 
Set New_add = ori_add 

MsgBox "Original address " & O_add.Address & ", new address is" & New_add.Address 
End Sub