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

Excel'deki her satır için yeni sayfalar nasıl oluşturulur?

A sütununda tüm öğrencilerin adının yer aldığı bir puan tablonuz olduğunu varsayalım. Şimdi, A sütunundaki bu adlara dayalı yeni sayfalar oluşturmak istiyorsunuz ve sayfa başına yap benzersiz bir öğrencinin verilerini içeriyor. Veya A sütunundaki isimleri dikkate almadan tablodaki sadece her satır için yeni bir sayfa oluşturun. Bu videoda, bunu başarmak için yöntemler alacaksınız.

VBA kodu ile her satır için yeni sayfalar oluşturun
Kutools for Excel'in Bölünmüş Veri yardımcı programıyla her satır için yeni sayfalar oluşturun


VBA kodu ile her satır için yeni sayfalar oluşturun

Aşağıdaki kodlarla, sütun değerlerine göre yeni sayfa oluşturabilir veya Excel'deki her satır için yeni sayfalar oluşturabilirsiniz.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ve sonra aşağıdaki kodu modül pencere.

VBA kodu: sütuna göre her satır için yeni sayfa oluşturun

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

not: A1: C1, tablonuzun başlık aralığıdır. İhtiyaçlarınıza göre değiştirebilirsiniz.

3. Basın F5 kodu çalıştırmak için anahtar, ardından mevcut çalışma kitabının tüm çalışma sayfalarından sonra aşağıdaki ekran görüntüsü gibi yeni çalışma sayfaları oluşturulur:

Sütun değerini dikkate almadan her satır için doğrudan yeni sayfalar oluşturmak istiyorsanız, aşağıdaki kodu kullanabilirsiniz.

VBA kodu: Her satır için doğrudan yeni sayfa oluşturun

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Kodu çalıştırdıktan sonra, aktif çalışma sayfasındaki her satır yeni bir çalışma sayfasına yerleştirilecektir.

not: Başlık satırı da bu VBA kodu ile yeni bir sayfaya yerleştirilecektir.


Kutools for Excel'in Bölünmüş Veri yardımcı programıyla her satır için yeni sayfalar oluşturun

Aslında yukarıdaki yöntem karmaşıktır ve anlaşılması zordur. Bu bölümde size Veriyi Böl yarar Kutools for Excel.

Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.

1. Yeni sayfalar oluşturmak için kullanmanız gereken tabloyu seçin ve ardından Kutools Artı> Tükürük Verileri. Ekran görüntüsüne bakın:

2. içinde Verileri Birden Çok Çalışma Sayfasına Bölme iletişim kutusu, lütfen aşağıdaki işlemleri yapın.

A. Sütun değerine göre yeni sayfalar oluşturmak için:

1). Lütfen seçin Belirli sütun seçeneğini seçin ve açılır listeye dayalı olarak verileri bölmek istediğiniz bir sütun belirtin;
2). Çalışma sayfalarını sütun değerleriyle adlandırmak isterseniz, lütfen seçin Sütun Değerleri içinde kurallar açılır liste;
3). Tıkla OK buton. Ekran görüntüsüne bakın:

B. Her satır için doğrudan yeni sayfalar oluşturmak için:

1). Seçiniz Sabit satırlar seçenek, numara girin 1 kutuya;
2). Seçiniz Satır Numaraları itibaren kurallar açılır liste;
3). Tıkla OK buton. Ekran görüntüsüne bakın:

Tüm yeni sayfaların içinde bulunduğu yeni bir çalışma kitabı oluşturulur. Aşağıdaki ekran görüntülerine bakın.

Sütun değerine göre her satır için yeni sayfalar oluşturma:

Sütun değerini dikkate almadan her satır için yeni sayfa oluşturmak:

  Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

