मुख्य सामग्री पर जाएं

Excel में मान बदलने पर पेज ब्रेक कैसे डालें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-06-03

मान लीजिए, मेरे पास कोशिकाओं की एक श्रृंखला है, और अब, मैं वर्कशीट में पेज ब्रेक डालना चाहता हूं जब कॉलम ए में मान बाएं स्क्रीनशॉट में दिखाए गए अनुसार बदलते हैं। बेशक, आप उन्हें एक-एक करके सम्मिलित कर सकते हैं, लेकिन क्या एक कॉलम के बदले हुए मानों के आधार पर पेज ब्रेक को एक साथ सम्मिलित करने का कोई त्वरित तरीका है?

जब VBA कोड के साथ मान बदलता है तो पेज ब्रेक डालें

जब मूल्य बदलता है तो एक शक्तिशाली सुविधा के साथ पेज ब्रेक डालें

जब VBA कोड के साथ मान बदलता है तो पेज ब्रेक डालें

निम्नलिखित वीबीए कोड आपको कॉलम डेटा में एक बार बदलाव के आधार पर नीचे पेज ब्रेक डालने में मदद कर सकता है, कृपया निम्नानुसार करें:

1. नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: मान बदलने पर पेज ब्रेक डालें:

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 वह कॉलम हेडर है जिसके आधार पर आप पेज ब्रेक सम्मिलित करना चाहते हैं, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं।

जब मूल्य बदलता है तो एक शक्तिशाली सुविधा के साथ पेज ब्रेक डालें

यदि आपके पास एक्सेल के लिए कुटूल, के साथ अपने मतभेदों को पहचानें सुविधा, आप मूल्य परिवर्तनों के आधार पर जल्दी से पृष्ठ विराम, रिक्त पंक्तियाँ, निचली सीमा रेखाएँ या पृष्ठभूमि रंग सम्मिलित कर सकते हैं। एक्सेल के लिए कुटूल डाउनलोड करने के लिए क्लिक करें!

सुझाव:इसे लागू करने के लिए मतभेदों को पहचानें सुविधा, सबसे पहले, आपको डाउनलोड करना चाहिए एक्सेल के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:

1। क्लिक करें कुटूल > का गठन > मतभेदों को पहचानें, स्क्रीनशॉट देखें:

2. बाहर निकले में कुंजी कॉलम के आधार पर अंतर पहचानें संवाद बॉक्स में, निम्नलिखित कार्य करें:

  • वह डेटा श्रेणी और कुंजी कॉलम चुनें जिसका आप उपयोग करना चाहते हैं;
  • चुनें पृष्ठ विराम से ऑप्शंस डिब्बा।

3। तब दबायें Ok बटन, पेज ब्रेक को मूल्य परिवर्तन के आधार पर श्रेणी में डाला गया है स्क्रीनशॉट देखें:

अभी एक्सेल के लिए कुटूल डाउनलोड करें और निःशुल्क परीक्षण करें!

अधिक संबंधित लेख:

  • एक्सेल में सेल वैल्यू बदलने पर पंक्तियों को हाइलाइट करें
  • यदि आपकी वर्कशीट में दोहराए गए मानों की एक सूची है, और आपको कॉलम ए के आधार पर पंक्तियों को हाइलाइट करने की आवश्यकता है, तो निम्न स्क्रीनशॉट में दिखाए गए अनुसार सेल मान बदल जाता है। वास्तव में, आप सशर्त स्वरूपण सुविधा का उपयोग करके इस कार्य को जल्दी और आसानी से पूरा कर सकते हैं।
  • जब किसी अन्य कॉलम में मान बदलता है तो संख्याओं में वृद्धि करें
  • मान लीजिए, आपके पास कॉलम ए में मानों की एक सूची है, और अब आप कॉलम ए में मान बदलने पर कॉलम बी में संख्या 1 बढ़ाना चाहते हैं, जिसका अर्थ है कि कॉलम ए में मान बदलने तक कॉलम बी में संख्याएं बढ़ती हैं, तो जैसा कि बाएं स्क्रीनशॉट में दिखाया गया है, संख्या वृद्धि फिर से 1 से शुरू होती है। एक्सेल में आप इस कार्य को निम्न विधि से हल कर सकते हैं।
  • जब मान किसी अन्य कॉलम में बदलता है तो योग कक्ष
  • जब आप एक्सेल वर्कशीट पर काम करते हैं, तो कभी-कभी, आपको किसी अन्य कॉलम में डेटा के समूह के आधार पर कोशिकाओं को जोड़ने की आवश्यकता हो सकती है। उदाहरण के लिए, यहां, मैं निम्नलिखित परिणाम प्राप्त करने के लिए कॉलम ए में डेटा बदलने पर कॉलम बी में ऑर्डर का योग करना चाहता हूं। आप एक्सेल में इस समस्या को कैसे हल कर सकते हैं?
  • Excel में मान बदलने पर रिक्त पंक्तियाँ डालें
  • मान लीजिए कि आपके पास डेटा की एक श्रृंखला है, और अब आप मूल्य बदलने पर डेटा के बीच रिक्त पंक्तियां डालना चाहते हैं, ताकि आप दिखाए गए स्क्रीनशॉट के अनुसार अनुक्रमिक समान मानों को एक कॉलम में अलग कर सकें। इस लेख में, मैं आपकी इस समस्या को हल करने के लिए कुछ युक्तियों के बारे में बात करूंगा।
  • एक्सेल में सेल वैल्यू बदलने पर मैक्रो चलाएँ
  • आम तौर पर, एक्सेल में, हम VBA कोड को निष्पादित करने के लिए F5 कुंजी या रन बटन दबा सकते हैं। लेकिन, क्या आपने कभी सेल वैल्यू बदलने पर विशिष्ट मैक्रो कोड चलाने का प्रयास किया है? इस लेख में, मैं एक्सेल में इस काम से निपटने के लिए कुछ त्वरित तरकीबें पेश करूंगा।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 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