메인 컨텐츠로 가기

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에서이 작업을 처리하는 몇 가지 빠른 트릭을 소개합니다.

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

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 ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
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


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

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

For I = J To 21 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

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations