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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma...

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!

Devamı ... Ücretsiz indirin... Satın alma...

Yorumlar (8)

Henüz derecelendirme yok. İlk değerlendiren siz olun!

MİSAFİR

yaklaşık 4 yıl önce

#27836

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba teşekkürler! VBA düşüncesi beni terletiyor. Yine de bu kodun sonuçlarıyla ilgili bir sorunum var. İlk sütun bir sütun başlığıdır. Kod bunu bir değişiklik olarak değerlendirir. İlk sayfam yalnızca sütun başlığını gösteriyor, ancak sonraki sayfalarda sorun yok. Bilginize: Bu, aylık bir rapor içindir ve her bir kriter için satır sayısı aylık olarak değişir. Herhangi bir fikir? Şimdiden teşekkür ederim.

cevap

MİSAFİR

yaklaşık 4 yıl önce

#27837

Bu yorum sitedeki moderatör tarafından en aza indirildi

Afedersiniz. EDIT: İlk SATIR bir sütun başlığıdır.

cevap

Mike Mitsch

yaklaşık 3 yıl önce

#30711

Bu yorum sitedeki moderatör tarafından en aza indirildi

Bu gerçekten harika! VB örneğinizi takip ettim ve işe yaradı! Ben de KUTools'un sahibiyim, bu yüzden onunla da oynayacağım.

Çok etkilendim ve teşekkürler!

mikrofon

cevap

Wilco

yaklaşık 2 yıl önce

#33465

Bu yorum sitedeki moderatör tarafından en aza indirildi

Sayfanın ilk 20 satırını atlamak mümkün müdür? Her türlü şeyi deniyorsam, ancak VBA bilgim, kodu kendim ayarlamakla sınırlıdır.

cevap

gökyang Wilco

yaklaşık 2 yıl önce

#33466

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba, Wilco,
Sayfa sonunu eklemek, ancak ilk 20 satırı atlamak için, aşağıdaki kod gibi bir parametreyi değiştirmeniz yeterlidir:

Alt sayfa sonu eklemeleri()

'güncelleme Extendoffice

Dim I Kadar Uzun, J Kadar Uzun

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

I = J için 21 Adım -1

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

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

Eğer son

Sonraki ben

End Sub

Lütfen deneyin, teşekkürler!

cevap

Report

Le Tuan

yaklaşık 4 ay önce

#40354

Bu yorum sitedeki moderatör tarafından en aza indirildi

Tôi không muốn ngắt trang tại những hàng bị ẩn. İyi misin?

cevap

gökyang Le Tuan

yaklaşık 4 ay önce

#40404

Bu yorum sitedeki moderatör tarafından en aza indirildi

Merhaba, Lê Tuấn
Sorununuzu çözmek için lütfen aşağıdaki VBA kodunu uygulayın:

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

Lütfen deneyin, umarım size yardımcı olabilir!

cevap

Report

Hélène HERLY

yaklaşık 3 ay önce

#40513

Bu yorum sitedeki moderatör tarafından en aza indirildi

Bonjour

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

Thank you very much!

cevap

Buraya henüz hiç yorum yapılmamış

Lütfen yorum yazın

Misafir olarak yayınlama

Giriş

İsim (Gerekli)

E-posta (Gerekli)

Bu gönderiyi değerlendirin:

Reset

0 Karakterler

Ben kabul ediyorum şartlar ve durum