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

 Her baskıdan sonra hücre değeri nasıl otomatik olarak artırılır?

Diyelim ki, 100 kopya basılması gereken bir çalışma sayfası sayfam var, A1 hücresi kontrol numarası Company-001, şimdi, her çıktıdan sonra sayının 1 artmasını istiyorum. Yani ikinci nüshayı yazdırdığımda numara otomatik olarak Şirket-002'ye yükseltilecek, üçüncü nüsha, numara Şirket-003… yüz kopya, numara Şirket-100 olacak. Excel'de bu sorunu hızla ve olasılıkla çözmek için herhangi bir hile var mı?

VBA kodu ile her baskıdan sonra hücre değerini otomatik olarak artırın


ok mavi sağ balon VBA kodu ile her baskıdan sonra hücre değerini otomatik olarak artırın

Normalde, bu görevi Excel'de çözmenin doğrudan bir yolu yoktur, ancak burada, bununla başa çıkmak için bir VBA kodu oluşturacağım.

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: Her baskıdan sonra hücre değerini otomatik olarak artırın:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve mevcut çalışma sayfasını yazdırmak istediğiniz kopya sayısını girmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

1 yazdırırken belge artışı

4. tıklayın OK düğmesi ve mevcut çalışma sayfanız şimdi yazdırılıyor ve aynı zamanda, yazdırılan çalışma sayfaları A001 hücresinde ihtiyacınız olan Şirket-002, Şirket-003, Şirket-1… olarak numaralandırılmıştır.

not: Yukarıdaki kodda, hücre A1 sipariş ettiğiniz sıra numaraları ve orijinal hücre değeri eklenecektir. A1 temizlenecek. Ve "Şirket-00"Sıra numarasıdır, bunları ihtiyacınıza göre değiştirebilirsiniz.


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 (51)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kod harika, tam olarak ihtiyacım olan şey, ancak merak ediyordum, "A1" hücresine girilen numaradan yazdırmaya başlamanın bir yolu var mı? Örneğin, 100 kopya bastıysam, bir sonraki baskıda 101 numaradan çıktı almam ve oradan saymam gerekecek. Birkaç kod ayarlaması denedim, ancak yalnızca hücreye girilen sayıyı alıyor gibi görünüyor, yani 101, 1 ekleyin ve ardından baskıların geri kalanı bu tek sayı, yani 102 ile sıkışmış... Yardımınız çok takdir edilecektir: -)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Zaten bir çözüm bulamadıysanız, kodun 17. satırını buna göre düzenleyebilirsiniz: ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Bu, A1 hücresindeki numaranıza +1 ekler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
yazıcıma göndermiyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bonjour

en exécutant la macro ca cellule adını siler.
A1= 153 örneğinden kaçınmak için 10 nüshalık bir baskı oluşturduk. 154'ten 164 ET'ye kadar olan feuilles, 164 numaralı cep telefonunun adı olabilir.
A1'de chiffre dansı yapan bir izlenime sahip olmak.
Temel özelliklerden kaçınmak mümkün olabilir. Seçenek gösterimi aracılığıyla makronun etkin yönlendirmesini sağlayabilirsiniz. Mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bonjour

A1'deki makroyu etkin bir şekilde silin.

A1=153 örneğinin mümkün olan en büyük miktarı ve 10 kopyadan oluşan bir gösterimi elde edebilirsiniz. 10 ila 154 ET arasındaki 164 gösterim sayısını geri alın ve A153'de 1'ü 164'e kadar büyütün.

İzlenim için temel kullanımdan kaçınmanız mümkün olmayabilir. Makroyu yalnızca basit bir şekilde kullanmak için bir seçenek izlenimi ile yönlendirmeyi bırakabilirsiniz.

Merci votre aide dökmek
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba kaji,
Sorununuzu çözmek için lütfen aşağıdaki kodu uygulayın:
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Lütfen bir deneyin, umarım size yardımcı olabilir, başka bir sorununuz varsa lütfen buraya yorum yapın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ekli değiştirilmiş kodları bulun.

