Note: The other languages of the website are Google-translated. Back to English

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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (8)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
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.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Afedersiniz. EDIT: İlk SATIR bir sütun başlığıdır.
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
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.
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!
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?
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!
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!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır