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

 จะเพิ่มค่าเซลล์อัตโนมัติหลังจากการพิมพ์แต่ละครั้งได้อย่างไร?

สมมติว่าฉันมีหน้าเวิร์กชีตที่ต้องพิมพ์ 100 สำเนาเซลล์ A1 คือหมายเลขเช็ค Company-001 ตอนนี้ฉันต้องการให้จำนวนเพิ่มขึ้น 1 ครั้งหลังจากการพิมพ์ทุกครั้ง นั่นหมายความว่าเมื่อฉันพิมพ์สำเนาที่สองจำนวนจะเพิ่มเป็น Company-002 โดยอัตโนมัติสำเนาที่สามหมายเลขจะเป็น บริษัท -003 …หนึ่งร้อยฉบับหมายเลขจะเป็น บริษัท -100 มีเคล็ดลับในการแก้ปัญหานี้ใน Excel อย่างรวดเร็วและเป็นไปได้หรือไม่?

เพิ่มค่าของเซลล์โดยอัตโนมัติหลังจากการพิมพ์แต่ละครั้งด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา เพิ่มค่าของเซลล์โดยอัตโนมัติหลังจากการพิมพ์แต่ละครั้งด้วยรหัส VBA

โดยปกติไม่มีวิธีโดยตรงสำหรับคุณในการแก้ปัญหานี้ใน Excel แต่ที่นี่ฉันจะสร้างรหัส VBA เพื่อจัดการกับมัน

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: เพิ่มค่าเซลล์อัตโนมัติหลังจากการพิมพ์แต่ละครั้ง:

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. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนจำนวนสำเนาที่คุณต้องการพิมพ์แผ่นงานปัจจุบันดูภาพหน้าจอ:

การเพิ่ม doc เมื่อพิมพ์ 1

4. คลิก OK และแผ่นงานปัจจุบันของคุณกำลังพิมพ์อยู่ในขณะนี้และในเวลาเดียวกันแผ่นงานที่พิมพ์จะมีหมายเลข Company-001, Company-002, Company-003 …ในเซลล์ A1 ตามที่คุณต้องการ

หมายเหตุ: ในโค้ดด้านบนเซลล์ A1 จะถูกแทรกหมายเลขลำดับที่คุณสั่งซื้อและค่าเซลล์เดิมใน A1 จะถูกล้าง และ“บริษัท -00” คือหมายเลขลำดับที่คุณสามารถเปลี่ยนได้ตามต้องการ


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (51)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้น่าทึ่งมาก นี่คือสิ่งที่ฉันต้องการ แต่ฉันสงสัยว่ามีวิธีเริ่มพิมพ์จากหมายเลขที่ป้อนในเซลล์ "A1" หรือไม่ ตัวอย่างเช่น หากฉันพิมพ์ 100 สำเนา ในการพิมพ์ครั้งต่อไป ฉันจะต้องพิมพ์จากหมายเลข 101 และนับจากที่นั่น ฉันได้ลองปรับเปลี่ยนโค้ดแล้ว แต่ดูเหมือนว่าจะใช้เฉพาะตัวเลขที่ป้อนในเซลล์ เช่น 101 เพิ่ม 1 จากนั้นงานพิมพ์ที่เหลือจะติดอยู่กับตัวเลขนั้น เช่น 102... ความช่วยเหลือของคุณจะได้รับการชื่นชมอย่างมาก : -)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หากคุณไม่พบวิธีแก้ไข คุณสามารถแก้ไขบรรทัดที่ 17 ของโค้ดดังนี้: ActiveSheet.Range("A1").Value = Range("A1")).Value + 1
สิ่งนี้จะเพิ่ม +1 ให้กับตัวเลขที่คุณมีในเซลล์ A1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ส่งไปยังเครื่องพิมพ์ของฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,

en exécutant la macro ça efface le nombre de ma เซลล์
Je voudrais par example avoir A1= 153, je lance un impression de 10 copy. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si possible na pas à avoir aller dans พื้นฐาน. je voudrais que la macro s'active directement via l'option impression. เป็นไปได้ไหม ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par example A1=153 et faire unimpression de 10 copy. donc je récupéré 10 การแสดงผล numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

