VBA를 사용하여 범위를 동적으로 다른 범위로 설정

Question

범위의 셀을 다른 Excel 시트의 비슷한 크기의 셀 범위와 동일하게 설정하려면 name2이라는 범위를 참조하십시오. 나는 에있는 셀을 Sheet2에있는 해당 셀이 현재와 같기 때문에 동등하게하고 싶습니다. 따라서 .value 속성을 사용할 수 없습니다.

Sheets("Sheet1").Range("name1").Offset(0, 1).Resize(15, 5) = Sheets("Sheet2").Range("name2").Offset(0, 1).Resize(15, 5).value 

저는 값을 사용하고 싶지 않습니다. 이 일을 내가 원하는대로 할 수있는 간단한 방법이 있습니까? 일부 포럼을 검색했지만이를 수행하는 좋은 방법을 찾을 수 없습니다. For each 및 R1C1의 이름을 사용해야합니까? 다시 말하면 - sheet1의 셀은 sheet2 (범위는 같은 크기 임)의 상대 셀 값과 동일해야합니다. 그래서 예. 셀 Sheet1!A1은 수식 =Sheet2!A1입니다.

Answer 1

당신은 다음과 같은 것을 시도해 볼 수도 있습니다 : 범위 (NAME1 및 NAME2)가 다른 위치에있는 경우

Sheets("Sheet1").Range("name1").Offset(0, 1).Resize(15, 5).FormulaR1C1 = "=Sheet2!R[0]C[0]" 

업데이트

것은, 당신이 따라 공식을 조정해야합니다 :

를

Dim nRowOffset As Long 
Dim nColOffset As Long 
Dim sFormula As String 
nRowOffset = Sheets("Sheet2").Range("name2").Row - Sheets("Sheet1").Range("name1").Row 
nColOffset = Sheets("Sheet2").Range("name2").Column - Sheets("Sheet1").Range("name1").Column 
sFormula = "=Sheet2!R[" & nRowOffset & "]C[" & nColOffset & "]" 
Sheets("Sheet1").Range("name1").Offset(0, 1).Resize(15, 5).FormulaR1C1 = sFormula 

Answer 2

나는 이것을 약간만 테스트 했으므로 그다지 강력하지 않을 수도 있습니다.

참고이 하위 모듈은 시트 또는이 워크 북 모듈에 새로 추가하거나 기존 모듈에 배치 할 필요가 없습니다.

매크로이기 때문에 워크 시트에서 UDF로 호출 할 수 없습니다. 또한 인수가 있으므로 직접 호출 할 수 없습니다.

코드를 사용하려면 코드를 호출하기 위해 다른 하위를 만들거나 직접 실행 창에서 직접 호출해야합니다.

Sub RunCode() 
    Main "Name1", "Name2" ' you could run this line in the immediate/debug window 
End Sub 

하위 RunCode

는 통합 문서에 매크로 메뉴에서 사용할 수 있습니다. 당신이 함수에 약간 더 사용자 정의 인터페이스를 원한다면

Sub Main(ByVal Name1 As String, ByVal Name2 As String) 
Dim Cell As Long 
Dim Range1 As Range: Set Range1 = ThisWorkbook.Names(Name1).RefersToRange 
Dim Range2 As Range: Set Range2 = ThisWorkbook.Names(Name2).RefersToRange 
' check to make sure Name1 and Name2 are the same size 
If Range1.Cells.Count = Range2.Cells.Count Then 
    If Range1.Rows.Count = Range2.Rows.Count Then 
     If Range1.Columns.Count = Range2.Columns.Count Then 
      ' populate the cells with the formula 
      For Cell = 1 To Range1.Cells.Count 
       Range2.Cells(Cell).Formula = "=" & Range1.Worksheet.Name & "!" & Range1.Cells(Cell).Address 
      Next Cell 
     End If 
    End If 
End If 

End Sub 

, 다음 코드는 도움이 될 것입니다. RunCode2 매크로를 실행하면 Main

Public Function nameExists(ByVal Name As String) As Boolean 
Dim Result As Boolean: Result = fasle 
Dim Item As Variant 
For Each Item In ThisWorkbook.Names 
    If Item.Name = Name Then 
     Result = True 
     Exit For 
    End If 
Next Item 
nameExists = Result 
End Function 

Sub RunCode2() 
Dim Response As Variant 
Dim Name1, Name2 As String 
Response = Application.InputBox(Prompt:="Name 1", Type:=2) 
If VarType(Response) = vbBoolean Then 
    Debug.Print "RunCode2 - User Canceled Name 1 Selection" 
    Exit Sub 
Else 
    If nameExists(Response) = False Then 
     MsgBox "Name [" & Response & "] Not Found", vbOKOnly 
     Exit Sub 
    Else 
     Name1 = Response 
    End If 
End If 
Response = Application.InputBox(Prompt:="Name 2", Type:=2) 
If VarType(Response) = vbBoolean Then 
    Debug.Print "RunCode2 - User Canceled Name 2 Selection" 
    Exit Sub 
Else 
    If nameExists(Response) = False Then 
     MsgBox "Name [" & Response & "] Not Found", vbOKOnly 
     Exit Sub 
    Else 
     Name2 = Response 
    End If 
End If 
Main Name1, Name2 
End Sub