İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Hər bir çapdan sonra hüceyrənin dəyərini avtomatik artırmaq üçün necə?

100 nüsxə çap olunmaq üçün lazım olan bir iş səhifəsi var, məsələn, A1 hüceyrə şirkəti-001, indi xNUMX tərəfindən hər bir çıxdıqdan sonra artacaqdır. Yəni ikinci nüsxəni yazdığımda, nömrənin nömrəsi avtomatik olaraq Company-1-a, üçüncü nüsxədə, şirkət-002-ə qədər olacaq ... yüz nüsxə olacaq, nömrə şirkət-003 olacaq. Excel-də bu problemi tez və mümkün həll etmək üçün hər hansı bir hiylə varmı?

VBA kodu ilə hər çapdan sonra avtomatik artırma hüceyrə dəyəri


Bir iş səhifəsinin tək, hətta cari və ya müəyyən səhifələrini yazdırın

Excel üçün Kutools's Belirlenmiş Sayfaları Yazdır yardım proqramı tez, hətta cari və ya müəyyən səhifələrə ehtiyac duyulduğunda çap etməyə kömək edə bilər.

2 yazarkən doc artımı

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


arrow mavi sağ bubble VBA kodu ilə hər çapdan sonra avtomatik artırma hüceyrə dəyəri


Normalda Excel-də bu vəzifəni həll etmək üçün birbaşa yol yoxdur, amma burada, bununla məşğul olmaq üçün VBA kodunu yaratacağam.

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: Hər bir çapdan sonra avtomatik artırma hüceyrə dəyəri:

Sub IncrementPrint()
'updateby Extendoffice 20160530
    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. Sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və bir işarə qutusu, mövcud işi yazdırmaq istədiyiniz nüsxə sayını daxil etmək üçün xatırlatmaq üçün açılır, ekran görüntüsünə baxın:

1 yazarkən doc artımı

4. Basın OK düyməsini basın və mövcud iş səhifənizi artıq çap edir və eyni zamanda, çap olunmuş iş sənədləri, ehtiyac duyduğunuz A001 hücresində Company-002, Company-003, Company-1 ... sayılır.

QeydYuxarıdakı kodda, hüceyrə A1 sifariş verdiyiniz sıra nömrələrini və orijinal hüceyrənin dəyərini daxil edəcəyik A1 təmizlənəcəkdir. Və "Şirkət-00"Ardıcıl sayıdır, onları ehtiyacınıza dəyişə bilərsiniz.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    unknown · 16 days ago
    hey i want to change number of K11 cell number after print to 1-2-3-4-5-6 etc pls can u help ? and also tell me how to call that function pls help
  • To post as a guest, your comment is unpublished.
    Ib Alsa · 1 months ago
    Is there a way to select what values I want to print? for example I printed sequence 1 to 30 but need to reprint sequence 15 to 19 again.
  • To post as a guest, your comment is unpublished.
    Bill Turek · 1 months ago
    Works good for printing incremental #'s. How do I print every 5th,10, when needed?
  • To post as a guest, your comment is unpublished.
    Arash · 3 months ago
    Thanks a million
  • To post as a guest, your comment is unpublished.
    jennifer · 4 months ago
    My cell is I3 and the number is 2298 when I try the (VBA code: Auto increment cell value after each printing:) it gives me 22981 how do I get it to 2298,2299,2300
    • To post as a guest, your comment is unpublished.
      tan chee ho · 2 months ago
      thank you very much, it works for me. And i manage to make a few minor change to suit my needs. Really Appreciate to your sharing.
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hi, jennifer,
      To deal with your problem, please apply the following VBA code:
      Note: Please change the prefix text and number to your own.

      Sub IncrementPrint_Num()
      Dim xCount As Variant
      Dim xScreen As Boolean
      Dim I As Long
      Dim xStr As String
      Dim xInt As Integer
      On Error Resume Next
      xStr = "Company-" 'prefix text
      xInt = 2291 '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 = xStr & xInt
      ActiveSheet.PrintOut
      Next
      ActiveSheet.Range("A1").ClearContents
      Application.ScreenUpdating = xScreen
      End If
      End Sub

      Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        Richard · 2 months ago
        Hello can you help me with this? I want the xINT to be more than 5 digits. Everytime i put a number with 6 digits, the count goes back to 1. How can i prevent that?