다른 범위에 종속 된 Excel 범위 만들기

4 열 (AD)과 5 행 (1-5)으로 구성된 Excel First 범위 가 있습니다.

이 범위의 셀은 숫자로 구성됩니다.

다른 워크 시트 에서 Excel Second 범위 와 Excel Third 범위의 두 가지 다른 범위를 설정하고 싶습니다 .

두 번째 범위의 숫자가 첫 번째 범위의 값의 두 배이고 세 번째 범위의 숫자가 첫 번째 범위의 값의 세 배라는 점을 제외하고 두 범위가 모두 Excel 첫 번째 범위와 동일하기를 원합니다.

또한 세 번째 범위가 두 번째 범위 바로 아래에 위치하기를 원합니다.

또한 첫 번째 범위에 새 행이나 열을 추가하고 해당 셀에 숫자가 있으면 두 번째 및 세 번째 범위의 숫자 값이 다음을 제외하고 두 번째 및 세 번째 범위가 자동으로 새 행과 열을 추가하기를 원합니다. 첫 번째 범위의 두 배와 세 배입니다.

이게 가능해? 그렇다면 어떻게해야합니까?

귀하의 질문에 많은 왜곡이 있기 때문에 쿼리를 세 부분으로 나눕니다.

1 부:

첫 번째 범위를 다른 시트에 두 번째 및 세 번째 범위로 복사하십시오.

Sheet1에서 명령 단추를 만들고이 VBA 코드를 사용하십시오.

Private Sub CommandButton1_Click()

Dim lastrow As Long
lastrow = Sheets("Sheet2").Range("A65536").End(xlUp).Row

Range("A1:D5").Copy Destination:=Sheets("Sheet2").Range("A" & lastrow)

End Sub

2 부 : 시트 2의 명령 만들기 버튼

CAPTION을 Double으로 설정하십시오 .

이 VBA 코드를 사용하십시오.

Private Sub CommandButton2_Click()

If CommandButton2.Caption = "Double" Then

Dim rngData As Range

    Set rngData = ThisWorkbook.Worksheets("Sheet2").Range("A1:D5")
    rngData = Evaluate(rngData.Address & "*2")
    CommandButton2.Caption = "Triple"


ElseIf CommandButton2.Caption = "Triple" Then

Dim rngData1 As Range

    Set rngData = ThisWorkbook.Worksheets("Sheet2").Range("A6:D10")
    rngData = Evaluate(rngData.Address & "*3")
    CommandButton2.Caption = "Double"
   End If

End Sub

3 부 :

이제 범위 1에서 수정하여 범위 2와 3을 업데이트하는 방법.

이를 위해 가장 쉬운 방법을 제안 해드립니다.

EXTRA 행과 열이있는 범위 1을 복사하고 PASTE LINK를 사용하십시오.

참고 이 경우 내 솔루션의 PART ONE을 사용하지 마십시오.

이것이 당신을 돕기를 바랍니다.