Je voudrais aussi si possible ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l'option ความประทับใจที่เรียบง่าย

ขอบคุณสำหรับความช่วยเหลือของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคะจิ
เพื่อแก้ปัญหาของคุณ โปรดใช้รหัสด้านล่าง:
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

โปรดลองหวังว่าจะช่วยคุณได้ หากคุณมีปัญหาอื่น ๆ โปรดแสดงความคิดเห็นที่นี่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ค้นหารหัสที่แก้ไขที่แนบมา

และนี่คือข้อความ:
ย่อย IncrementPrint()
'updateby Extendoffice
Dim xEnd เป็นตัวแปร
Dim xStart เป็น Variant
Dim xScreen เป็นบูลีน
หรี่ฉันนาน
เกี่ยวกับข้อผิดพลาดต่อไป
อินพุต:
xStart = Application.InputBox("โปรดป้อนหมายเลขแรก:", "Kutools for Excel")
xEnd = Application.InputBox("โปรดป้อนหมายเลขสุดท้าย:", "Kutools สำหรับ Excel")
ถ้า TypeName(xCount) = "Boolean" จากนั้นออกจาก Sub
ถ้า (xStart = "") หรือ (ไม่ใช่ IsNumeric(xStart)) หรือ (xStart < 1) แล้ว
MsgBox "เกิดข้อผิดพลาด โปรดป้อนอีกครั้ง", vbInformation, "Kutools for Excel"
ไปที่ LInput
อื่น
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = เท็จ
สำหรับฉัน = xStart To xEnd
ActiveSheet.Range("A1")).Value = " Company-00" & I
ActiveSheet.PrintOut
ต่อไป
ActiveSheet.Range("A1")).ClearContents
Application.ScreenUpdating = xScreen
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการหมายเลขซีเรียล เช่น IA1-055242, IA1-055243, IA1-055244 .....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการโพสต์นี้ มันมีประโยชน์มาก คำถามของฉันคือ: ฉันมีบาร์โค้ด 2 แบบที่ต้องเพิ่มในหน้าเดียว ฉันจะแก้ไขโค้ดให้ทำเช่นนั้นได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัยที่ต้องถามสิ่งนี้ในโพสต์แยกต่างหาก... หมายเลขซีเรียลของฉันเริ่มต้นด้วยศูนย์ แต่เมื่อฉันเรียกใช้โปรแกรม มันจะกำจัดศูนย์ ฉันพยายามแปลงช่องตัวเลขเป็นข้อความ แต่ก็ไม่สามารถแก้ไขได้ ความคิดอื่น ๆ ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
R-Click Cell, Format, Custom, ที่มีคำว่า 'General' ให้แทนที่ด้วยเลขศูนย์มากเท่ากับหมายเลขซีเรียลของคุณ สิ่งนี้จะบังคับจำนวนศูนย์ที่จำเป็นต่อหน้าหมายเลขซีเรียลของคุณ หากฉันมีกลุ่มหมายเลขซีเรียลที่เป็นอนุกรม 10 หลัก ฉันจะป้อน 0000000000 ในช่อง Type เพื่อรับ '0004563571' ให้แสดงในฟิลด์หมายเลขซีเรียล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณอาร์ท. ฉันลองแล้ว แต่บาร์โค้ดยังคงกำจัดเลขศูนย์นำหน้า... แม้หลังจากทำรูปแบบตัวเลขที่กำหนดเองแล้ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หมายเลขซีเรียลของฉันเริ่มต้นด้วย 227861 ฉันจะพิมพ์จาก .ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
พิมพ์ 30 ชุด แต่ตอนนี้ฉันพิมพ์ไม่ได้ เรียกใช้สคริปต์หลายครั้งแต่ไม่ทำงาน ไม่ต้องทำอะไรเลย :(
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับข้างต้น เป็นประโยชน์จริงๆ เป็นไปได้ไหมที่จะบันทึกและจดจำค่าสุดท้าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ปีเตอร์
หากต้องการบันทึกและจดจำค่าที่พิมพ์ล่าสุดเมื่อคุณพิมพ์ในครั้งต่อไป คุณควรใช้โค้ด VBA ต่อไปนี้:

ย่อย IncrementPrint()
Dim xCount เป็นตัวแปร
Dim xScreen เป็นบูลีน
หรี่ฉันนาน
Dim xM นานเท่านาน
Dim xMNWS เป็นแผ่นงาน
Dim xAWS เป็นเวิร์กชีต
เกี่ยวกับข้อผิดพลาดต่อไป
อินพุต:
xCount = Application.InputBox("โปรดป้อนจำนวนสำเนาที่คุณต้องการพิมพ์:", "Kutools for Excel")
ถ้า TypeName(xCount) = "Boolean" จากนั้นออกจาก Sub
ถ้า (xCount = "") หรือ (ไม่ใช่ IsNumeric(xCount)) หรือ (xCount < 1) แล้ว
MsgBox "เกิดข้อผิดพลาด โปรดป้อนอีกครั้ง", vbInformation, "Kutools for Excel"
ไปที่ LInput
อื่น
xScreen = Application.ScreenUpdating
ตั้งค่า xAWS = ActiveSheet
เกี่ยวกับข้อผิดพลาด GoTo EMarkNumberSheet
ตั้งค่า xMNWS = ชีต ("IncrementPrint_MarkNumberSheet")
EMarkNumberแผ่น:
ถ้า xMNWS ไม่มีอะไรแล้ว
ตั้งค่า xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range("A1")).Value = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
อื่น
xM = xMNWS.Range("A1")).Value
End If
Application.ScreenUpdating = เท็จ
สำหรับฉัน = 1 ถึง xCount
xM = xM + 1
xAWS.Range("A1").Value = " Company-00" & xM
xAWS.PrintOut
ต่อไป
xMNWS.Range("A1").Value = xM
xAWS.Range("A1")).ClearContents
Application.ScreenUpdating = xScreen
End If
ย่อยสิ้นสุด

หากคุณต้องการรีเซ็ตหมายเลขที่พิมพ์เป็นหมายเลขเริ่มต้น โปรดเรียกใช้โค้ดด้านล่างก่อน จากนั้นจึงรันโค้ดด้านบนเพื่อพิมพ์

ย่อย IncrementPrint_Reinstall()
Dim xMNWS เป็นแผ่นงาน
เกี่ยวกับข้อผิดพลาด GoTo EMarkNumberSheet
ตั้งค่า xMNWS = ชีต ("IncrementPrint_MarkNumberSheet")
EMarkNumberแผ่น:
ถ้าไม่ใช่ xMNWS ก็ไม่มีอะไรทั้งนั้น
Application.DisplayAlerts = เท็จ
xMNWS.Visible = xlSheetHidden
xMNWS.ลบ
Application.DisplayAlerts = จริง
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ขอบคุณสำหรับรหัสนี้ .. ฉันมีคำถาม ฉันใช้รหัสนี้ แต่ซีรีส์กระโดดเหมือน 0071,0072,0073 เกิดขึ้นเหมือน 3x ระหว่างซีรีส์ 1-100 ดังนั้นฉันจึงปิด vba โดยไม่บันทึก ติดตั้งรหัสอีกครั้ง แต่มันพิมพ์ชุดสุดท้ายที่บันทึกไว้ (0032) คำถามของฉันคือฉันจะพิมพ์ต่อเนื่องได้อย่างไรโดยไม่ข้ามซีรีส์และพิมพ์ซ้ำอีกครั้งโดยเริ่มตั้งแต่ 101 เป็นต้นไป จะขอบคุณคำตอบของคุณจริงๆ ขอโทษสำหรับสิ่งนี้ ฉันไม่ใช่โปรแกรมเมอร์ ฉันหวังว่าคุณจะเข้าใจ ขอขอบคุณ! 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการโพสต์นี้ มันมีประโยชน์มาก คำถามของฉันคือ: ฉันมีบาร์โค้ด 2 แบบที่ต้องเพิ่มในหน้าเดียว ฉันจะแก้ไขโค้ดให้ทำเช่นนั้นได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเดสมอนด์
หากคุณมี 2 แห่งในหน้าเดียว (เช่น 2 คูปอง หรือ 2 เทมเพลต / 2 เวาเชอร์ เป็นต้น) คุณสามารถลองใช้รหัสด้านล่าง (สมมติว่าบาร์โค้ดที่ 1 และบาร์โค้ดที่ 2 ของคุณอยู่ในเซลล์ "A1" และ "A20" ของหน้าเดียวกัน รหัสนี้จะเพิ่มค่าเช่น Company-001 และ Company-002 ในหน้าแรก และ Company-003 และ Company-004 ในหน้าที่สอง เป็นต้น คุณสามารถแก้ไขหมายเลขเซลล์และชื่อบริษัทได้ตามต้องการในบรรทัดที่ 20, 21, 23, 24 และ 28,29 ของโค้ด 
นอกจากนี้ยังจะขอให้คุณป้อนหมายเลขเริ่มต้นและหมายเลขสิ้นสุด (ขอบคุณอัจฉริยะสำหรับรหัสส่วนนี้) ตัวอย่างเช่นหมายเลขเริ่มต้นของคุณ คือ 1 และลงท้ายด้วยหมายเลข 8 จะพิมพ์ 4 หน้า 1,2 ในหน้า 1, 3,4 บนหน้าที่ 2, 5,6 บนหน้าที่ 3 และสุดท้าย 7,8 บนหน้าที่ 4 หวังว่ามันจะช่วยคุณหรือใครก็ตามที่กำลังมองหาความต้องการ/ความต้องการประเภทนี้ 
แก้ไขรหัส: ----------------------------------------------------- ------------ Sub IncrementPrint ()
'updateby Extendoffice
Dim xEnd เป็นตัวแปร
Dim xStart เป็น Variant
Dim xScreen เป็นบูลีน
หรี่ฉันนาน
เกี่ยวกับข้อผิดพลาดต่อไป
อินพุต:
xStart = Application.InputBox("โปรดป้อนหมายเลขแรก:", "Kutools for Excel")
xEnd = Application.InputBox("โปรดป้อนหมายเลขสุดท้าย:", "Kutools สำหรับ Excel")
ถ้า TypeName(xCount) = "Boolean" จากนั้นออกจาก Sub
ถ้า (xStart = "") หรือ (ไม่ใช่ IsNumeric(xStart)) หรือ (xStart < 1) แล้ว
MsgBox "เกิดข้อผิดพลาด โปรดป้อนอีกครั้ง", vbInformation, "Kutools for Excel"
ไปที่ LInput
อื่น
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = เท็จ
สำหรับฉัน = xStart To xEnd
ถ้าฉัน Mod 2 = 0 แล้ว
ActiveSheet.Range("A1")).Value = " Company-00" & I + 1
ActiveSheet.Range("A20")).Value = " Company-00" & I
อื่น
ActiveSheet.Range("A20")).Value = " Company-00" & I + 1
ActiveSheet.Range("A1")).Value = " Company-00" & I
ActiveSheet.PrintOut
End If
ต่อไป
ActiveSheet.Range("A1")).ClearContents
ActiveSheet.Range("A20")).ClearContents
Application.ScreenUpdating = xScreen
End If
ย่อยสิ้นสุด

