Note: The other languages of the website are Google-translated. Back to English

Excel에서 값이 변경 될 때 페이지 나누기를 삽입하는 방법은 무엇입니까?

셀 범위가 있고 이제 A 열의 값이 왼쪽 스크린 샷과 같이 변경 될 때 워크 시트에 페이지 나누기를 삽입하려고합니다. 물론 하나씩 삽입 할 수 있지만 한 열의 변경된 값을 기반으로 페이지 나누기를 한 번에 삽입하는 빠른 방법이 있습니까?

VBA 코드로 값이 변경 될 때 페이지 나누기 삽입

강력한 기능으로 값이 변경 될 때 페이지 나누기 삽입


VBA 코드로 값이 변경 될 때 페이지 나누기 삽입

다음 VBA 코드는 열 데이터가 변경되면 아래에 페이지 나누기를 삽입하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 값이 변경 될 때 페이지 나누기 삽입 :

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. 그런 다음 F5 이 코드를 실행하려면 A 열의 데이터가 변경 될 때 모든 페이지 나누기가 시트에 삽입되었습니다. 스크린 샷 참조 :

참고 :위의 코드에서 A 페이지 나누기를 삽입 할 열 머리글이며 필요에 따라 변경할 수 있습니다.

강력한 기능으로 값이 변경 될 때 페이지 나누기 삽입

당신이 있으면 Excel 용 Kutools그와 차이점 구별 기능을 사용하면 값 변경에 따라 페이지 나누기, 빈 행, 아래쪽 테두리 또는 배경색을 빠르게 삽입 할 수 있습니다. Excel 용 Kutools를 다운로드하려면 클릭하십시오!

팁 :이것을 적용하려면 차이점 구별 먼저 기능을 다운로드해야합니다. Excel 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 딸깍 하는 소리 쿠툴 > 형성 > 차이점 구별, 스크린 샷 참조 :

2. 튀어 나온 키 열로 차이점 구분 대화 상자에서 다음 작업을 수행하십시오.

  • 사용하려는 데이터 범위와 키 열을 선택하십시오.
  • 왼쪽 메뉴에서 페이지 나누기 인사말 옵션 중 상자.

3. 그런 다음 Ok 버튼을 클릭하면 값 변경에 따라 페이지 나누기가 범위에 삽입되었습니다 (스크린 샷 참조).

Excel 용 Kutools를 지금 다운로드하고 무료로 평가하십시오!


더 많은 관련 기사 :

  • Excel에서 셀 값이 변경되면 행 강조 표시
  • 워크 시트에 반복되는 값 목록이 있고 다음 스크린 샷과 같이 셀 값이 변경되는 A 열을 기준으로 행을 강조 표시해야하는 경우. 실제로 조건부 서식 기능을 사용하여이 작업을 빠르고 쉽게 완료 할 수 있습니다.
  • 값이 다른 열에서 변경 될 때 숫자 증가
  • A 열에 값 목록이 있고 이제 A 열의 값이 변경 될 때 B 열의 숫자를 1 씩 증가 시키려고합니다. 즉, A 열의 값이 변경 될 때까지 B 열의 숫자가 증가한 다음 왼쪽 스크린 샷과 같이 숫자 증가는 다시 1부터 시작됩니다. Excel에서는 다음과 같은 방법으로이 작업을 해결할 수 있습니다.
  • 값이 다른 열에서 변경 될 때 셀 합계
  • Excel 워크 시트에서 작업 할 때 때때로 다른 열의 데이터 그룹을 기준으로 셀을 합산해야 할 수 있습니다. 예를 들어, 여기에서는 A 열의 데이터가 변경 될 때 B 열의 주문을 합산하여 다음과 같은 결과를 얻고 싶습니다. Excel에서이 문제를 어떻게 해결할 수 있습니까?
  • Excel에서 값이 변경되면 빈 행 삽입
  • 데이터 범위가 있고 이제 값이 변경 될 때 데이터 사이에 빈 행을 삽입하여 다음 스크린 샷과 같이 하나의 열에서 순차적으로 동일한 값을 분리 할 수 ​​있다고 가정합니다. 이 기사에서는이 문제를 해결할 수있는 몇 가지 트릭에 대해 설명합니다.
  • Excel에서 셀 값이 변경 될 때 매크로 실행
  • 일반적으로 Excel에서는 F5 키 또는 실행 버튼을 눌러 VBA 코드를 실행할 수 있습니다. 그러나 셀 값이 변경 될 때 특정 매크로 코드를 실행 해 본 적이 있습니까? 이 기사에서는 Excel에서이 작업을 처리하는 몇 가지 빠른 트릭을 소개합니다.

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (8)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 감사합니다! VBA를 생각하면 땀이 난다. 하지만 이 코드의 결과에는 한 가지 문제가 있습니다. 첫 번째 열은 열 머리글입니다. 코드는 이것을 변경으로 취급합니다. 내 첫 번째 페이지에는 열 머리글만 표시되지만 다음 페이지에는 문제가 없습니다. 참고로 이것은 월간 보고서용이며 각 기준에 대한 행 수가 매월 변경됩니다. 어떤 아이디어? 미리 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
죄송합니다. 편집: 첫 번째 ROW는 열 머리글입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 훌륭합니다! 나는 당신의 VB 예제를 따라했고 효과가 있었습니다! 나는 또한 KUTools의 소유자이므로 저도 가지고 놀 것입니다.

매우 감동하고 감사합니다!

마이크
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
시트의 처음 20행을 건너뛸 수 있습니까? 모든 종류의 것을 시도했지만 VBA에 대한 내 지식은 코드를 직접 조정하는 것으로 제한됩니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 윌코입니다.
페이지 나누기를 삽입하고 처음 20개 행을 건너뛰려면 아래 코드와 같이 매개변수 하나를 변경하면 됩니다.

하위 삽입 페이지 나누기()

'업데이트 Extendoffice

Dim I as Long, J as Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

I = J ~ 21 단계 -1의 경우

If Range("A" & I).Value <> Range("A" & I - 1).Value then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

END IF

다음

최종 하위

시도하십시오, 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Tôi không muốn ngắt trang tại những hàng bị ẩn. 티파이람싸오?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, Lê Tuấn
문제를 해결하려면 아래 VBA 코드를 적용하십시오.
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

대단히 감사합니다!
아직 코멘트가 없습니다

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호