Ana içeriğe atla

Excel'de değer değiştiğinde sayfa sonları nasıl eklenir?

Diyelim ki, bir dizi hücrem var ve şimdi, gösterilen sol ekran görüntüsü gibi A sütunundaki değerler değiştiğinde çalışma sayfasına sayfa sonları eklemek istiyorum. Elbette bunları birer birer ekleyebilirsiniz, ancak bir sütunun değişen değerlerine bağlı olarak sayfa sonlarını bir kerede eklemenin hızlı bir yolu var mı?

VBA koduyla değer değiştiğinde sayfa sonları ekleyin

Güçlü bir özellikle değer değiştiğinde sayfa sonları ekleyin


VBA koduyla değer değiştiğinde sayfa sonları ekleyin

Aşağıdaki VBA kodu, sütun verileri değişikliklerine göre aşağıdaki sayfa sonlarını eklemenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

1. basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Değer değiştiğinde sayfa sonları ekleyin:

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, A sütunundaki veriler değiştiğinde tüm sayfa sonları sayfaya eklenir. Ekran görüntüsüne bakın:

Not:Yukarıdaki kodda, A dayalı olarak sayfa sonu eklemek istediğiniz sütun başlığıdır, ihtiyacınıza göre değiştirebilirsiniz.

Güçlü bir özellikle değer değiştiğinde sayfa sonları ekleyin

Eğer varsa Kutools for Excel, Onun ile Farklılıkları ayırt edin özelliği, değer değişikliklerine göre hızlı bir şekilde sayfa sonları, boş satırlar, alt kenar çizgileri veya arka plan rengi ekleyebilirsiniz. Kutools for Excel'i indirmek için tıklayın!

İpuçları:Bunu uygulamak için Farklılıkları ayırt edin özelliği, öncelikle indirmelisiniz Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. tıklayın Kutools > oluşturulan > Farklılıkları ayırt edin, ekran görüntüsüne bakın:

2. Dışarı fırladı Farklılıkları anahtar sütuna göre ayırt edin iletişim kutusunda aşağıdaki işlemleri yapın:

  • Kullanmak istediğiniz veri aralığını ve anahtar sütununu seçin;
  • Klinik Sayfa sonu itibaren Opsiyonlar kutu.

3. Sonra tıklayın Ok düğmesi, sayfa sonları değer değişikliklerine göre aralığa eklendi, bkz. ekran görüntüsü:

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!


Daha ilgili makaleler:

  • Excel'de Hücre Değeri Değiştiğinde Satırları Vurgula
  • Çalışma sayfanızda tekrarlanan değerlerin bir listesi varsa ve aşağıdaki ekran görüntüsü gibi hangi hücre değerinin değiştiği A sütununa göre satırları vurgulamanız gerekir. Aslında, Koşullu Biçimlendirme özelliğini kullanarak bu işi hızlı ve kolay bir şekilde bitirebilirsiniz.
  • Başka Bir Sütundaki Değer Değiştiğinde Sayıları Artır
  • Diyelim ki, A sütununda bir değerler listeniz var ve şimdi A sütunundaki değer değiştiğinde B sütunundaki sayıyı 1 artırmak istiyorsunuz, bu da A sütunundaki değer değişene kadar B sütunundaki sayıların artacağı ve ardından sayı artışı, gösterilen sol ekran görüntüsü gibi tekrar 1'den başlar. Excel'de bu işi aşağıdaki yöntemle çözebilirsiniz.
  • Başka Bir Sütundaki Değer Değiştiğinde Hücreleri Topla
  • Excel çalışma sayfasında çalışırken bazen, başka bir sütundaki bir veri grubuna dayalı olarak hücreleri toplamanız gerekebilir. Örneğin, burada, A sütunundaki veriler değiştiğinde aşağıdaki sonucu elde etmek için B sütunundaki siparişleri toplamak istiyorum. Bu sorunu Excel'de nasıl çözebilirsin?
  • Excel'de Değer Değiştiğinde Boş Satırlar Ekle
  • Bir dizi veriye sahip olduğunuzu varsayarsak ve şimdi değer değiştiğinde veriler arasına boş satırlar eklemek istiyorsunuz, böylece bir sütundaki sıralı aynı değerleri aşağıda gösterilen ekran görüntüleriyle ayırabilirsiniz. Bu yazıda, bu sorunu çözmeniz için bazı püf noktalarından bahsedeceğim.
  • Excel'de Hücre Değeri Değiştiğinde Makroyu Çalıştır
  • Normalde Excel'de VBA kodunu çalıştırmak için F5 tuşuna veya Çalıştır düğmesine basabiliriz. Ancak, bir hücre değeri değiştiğinde belirli makro kodunu çalıştırmayı hiç denediniz mi? Bu makale, Excel'de bu işi halletmek için bazı hızlı püf noktaları tanıtacağım.

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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