Ve işte metinde:
Alt ArtışPrint()
'güncelleme Extendoffice
Dim xEnd Varyant Olarak
Dim xStart Varyant Olarak
Boole Olarak XScreen'i Karartın
Dim kadar uzun
On Error Resume Next
LIgiriş:
xStart = Application.InputBox("Lütfen ilk sayıyı giriniz:", "Kutools for Excel")
xEnd = Application.InputBox("Lütfen son sayıyı giriniz:", "Kutools for Excel")
TypeName(xCount) = "Boolean" ise Sub Exit
Eğer (xStart = "") Veya (Sayısal Değildir(xStart)) Veya (xStart < 1) O zaman
MsgBox "Hata girildi, lütfen tekrar girin", vbInformation, "Kutools for Excel"
LIGirişe Git
başka
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Yanlış
I için = xBaşlangıçtan xEnd'e
ActiveSheet.Range("A1").Value = " Şirket-00" & I
ActiveSheet.PrintOut
Sonraki
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
IA1-055242, IA1-055243, IA1-055244 gibi seri numaralarına ihtiyacım var .....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu yayınladığınız için teşekkür ederim, çok yardımcı oluyor. Sorum şu: Bir sayfada artırılması gereken 2 farklı barkodum var, bunu yapmak için kodu nasıl değiştirebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu ayrı bir gönderide sorduğum için üzgünüm... Seri numaralarım SIFIR ile başlıyor ama programı çalıştırdığımda sıfırları eliyor. Sayı alanını metne dönüştürmeye çalıştım ama bu sorunu çözmedi. Diğer fikirler?
Bu yorum sitedeki moderatör tarafından en aza indirildi
R-Click Hücre, Format, Özel, 'Genel' yazan yerde, bunu seri numaranızın olacağı kadar Sıfır ile değiştirin. Bu, seri numaranızın önünde gereken sıfır miktarını zorlayacaktır. 10 haneli seri numarası olan bir seri numaram varsa, Type alanına 0000000000 girerek seri numarası alanında '0004563571' görüntülenmesini sağlarım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler Sanat. Bunu denedim ama barkod, özel bir sayı formatı yaptıktan sonra bile baştaki sıfırları ortadan kaldırmaya devam etti.
Bu yorum sitedeki moderatör tarafından en aza indirildi
seri numaram 227861 ile başlıyor nasıl yazdırabilirim
Bu yorum sitedeki moderatör tarafından en aza indirildi
30 kopya gibi basıldı ama şimdi yazdıramıyorum, betiği birçok kez çalıştırdım ama çalışmıyor, hiçbir şey yapma :(
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdakiler için teşekkür ederim, gerçekten yardımcı oldu. son değeri kaydetmek ve hatırlamak mümkün mü
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Pieter,
Bir dahaki sefere yazdırdığınızda son yazdırılan değeri kaydetmek ve hatırlamak için aşağıdaki VBA kodunu uygulamalısınız:

Alt ArtışPrint()
Varyant Olarak xCount Dim
Boole Olarak XScreen'i Karartın
Dim kadar uzun
xM Uzunluğunu Azalt
Dim xMNWS Çalışma Sayfası
Çalışma Sayfası Olarak xAWS'ı Karartın
On Error Resume Next
LIgiriş:
xCount = Application.InputBox("Lütfen yazdırmak istediğiniz kopya sayısını girin:", "Kutools for Excel")
TypeName(xCount) = "Boolean" ise Sub Exit
Eğer (xCount = "") Veya (Sayısal Değil(xCount)) Veya (xCount < 1) O zaman
MsgBox "hata girildi, lütfen tekrar girin", vbInformation, "Kutools for Excel"
LIGirişe Git
başka
xScreen = Application.ScreenUpdating
xAWS = ActiveSheet'i ayarla
Hatada EMarkNumberSheet'e Git
xMNWS = Sayfaları ayarla("IncrementPrint_MarkNumberSheet")
EMarkNumber Sayfası:
Eğer xMNWS Hiçbir Şey Değilse
xMNWS = Application.Worksheets.Add(Type:=xlWorksheet) olarak ayarlayın
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1").Değer = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
başka
xM = xMNWS.Range("A1").Value
Eğer son
Application.ScreenUpdating = Yanlış
I için = 1'den xCount'a
xM = xM + 1
xAWS.Range("A1").Value = " Şirket-00" & xM
xAWS.Yazdır
Sonraki
xMNWS.Range("A1").Değer = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Eğer son
End Sub

Yazdırılan numarayı varsayılan numaraya sıfırlamanız gerekiyorsa, lütfen önce aşağıdaki kodu çalıştırın ve ardından yazdırmak için yukarıdaki kodu çalıştırın.

Alt ArtışPrint_Reinstall()
Dim xMNWS Çalışma Sayfası
Hatada EMarkNumberSheet'e Git
xMNWS = Sayfaları ayarla("IncrementPrint_MarkNumberSheet")
EMarkNumber Sayfası:
xMNWS Değilse O Zaman Hiçbir Şey Değilse
Application.DisplayAlerts = Yanlış
xMNWS.Visible = xlSheetGizli
xMNWS.Sil
Application.DisplayAlerts = True
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu kod için teşekkürler.. Bir sorum var. Bu kodu kullandım ama seriler 0071,0072,0073 gibi zıplıyor. 3-1 serisi arasında 100x gibi oldu. Bu yüzden vba'yı kaydetmeden kapattım, kodu yeniden yükleyin ancak kaydedilen son seriyi yazdırıyor (0032). Sorum şu ki, seri atlamadan sürekli olarak nasıl yazdırabilirim ve 101'den başlayarak nasıl yeniden yazdırabilirim? cevabınızı gerçekten takdir edecek. Bunun için üzgünüm. Ben bir programcı değilim, umarım anlarsın. Teşekkür ederim! 
Bu yorum sitedeki moderatör tarafından en aza indirildi
bunu yayınladığınız için teşekkür ederim, çok yardımcı oluyor. Sorum şu: Bir sayfada artırılması gereken 2 farklı barkodum var, bunu yapmak için kodu nasıl değiştirebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Desmond,
Bir sayfada 2 yeriniz varsa (2 Kupon veya 2 şablon / 2 kupon vb.), aşağıdaki kodu kullanmayı deneyebilirsiniz. (1. barkodunuz ve 2. barkodunuzun aynı sayfanın "A1" ve "A20" hücrelerinde olduğunu varsayarsak, bu kod ilk sayfada Company-001 ve Company-002 ve ikinci sayfada Company-003 ve Company-004 gibi değerleri artıracaktır. Kodun 20, 21, 23, 24 ve 28,29. satırlarında hücre no ve Firma adını istediğiniz gibi düzenleyebilirsiniz. 
Ayrıca sizden başlangıç ​​ve bitiş numarasını girmenizi isteyecektir (Kodun bu kısmı için dahi adama teşekkürler). Yani örneğin başlangıç ​​numaranız. 1 ve biten hayır. 8, 4. sayfaya 1,2, 1. sayfaya 3,4, 2. sayfaya 5,6 ve son olarak 3. sayfaya 7,8 olmak üzere 4 sayfa yazdıracaktır. Umarım size veya bu tür bir ihtiyaç/gereksinim arayan herkese yardımcı olur. 
Değiştirilmiş Kod:---------------------------------------------------------- ------------Alt ArtışBaskı()
'güncelleme Extendoffice
Dim xEnd Varyant Olarak
Dim xStart Varyant Olarak
Boole Olarak XScreen'i Karartın
Dim kadar uzun
On Error Resume Next
LIgiriş:
xStart = Application.InputBox("Lütfen ilk sayıyı giriniz:", "Kutools for Excel")
xEnd = Application.InputBox("Lütfen son sayıyı giriniz:", "Kutools for Excel")
TypeName(xCount) = "Boolean" ise Sub Exit
Eğer (xStart = "") Veya (Sayısal Değildir(xStart)) Veya (xStart < 1) O zaman
MsgBox "Hata girildi, lütfen tekrar girin", vbInformation, "Kutools for Excel"
LIGirişe Git
başka
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Yanlış
I için = xBaşlangıçtan xEnd'e
Eğer Mod 2 = 0 ise
ActiveSheet.Range("A1").Value = " Şirket-00" & I + 1
ActiveSheet.Range("A20").Value = " Şirket-00" & I
başka
ActiveSheet.Range("A20").Value = " Şirket-00" & I + 1
ActiveSheet.Range("A1").Value = " Şirket-00" & I
ActiveSheet.PrintOut
Eğer son
Sonraki
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Eğer son
End Sub

-------------------------------------------------- -------------------------------------------------- -----Teşekkürler,RNS
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hücrem I3 ve sayı 2298'i denediğimde (VBA kodu: Her yazdırmadan sonra hücre değerini otomatik artırma :) bana 22981 veriyor 2298,2299,2300'e nasıl ulaşabilirim
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba jennifer,
Sorununuzla başa çıkmak için lütfen aşağıdaki VBA kodunu uygulayın:
Not: Lütfen önek metnini ve numarayı kendinize göre değiştirin.

Alt ArtışPrint_Num()
Varyant Olarak xCount Dim
Boole Olarak XScreen'i Karartın
Dim kadar uzun
xStr'yi Dize Olarak Kıs
XInt Tamsayı Olarak Dim
On Error Resume Next
xStr = "Şirket-" 'ön ek metni
xInt = 2291 'sayı
LIgiriş:
xCount = Application.InputBox("Lütfen yazdırmak istediğiniz kopya sayısını girin:", "Kutools for Excel")
TypeName(xCount) = "Boolean" ise Sub Exit
Eğer (xCount = "") Veya (Sayısal Değil(xCount)) Veya (xCount < 1) O zaman
MsgBox "hata girildi, lütfen tekrar girin", vbInformation, "Kutools for Excel"
LIGirişe Git
başka
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Yanlış
I için = 1'den xCount'a
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xStr & xInt
ActiveSheet.PrintOut
Sonraki
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Eğer son
End Sub

Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba bu konuda bana yardımcı olabilir misiniz? xINT'in 5 basamaktan fazla olmasını istiyorum. 6 haneli bir sayıyı her koyduğumda sayı 1'e dönüyor. Bunu nasıl önleyebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba çok ilginç farklı bir çözüm aramama rağmen bulamadığım ve kodu özelleştirmeye çalışsam da şu ana kadar ulaşamadım.Örneğinize göre aynı sayfayı 100 kere yazdırmam gerekecek, örneğin aynı PDF'ye ve her sayfada sayfa numarası arttı. Dediğim gibi harmanlama yöntemini denedim ama anladığım kadarıyla aynı çıktının birden fazla kopyasına ihtiyacınız varsa birlikte yazdırmanıza izin veriyor. Şimdiden teşekkürler Giuseppe
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu kod mükemmel çalışıyor, ancak 32767 hücre değerinden sonra tekrar 1'e dönüyor. Bu değerden sonra 1 numaradan yazdırılıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
çok teşekkür ederim, işime yarıyor. Ve ihtiyaçlarıma uygun birkaç küçük değişiklik yapmayı başardım. Paylaşımınız için gerçekten teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Jennifer, Bunu dene
Alt ArtışPrint()
'güncelleme Extendoffice 20160530
Varyant Olarak xCount Dim
Boole Olarak XScreen'i Karartın
Dim kadar uzun
On Error Resume Next
LIgiriş:
xCount = Application.InputBox("Lütfen yazdırmak istediğiniz kopya sayısını girin:", "Kutools for Excel")
TypeName(xCount) = "Boolean" ise Sub Exit
Eğer (xCount = "") Veya (Sayısal Değil(xCount)) Veya (xCount < 1) O zaman
MsgBox "hata girildi, lütfen tekrar girin", vbInformation, "Kutools for Excel"
LIGirişe Git
başka
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Yanlış
I için = 1'den xCount'a

ActiveSheet.PrintOut
ActiveSheet.Range("J18").Value = ActiveSheet.Range("J18").Value + 1
Sonraki
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir milyon teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Artımlı #'leri yazdırmak için iyi çalışır. Gerektiğinde her 5, 10'da bir nasıl yazdırırım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hangi değerleri yazdırmak istediğimi seçmenin bir yolu var mı? örneğin 1'den 30'a kadar olan diziyi yazdırdım ama 15'ten 19'a kadar olan diziyi yeniden yazdırmam gerekiyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
hey, yazdırdıktan sonra K11 hücre numarasını 1-2-3-4-5-6 vb. olarak değiştirmek istiyorum lütfen yardımcı olabilir misiniz? ve ayrıca bana bu işlevi nasıl çağıracağımı söyle lütfen yardım edin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Nasıl küçük bir değişiklik yapacağımı merak ediyordum, böylece 1'da 10, 2'da 10, 3'da 10, vb.
Aksi takdirde bu harika çalışıyor. Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba benim adım kesin irsaliye örneği gibi seri numarası olmayan excel formatında bir veriye sahibim. 100 sayfa baskı olarak almam gerekiyor ve seri numarasını 4 haneden neye ihtiyacım varsa yazdırmam gerekiyor ama yazdırırken manuel olarak yapmam gerekiyor. Kimin yazdıracağını açıklayabilir misiniz, yazdırırken seri numarası kodunu otomatik olarak oluşturun
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika !! Ben bir programcı değilim ama Cell ref ve istediğim uniq numaralandırmasını değiştirmeyi başardım. Benim için harika çalıştı Tanrı sizi korusun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
2 kopyanın otomatik olarak yazdırılması için bu koda eklemek de mümkün müdür?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu bölümü değiştirebileceğinizi düşünüyorum:ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOut

için
ActiveSheet.Range("A1").Value = " Şirket-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

her birinden 2 kopya almak için.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yeniden açtıktan sonra dosyayı doğrudan yazdırabilir misiniz diye merak ediyordum ve hala sıra numarasını takip ediyor mu?
Şu anda yaptığım şey, dosyayı her açtığımda, ALT + F11, ardından F5 ve kopya sayısını belirtmek. Daha sonra dosyayı doğru numaralandırma ile yazdıracak, ardından tekrar kaydedecektir. ve tekrar açacağım zaman, sadece aynı adımı yapmam gerekiyor.
Dosyayı her açtığınızda doğrudan yazdırabileceğiniz bir kod varsa ve yine de sıralı numaralandırmayı takip edecekse?
şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yeniden açtıktan sonra dosyayı doğrudan yazdırabilir misiniz diye merak ediyordum ve hala sıra numarasını takip ediyor mu?

Şu anda yaptığım şey, dosyayı her açtığımda, ALT + F11, ardından F5 ve kopya sayısını belirtmek. Daha sonra dosyayı doğru numaralandırma ile yazdıracak, ardından tekrar kaydedecektir. ve tekrar açacağım zaman, sadece aynı adımı yapmam gerekiyor.

Dosyayı her açtığınızda doğrudan yazdırabileceğiniz bir kod varsa ve yine de sıralı numaralandırmayı takip edecekse?

şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yukarıdaki kodu paylaştığınız için çok teşekkür ederim. Herkes için çok faydalıdır. Baskılardan sonra 8 yerine 1 rakamı artırmak için biraz daha kod ekleyebilir miyiz? Cevabınızı bekliyorum. 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