Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
ลองดูตามไฟล์แนบครับ
gchart wrote:อาจารย์ครับ ถ้าเราจะเอาโค๊ดนี้ไปใช้ในไฟล์อื่น ได้มั๊ยครับ พอดีผมมีไฟล์ต้นฉบับที่มีการแก้ไขอยู่ปรับเปลี่ยนตำแหน่งของบัตร
ขณะถามหัวหน้าก็ยังแก้ไขเพิ่มเติมข้อความอยู่ และขอถามเพิ่มเติมนะครับ
1.ถ้าให้เลขที่แสดงเป็น 3 หลัก และให้เป็นเลขไทย ต้องแก้ที่รูปแบบเซลล์ให้เป็น t000 ใช่ไหมครับ
2.ค่าที่พิมพ์มันจะออกมาทั้งหน้า A4 หรือเปล่าครับ เพราะเอกสารผมเป็น A4 (สังเกตเห็นอาจารย์เขียนโค๊ดระบุพื้นที่)
3.ถ้าจะสั่งพิมพ์แบบระบุช่วงได้มั๊ยครับ เช่น เลขที่บัตร ๑๐๙-๑๔๕ เนื่องจากบางครั้งกระดาษจะติดหรือเลอะหมึก จึงอาจจะต้องพิมพ์ซ้ำหลายหน้า
ต้องขอโทษอาจารย์นะครับที่ถามไม่จบใน 1 กระทู้
ขอบคุณครับ
ข้อ 1 เข้าใจถูกต้องแล้วและผมปรับให้ใน Code ด้านล่างแ้ล้วครับCode: Select all
Option Explicit
Sub PrintOutput()
Dim i As Integer
Dim a As Integer
Dim v As Integer
On Error Resume Next
v = InputBox( _
Title:="ระบุฉบับที่เริ่ม", _
prompt:="กรอกหมายเลขฉบับเริ่มพิมพ์")
a = InputBox( _
Title:="ระบุฉบับสิ้นสุด", _
prompt:="กรอกหมายเลขฉบับสุดท้ายที่ต้องการพิมพ์")
If Err = 13 Then
MsgBox "โปรดกรอกข้อมูลทั้งฉบับที่เริ่มและฉบับที่สิ้นสุด"
Exit Sub
End If
For i = v To a
Range("I3") = i
Range("I3").NumberFormat = "t000"
Range("B2:J12").PrintOut
Next i
End SubCode: Select all
Sub PRIINTNUMBERELECTI()
Dim i As Integer
Dim a As Integer
Range("B4,E4,H4,K4").NumberFormat = "0000"
On Error Resume Next
a = InputBox( _
Title:="ระบุำจำนวนฉบับ", _
prompt:="Pls select number of copy such as 1,5,9,13,18")
If Err = 13 Then
MsgBox "Please enter you number of copy"
Exit Sub
End If
For i = 1 To a * 4 Step 4
Range("B4") = i
Range("E4") = i + 1
Range("H4") = i + 2
Range("K4") = i + 3
Range("A2:L15").PrintOut
Next i
End Sub
"t000" เป็นการจัด Format ให้แสดงตัวเลขเป็นตัวเลขไทย ไม่ใช่ตัวเลขอารบิค ส่วน "S000" ที่ต้องการจัด Format ไม่ทราบว่าต้องการให้แสดงเป็นค่าอะไรครับ 
แนบไฟล์ตัวอย่างมาดูกันครับว่าต้องการให้เซลล์ใดเป็นค่าใด ที่ได้ลองปรับแล้วเป็นอย่างไร จะได้ช่วยตอบต่อไปจากนั้นครับ ถ้า Copy มาทั้งหมดผมยังไม่ตอบครับ การใช้ VBA จะต้องปรับ Code นั้นให้ตรงกับสิ่งที่ต้องการ่ก่อนแล้วแจ้งมาว่าติดขัดที่ Procedure ใด บรรทัดใด อ่านกฎข้อ 5 ด้านบนประกอบครับ ตัวอย่าง Code ให้ขึ้นต้นด้วย CAM ตามด้านล่างครับ
Code: Select all
'Other code
For i = v To a
Range("H1") = "CAM" & Application.Text(i, "000")
Range("A1:I19").PrintOut
Next i
'Ohter code
For i = v To a เป็น For i = 53 To a