Kutools for Excel'in Bölünmüş Veri yardımcı programıyla her satır için yeni sayfalar oluşturun


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 (33)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhabalar, Myformat şablon dosyama dayalı çalışma sayfaları oluşturmak ve bunları ilk sütun verilerine göre adlandırmak istiyorum. VBA kodunu aşağıdaki gibi özelleştirdim, ancak çok fazla boş sayfa oluşturuyor. Lütfen boş sayfalar oluşturmayı bırakmama yardım eder misiniz? Teşekkür ederim. Kumar Sub AddSheets() Hücreyi As Excel.Range wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = wsWithSheetNames.Range("A2:A165") içindeki her hücre için ActiveWorkbook. Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dimple\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Hatada Devam Sonraki ActiveSheet.Name = cell.Value Eğer Err.Number = 1004 ise Debug.Print cell.Value & " zaten bir sayfa adı olarak kullanılıyor" End If On Error GoTo 0 End With Next cell End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
A satırındaki benzersiz giriş başına her zaman 2 sayfa alıyorum. Neden herhangi bir fikrin var mı? Ayrıca, oluşturulan sayfanın oluşturduğu toplam satır miktarını sayfa adının başına eklemek ne kadar zor olurdu. Çok teşekkürler! Bağış alırsan haberim olsun.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, çalışma sayfaları oluşturmak ve çalışma sayfalarını ilk sütundaki verilere göre adlandırmak için exel dosya şablonum MyFormat'ı kullanmak istiyorum. Aşağıdaki VBA kodu, MyFormat'a göre çalışma sayfalarını oluşturmak için çalışıyor. Ancak normal excel şablonunda da yüzlerce boş sayfa oluşturuyor. Birileri lütfen fazla boş sayfa oluşturmayı bırakmama yardım edebilir mi? Teşekkürler Kumar Sub AddSheets() Hücreyi As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = wsWithSheetNames.Range("A2:A165") ile Her hücre için ActiveWorkbook Seti .Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dreamline\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" Hatada Sonraki ActiveSheet.Name = cell.Value If Err.Number = 1004 Sonra Debug.Print cell.Value & " zaten bir sayfa adı olarak kullanılıyor" Hata Varsa Sonlandır 0 Git Sonraki hücreyle Bitir End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma Sayfası Adlarının uzunluğu otuz karakterden az veya buna eşit olmalıdır.
Çok yaygın bir bilgi değildir, ancak aksi takdirde kod varsayılan olarak boş bir "Sayfa #" çalışma sayfası verir.

Ayrıştırma kodunuzun üzerinden geçeceği yeni bir çalışma sayfası oluşturun ve ilk sütuna aşağıdaki gibi başvurun:
=IF(VEYA('Başvurulan Orijinal'!B1<>"", UZUNLUK('Başvurulan Orijinal'!B1)>30), SOL('Başvurulan Orijinal'!B1,30),'Başvurulan Orijinal'!B1)


Yapabildiğiniz gibi sayfanın geri kalanını kopyalayın veya referans alın. Diğer çalışma sayfasına başvururken sorun yaşıyorsanız, sütunda veri doğrulama kısıtlamaları bulunmadığından emin olun.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu yayınladığınız için çok teşekkür ederim!!!! Bir cazibe gibi çalıştı. İlk kod setinin nasıl çalıştığını açıklayabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunun için teşekkür ederim!



VBA kodunda, birleştirilmiş birinci ve ikinci sütun satırı verilerinden elde edilen sayfaları adlandırmak için yine de var mı?



bu nedenle, örnek sayfanız 2 için otomatik olarak "linda 100" olarak adlandırılacaktır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Joyce,
Yorumunuz için teşekkürler! Aşağıdaki VBA betiğinin size yardımcı olabileceğini umuyoruz.