-------------------------------------------------- -------------------------------------------------- ----- ขอบคุณ RNS
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เซลล์ของฉันคือ I3 และตัวเลขคือ 2298 เมื่อฉันลองใช้ (รหัส VBA: เพิ่มค่าเซลล์อัตโนมัติหลังจากการพิมพ์แต่ละครั้ง :) มันทำให้ฉัน 22981 ฉันจะได้ 2298,2299,2300 ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเจนนิเฟอร์
เพื่อจัดการกับปัญหาของคุณ โปรดใช้รหัส VBA ต่อไปนี้:
หมายเหตุ: โปรดเปลี่ยนข้อความนำหน้าและตัวเลขเป็นของคุณเอง

ย่อย IncrementPrint_Num()
Dim xCount เป็นตัวแปร
Dim xScreen เป็นบูลีน
หรี่ฉันนาน
Dim xStr เป็นสตริง
Dim xInt เป็นจำนวนเต็ม
เกี่ยวกับข้อผิดพลาดต่อไป
xStr = "บริษัท-" 'ข้อความนำหน้า
xInt = 2291 'จำนวน
อินพุต:
xCount = Application.InputBox("โปรดป้อนจำนวนสำเนาที่คุณต้องการพิมพ์:", "Kutools for Excel")
ถ้า TypeName(xCount) = "Boolean" จากนั้นออกจาก Sub
ถ้า (xCount = "") หรือ (ไม่ใช่ IsNumeric(xCount)) หรือ (xCount < 1) แล้ว
MsgBox "เกิดข้อผิดพลาด โปรดป้อนอีกครั้ง", vbInformation, "Kutools for Excel"
ไปที่ LInput
อื่น
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = เท็จ
สำหรับฉัน = 1 ถึง xCount
xInt = xInt + 1
ActiveSheet.Range("A1") .Value = xStr & xInt
ActiveSheet.PrintOut
ต่อไป
ActiveSheet.Range("A1")).ClearContents
Application.ScreenUpdating = xScreen
End If
ย่อยสิ้นสุด

โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณช่วยฉันด้วยได้ไหม ฉันต้องการให้ xINT มีมากกว่า 5 หลัก ทุกครั้งที่ใส่ตัวเลข 6 หลัก นับกลับเป็น 1 จะป้องกันได้อย่างไร ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี น่าสนใจมากแม้ว่าฉันกำลังมองหาโซลูชันอื่นที่ฉันหาไม่เจอ และแม้ว่าฉันพยายามปรับแต่งโค้ดแล้วไม่สามารถทำได้จนถึงตอนนี้ ตามตัวอย่างของคุณ ฉันจะต้องพิมพ์หน้าเดียวกัน 100 ครั้ง ตัวอย่างเช่นใน PDF เดียวกันและในแต่ละหน้าหมายเลขหน้าเพิ่มขึ้นตามที่ฉันบอกว่าลองใช้วิธีการจัดเรียง แต่เมื่อฉันเข้าใจว่าจะช่วยให้คุณสามารถพิมพ์ร่วมกันได้หากต้องการสำเนาหลายชุดของงานพิมพ์เดียวกัน ขอบคุณล่วงหน้า Giuseppe
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสนี้ใช้งานได้ดี แต่หลังจากค่าเซลล์ 32767 อีกครั้ง มันจะกลับไปเป็น 1 หลังจากค่านี้ จะพิมพ์จากหมายเลข 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากมันใช้งานได้สำหรับฉัน และฉันจัดการเปลี่ยนแปลงเล็กน้อยเพื่อให้เหมาะกับความต้องการของฉัน ขอบคุณจริงๆสำหรับการแบ่งปันของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเจนนิเฟอร์ ลองนี่สิ
ย่อย IncrementPrint()
'updateby Extendoffice 20160530
Dim xCount เป็นตัวแปร
Dim xScreen เป็นบูลีน
หรี่ฉันนาน
เกี่ยวกับข้อผิดพลาดต่อไป
อินพุต:
xCount = Application.InputBox("โปรดป้อนจำนวนสำเนาที่คุณต้องการพิมพ์:", "Kutools for Excel")
ถ้า TypeName(xCount) = "Boolean" จากนั้นออกจาก Sub
ถ้า (xCount = "") หรือ (ไม่ใช่ IsNumeric(xCount)) หรือ (xCount < 1) แล้ว
MsgBox "เกิดข้อผิดพลาด โปรดป้อนอีกครั้ง", vbInformation, "Kutools for Excel"
ไปที่ LInput
อื่น
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = เท็จ
สำหรับฉัน = 1 ถึง xCount

ActiveSheet.PrintOut
ActiveSheet.Range("J18") .Value = ActiveSheet.Range("J18") .Value + 1
ต่อไป
'ActiveSheet.Range ("J18") ล้างเนื้อหา'

