엑셀 VBA가 - 셀 값의 변화에 ​​따라 행의 수를 조정

Question

하면 다음과 같은 문제를 나에게 손을 전해 주 시겠어요 :

을 나는 셀 A102에서 109 행의 데이터 세트 (106)을 가지고, 나는의 값이 현재 3. 행 103-105는 비어 있습니다.

A102의 셀 값을 기준으로 행 102 아래의 빈 행 수를 변경하는 VBA 코드를 찾고 있습니다.

예 : A102를 0으로 변경하면 103-105 행이 삭제되고 103 행에서 데이터 집합이 시작됩니다. 그런 다음 A102를 8로 변경하면 8 행이 삽입되고 데이터 집합은 행 111에서 시작합니다.

나는이 일을하는 방법을 모른다. 정말 도움이된다.

Answer 1

기본적으로, 당신이 겪은 것은 이것입니다.

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim n As Integer 
Dim n1 As Integer 

'Do nothing if more than one cell is changed or content deleted 

If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub 
    If Target.Address = "$A$102" Then 
     If IsNumeric(Target) Then 
      n = 0 

      While Range("A103").Offset(n, 0) = "" 
       n = n + 1 
      Wend 

     End If 

     For n1 = 1 To n 
      Rows("103:103").Select 
      Selection.Delete Shift:=xlUp 
     Next 

     For n1 = 1 To Range("A102") 
      Rows("103:103").Select 
      Selection.Insert Shift:=xlDown 
     Next 

    End If 

End Sub