alt parse_data()
xRCount'u Uzun Süre Kısma
Dim xSht As Çalışma Sayfası
Dim xNSht As Çalışma Sayfası
Dim kadar uzun
xTRrow'u Tamsayı Olarak Karartın
Dim xCol Yeni Koleksiyon Olarak
Dize Olarak Dim xTitle
On Error Resume Next
Application.ScreenUpdating = Yanlış
xSht = ActiveSheet'i ayarla
xRCunt = xSht.UsedRange.End(xlDown).Row
xTitle = "A1:B1"
xTRrow = xSht.Range(xTitle).Row
I = 2 için xRCount için
xCol.Add(CStr(xSht.Cells(I, 1)), CStr(xSht.Cells(I, 1))) arayın
Sonraki
Debug.Print xCol.Count
I = 1 ila xCol.Count için
xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I))) çağırın
xNSht = Hiçbir şey olarak ayarla
xNSht ayarla = Çalışma Sayfaları(CStr(xCol.Item(I)))
Eğer xNSht O Zaman Hiçbir Şey Değilse
xNSht = Worksheets.Add(, Sheets(Sheets.Count)) ayarla
xNSht.Name = CStr(xCol.Item(I) & xSht.Cells(I + 1, 2))
başka
xNSht.Move , Sayfalar(Sayfalar.Sayı)
Eğer son
xSht.Range("A" & xTRrow & ":A" & xRCunt).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Sonraki
xSht.AutoFilterMode = Yanlış
xSht.Etkinleştir
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu son derece yardımcı oldu, tam aradığım şeydi. Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kod çok yardımcı oldu ve neredeyse aradığım şeydi.
Ancak iki sayfa olacak şekilde ayarlanabilir mi -
Sayfa 1, Veridir - adı Sütun A olan bir veri tablosu
Sayfa 2, doldurulması gereken çok sayıda alana sahip bir şablondur
Umduğum şey bir makro çalıştırmak, ki bu
1 Şablonu kopyalayıp yapıştırın, aynı dosyada, sayfayı A1 Hücresindeki adla adlandırın
2 B1 hücresini kopyalayın ve ardından yeni şablonda seçili alana geçin
3 boşalana kadar 1. sıra boyunca tekrarlayın
4 ardından 2. satır ve her satırı sonuna kadar tekrarlayın.
Sonuç, x no'lu bir dosyadır. tüm alanlar doldurulmuş olarak şablonla aynı sayfalar.
Diğer şekilde çalışan, şablonlardan bir tabloya veri ayıklayan bir dosyayı devraldım, ancak geri alamıyorum .....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Sam,
Çalışma kitabınızı buraya eklerseniz iyi olur.
Dosyanızı aşağıdaki Dosyaları yükle butonuyla yükleyebilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba kodunuzu kullanmaya çalıştım ama bir hata alıyorum
Çalışma zamanı hatası '1004':
Uygulama tanımlı veya nesne tanımlı hata
VBA (veya bu konuda herhangi bir teknoloji) hakkında bilgim yok, ancak bir basın hata ayıklaması yapılırsa, 11. satırı vurgular xRCunt=xSht.Cells(xSht.Rows.Count,1). End(xIUp).Satır
127 sütunu ve 337 satırı olan büyük bir dosyayla çalışıyorum (satırlar sütunları değiştirmeyecek) ve I'd numaralarını ve ayrıntılarını içeren bir liste.
Aralığı belirttiğiniz gibi değiştirdim ama yine de çalışmıyor Excel 2010 kullanıyorum, mümkünse nasıl çalıştıracağımı söyler misiniz?
teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili Beatriz,
Kod, problem çözme ile güncellenir. Lütfen tekrar deneyin. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, burada benim durumum için faydalı bir şey olduğunu düşünüyorum ama VBA veya script yapabilirim, umarım yardımcı olabilirsiniz.
Verilerle doldurmak için birçok hücre içeren bir şablonum var ve şablona girmek istediğim bir arama anahtarı (benzersiz olmayan) olacak. Arama anahtarına bağlı olarak, veriler aranır ve eşleşen anahtardaki ilgili veriler alınır ve şablona doldurulur. Doldurulan şablon yeni bir çalışma sayfasına kaydedilir. Belki 1'den fazla maç girişi olabilir. Tüm eşleşmeler seçilene ve belirli sayıda yeni çalışma sayfası oluşturulana kadar listeyi aramaya devam etmek için komut dosyasına ihtiyacım var.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, her yeni çalışma sayfasında başlık satırını korumanın bir yolu var mı? (ekimde kırmızı daire içine alınmış)

Kod, ana çalışma sayfamdaki tüm satırları alır ve onları yeni çalışma sayfalarına aktarır, bu harika. Ancak "ana" başlık değerimi (kırmızı daire içine alınmış) her yeni çalışma sayfasının üstünde tutmak istiyorum. Teşekkürler!



Yukarıdan bu koda atıfta bulunuyorum:

Alt RowToSheet()
xRow'u Uzunlukta Karart
Dim kadar uzun
ActiveSheet ile
xRow = .Range("A" & Rows.Count).End(xlUp).Satır
I için = 1'den xRow'a
Worksheets.Add(, Sheets(Sheets.Count))).Name = "Satır" & I
.Rows(I).Copy Sheets("Satır" & I).Range("A1")
Sonraki ben
İle bitmek
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika kod, ancak verilerim A sütunu yerine G sütunundaysa biraz yardım alabilir miyim? Sütun G verilerinin farklı sekmede olması için neyi değiştirmem gerekiyor?

Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika bir kod. OfficeExtend'deki beyin kutularına çok teşekkürler !! Yine de bu kod, satır yerine her *sütun* için ayrı sayfalar oluşturmak üzere biraz uyarlanabilir mi? Elde etmeye çalıştığım şeyin bir resmini ekledim. Mümkün mü? Saygılarımla.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Resminizi burada göremedim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, ad alanım C sütunundaysa kod nasıl değiştirilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Abdul Basit,
Aşağıdaki VBA kodu size yardımcı olabilir. Lütfen bir deneyin.
Satırda: xCName = "3", 3, Excel'deki sütun numarasını (burada C sütunu) gösterir. İstediğiniz gibi herhangi bir sütun numarasına değiştirebilirsiniz.