Application.ScreenUpdating = xScreen
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณหนึ่งล้าน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดีสำหรับการพิมพ์ #'s ที่เพิ่มขึ้น ฉันจะพิมพ์ทุก ๆ 5 ได้อย่างไรเมื่อจำเป็น?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีเลือกค่าที่ต้องการพิมพ์หรือไม่? ตัวอย่างเช่น ฉันพิมพ์ลำดับ 1 ถึง 30 แต่ต้องพิมพ์ลำดับ 15 ถึง 19 อีกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้ ฉันต้องการเปลี่ยนหมายเลขของหมายเลขเซลล์ K11 หลังจากพิมพ์เป็น 1-2-3-4-5-6 ฯลฯ กรุณาคุณช่วยได้ไหม และบอกวิธีเรียกใช้ฟังก์ชันนั้นด้วย ช่วยด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสงสัยว่าจะทำการเปลี่ยนแปลงเล็กน้อยเพื่อให้พิมพ์ 1 จาก 10, 2 จาก 10, 3 จาก 10 เป็นต้น
มิฉะนั้นก็ใช้งานได้ดี ขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ชื่อของฉันคือ suresh ฉันมีข้อมูลในรูปแบบ excel โดยไม่มีหมายเลขซีเรียลใด ๆ ที่ชอบตัวอย่างการเรียกเก็บเงิน ฉันต้องใช้มันเป็น 100 หน้าพิมพ์และต้องพิมพ์หมายเลขซีเรียลที่ฉันเคยต้องการจากตัวเลข 4 หลัก แต่ในขณะที่พิมพ์ฉันต้องทำด้วยตนเอง คุณช่วยอธิบายได้ไหมว่าใครพิมพ์อัตโนมัติ สร้างรหัสหมายเลขซีเรียลขณะพิมพ์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยอดเยี่ยม !! ฉันไม่ใช่โปรแกรมเมอร์ แต่ฉันสามารถเปลี่ยน Cell ref และหมายเลข uniq ที่ฉันต้องการได้ ทำงานที่ยอดเยี่ยมสำหรับฉัน ขอพระเจ้าอวยพรคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้หรือไม่ที่จะเพิ่มรหัสนี้เพื่อพิมพ์ 2 ชุดโดยอัตโนมัติ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันคิดว่าคุณสามารถเปลี่ยนส่วนนี้:ActiveSheet.Range("A1")).Value = " Company-00" & I
ActiveSheet.PrintOut

ไปยัง
ActiveSheet.Range("A1")).Value = " Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

เพื่อให้ได้มาอย่างละ 2 ชุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสงสัยว่าคุณสามารถพิมพ์ไฟล์ออกมาได้โดยตรงหลังจากเปิดใหม่อีกครั้งและมันยังคงตามหมายเลขลำดับหรือไม่?
สิ่งที่ฉันทำคือทุกครั้งที่เปิดไฟล์ ALT + F11 ตามด้วย F5 และระบุจำนวนสำเนา จากนั้นจะพิมพ์ไฟล์ด้วยหมายเลขที่ถูกต้อง แล้วบันทึกอีกครั้ง และเมื่อจะเปิดอีกครั้ง ก็ต้องทำตามขั้นตอนเดิมครับ
หากมีรหัสที่คุณสามารถพิมพ์ออกมาได้ทันทีทุกครั้งที่เปิดไฟล์และมันจะยังเป็นไปตามลำดับเลขหรือไม่?
ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสงสัยว่าคุณสามารถพิมพ์ไฟล์ออกมาได้โดยตรงหลังจากเปิดใหม่อีกครั้งและมันยังคงตามหมายเลขลำดับหรือไม่?

สิ่งที่ฉันทำคือทุกครั้งที่เปิดไฟล์ ALT + F11 ตามด้วย F5 และระบุจำนวนสำเนา จากนั้นจะพิมพ์ไฟล์ด้วยหมายเลขที่ถูกต้อง แล้วบันทึกอีกครั้ง และเมื่อจะเปิดอีกครั้ง ก็ต้องทำตามขั้นตอนเดิมครับ

หากมีรหัสที่คุณสามารถพิมพ์ออกมาได้ทันทีทุกครั้งที่เปิดไฟล์และมันจะยังเป็นไปตามลำดับเลขหรือไม่?

ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับการแบ่งปันรหัสด้านบน มันมีประโยชน์มากสำหรับทุกคน เราขอเพิ่มโค้ดเพื่อเพิ่มตัวเลข 8 ตัวแทนที่จะเป็น 1 หลังพิมพ์ได้ไหม กำลังรอการตอบกลับของคุณ ขอบคุณ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL