ไปยังเนื้อหาหลัก

วิธีแทรกตัวแบ่งหน้าเมื่อค่าเปลี่ยนแปลงใน 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 คือส่วนหัวของคอลัมน์ที่คุณต้องการแทรกตัวแบ่งหน้าตามคุณสามารถเปลี่ยนได้ตามต้องการ

แทรกตัวแบ่งหน้าเมื่อค่าเปลี่ยนแปลงด้วยคุณสมบัติที่มีประสิทธิภาพ

ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ แยกแยะความแตกต่าง คุณสามารถแทรกตัวแบ่งหน้าแถวว่างเส้นขอบล่างหรือสีพื้นหลังได้อย่างรวดเร็วตามการเปลี่ยนแปลงค่า คลิกเพื่อดาวน์โหลด Kutools for Excel!

ทิปส์:ที่จะใช้สิ่งนี้ แยกแยะความแตกต่าง ประการแรกคุณควรดาวน์โหลดไฟล์ Kutools สำหรับ Excelแล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. คลิก Kutools > รูปแบบ > แยกแยะความแตกต่างดูภาพหน้าจอ:

2. ในการโผล่ออกมา แยกแยะความแตกต่างตามคอลัมน์หลัก ไดอะล็อกบ็อกซ์ให้ดำเนินการดังต่อไปนี้:

  • เลือกช่วงข้อมูลและคอลัมน์หลักที่คุณต้องการใช้
  • Choose ตัวแบ่งหน้า จาก Options กล่อง.

3. จากนั้นคลิก Ok ปุ่มตัวแบ่งหน้าถูกแทรกลงในช่วงตามการเปลี่ยนแปลงค่าดูภาพหน้าจอ:

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!

บทความที่เกี่ยวข้องเพิ่มเติม:

  • เน้นแถวเมื่อค่าของเซลล์เปลี่ยนแปลงใน Excel
  • หากมีรายการค่าซ้ำในแผ่นงานของคุณและคุณต้องเน้นแถวตามคอลัมน์ A ซึ่งค่าของเซลล์จะเปลี่ยนไปตามภาพหน้าจอต่อไปนี้ ในความเป็นจริงคุณสามารถทำงานนี้ให้เสร็จได้อย่างรวดเร็วและง่ายดายโดยใช้คุณสมบัติการจัดรูปแบบตามเงื่อนไข
  • ตัวเลขที่เพิ่มขึ้นเมื่อค่าเปลี่ยนแปลงในคอลัมน์อื่น
  • สมมติว่าคุณมีรายการค่าในคอลัมน์ A และตอนนี้คุณต้องการเพิ่มจำนวนทีละ 1 ในคอลัมน์ B เมื่อค่าในคอลัมน์ A เปลี่ยนแปลงซึ่งหมายถึงตัวเลขในคอลัมน์ B เพิ่มขึ้นจนกระทั่งค่าในคอลัมน์ A เปลี่ยนไปจากนั้น การเพิ่มจำนวนเริ่มจาก 1 อีกครั้งตามภาพหน้าจอด้านซ้ายที่แสดง ใน Excel คุณสามารถแก้ปัญหานี้ได้ด้วยวิธีการต่อไปนี้
  • รวมเซลล์เมื่อค่าเปลี่ยนแปลงในคอลัมน์อื่น
  • เมื่อคุณทำงานกับเวิร์กชีต Excel บางครั้งคุณอาจต้องรวมเซลล์ตามกลุ่มข้อมูลในคอลัมน์อื่น ตัวอย่างเช่นที่นี่ฉันต้องการรวมคำสั่งซื้อในคอลัมน์ B เมื่อข้อมูลเปลี่ยนแปลงในคอลัมน์ A เพื่อให้ได้ผลลัพธ์ต่อไปนี้ คุณจะแก้ปัญหานี้ใน Excel ได้อย่างไร
  • แทรกแถวว่างเมื่อค่าเปลี่ยนแปลงใน Excel
  • สมมติว่าคุณมีช่วงของข้อมูลและตอนนี้คุณต้องการแทรกแถวว่างระหว่างข้อมูลเมื่อค่าเปลี่ยนแปลงเพื่อให้คุณสามารถแยกค่าเดียวกันตามลำดับในคอลัมน์เดียวตามภาพหน้าจอต่อไปนี้ที่แสดง ในบทความนี้ฉันจะพูดถึงเทคนิคบางอย่างสำหรับคุณในการแก้ปัญหานี้
  • เรียกใช้แมโครเมื่อค่าของเซลล์เปลี่ยนแปลงใน Excel
  • โดยปกติใน Excel เราสามารถกดปุ่ม F5 หรือปุ่ม Run เพื่อรันโค้ด VBA แต่คุณเคยพยายามเรียกใช้รหัสแมโครเฉพาะเมื่อค่าของเซลล์เปลี่ยนแปลงหรือไม่? บทความนี้ฉันจะแนะนำเคล็ดลับง่ายๆในการจัดการกับงานนี้ใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
No ratings yet. Be the first to rate!
Hélène HERLY
Hélène HERLY
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 !
Reply
0
0
Lê Tuấn
Lê Tuấn
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?
Reply
0
0
skyyang
skyyang     Lê Tuấn
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!
Reply
Report
0
0
Wilco
Wilco
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.
Reply
0
0
skyyang
skyyang     Wilco
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!
Reply
Report
0
0
Mike MItsch
Mike MItsch
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
Reply
0
0
GUEST
GUEST
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
Reply
0
0
GUEST
GUEST
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.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations