ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
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