alt parse_data()
'Güncelleme Extendoffice 2018/3/2
xRCount'u Uzun Süre Kısma
Dim xSht As Çalışma Sayfası
Dim xNSht As Çalışma Sayfası
Dim kadar uzun
xTRrow'u Tamsayı Olarak Karartın
Dim xCol Yeni Koleksiyon Olarak
Dize Olarak Dim xTitle
Boole olarak xSUpdate'i karart
Tamsayı olarak xCName Dim
Dim xTA, xRA, xSRg1 As Dize
xSht = ActiveSheet'i ayarla
On Error Resume Next
xRCunt = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xCName = "3" 'Bu sayıyı, yeni sayfalar oluşturacağınız sütun numarasıyla değiştirin.
xTRrow = xSht.Range(xTitle).Cells(1).Row
I = 2 için xRCount için
xCol.Add(xSht.Cells(I, xCName).Text, xSht.Cells(I, xCName).Text) çağırın
Sonraki
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Yanlış
xSRg = xSht.Cells(1, xCName).Address(RowAbsolute:=False, ColumnAbsolute:=False)
I = 1 ila xCol.Count için
xSht.Range(xTitle).AutoFilter(xCName, CStr(xCol.Item(I))) çağırın
xNSht = Hiçbir şey olarak ayarla
xNSht ayarla = Çalışma Sayfaları(CStr(xCol.Item(I)))
Eğer xNSht O Zaman Hiçbir Şey Değilse
xNSht = Worksheets.Add(, Sheets(Sheets.Count)) ayarla
xNSht.Name = CStr(xCol.Item(I))
başka
xNSht.Move , Sayfalar(Sayfalar.Sayı)
Eğer son
xSht.Range("A" & xTRrow & ":A" & xRCunt).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Sonraki
xSht.AutoFilterMode = Yanlış
xSht.Etkinleştir
Application.ScreenUpdating = xSUpdate
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hile yapmak için harika VBA kodu.

İlk sütunu kopyalamamak için nasıl değiştirebilirim? Ve sütun adını kaldırmak için?

Saygılarımızla
Bu yorum sitedeki moderatör tarafından en aza indirildi
Lütfen belirli bir sütunu kullanarak sayfaları otomatik olarak nasıl adlandıracağım konusunda yardım alabilir miyim? Bu, satırdan sayfaya VBA içindir. Aşağıya bakınız

Alt RowToSheet()

xRow'u Uzunlukta Karart

Dim kadar uzun

ActiveSheet ile

xRow = .Range("A" & Rows.Count).End(xlUp).Satır

I için = 1'den xRow'a

Worksheets.Add(, Sheets(Sheets.Count))).Name = "Satır" & I

.Rows(I).Copy Sheets("Satır" & I).Range("A1")

Sonraki ben

İle bitmek

End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Boşver, gizli sondaki boşluklardı. TRIM özelliğini kullandım ve temizledim. Satır sayımına sahip olmak (satır sayısı gerçekten, böylece sayfaya -1 satırları eklenmiş olması harika olurdu)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdaki kodun kullanımına nasıl başvurulur (kredi)? Kodu değiştirmek mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu açık bir iletişim platformudur. Kodun referans vermesine ve değiştirilmesine izin verilir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
büyükanne
86
2
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! Sadece bu kodu kullandım ve işe yaradı! Her giriş için yeni bir sayfa oluşturmaya ek olarak, onu sütunlara aktarmak istiyorum ve çözemiyorum. Yani yukarıdaki örnek için, Nana'nın çıktısı şöyle görünecektir - İsim-Soyisim NinePuan 86Hayır. 2
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu kodu kullandım ve çalıştı, ancak başlıkta birden fazla satır seçmek istersem, kodda ne değişecek? Sayfada her sayfada olmasını istediğim birden fazla satırım var.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, nasıl olduğunu anladınız mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, makro her çalıştırıldığında yalnızca 1 yeni sayfa ekleyecek bir kod var mı, örneğin 1. kez yeni sayfa A1 hücresinin içeriğinde adlandırılacak, 2. kez makro çalıştırıldığında yeni sayfa, A2 içeriği vb. beklenti içinde teşekkürler
Buraya henüz hiç yorum yapılmamış
Daha Çok
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