ทำจดหมายเวียนในEXCEL

[palmy]

เรียนอาจารย์ครับ
พอดีมีงานเพิ่ม จะต้องทำจดหมายเวียนไม่ทราบว่าจะทำใน EXCEL
ได้หรือเปล่าครับ เนื่องจากว่าไม่ต้องพิมพ์ลงจดหมาย พิมพ์มาตัดปะหน้าซอง
ตามไฟล์ที่แนบมาครับ ข้อมูลหลายคอลัมภ์มาก เพราะดึงรายชื่อ
จากระบบ รบกวนอาจารย์ช่วยแนะนำใส่สูตรในSheet ทำรูปแบบพิมพ์
ใบปะหน้าให้ด้วยครับ (มีรูปแบบตัวอย่างมาด้วย)

[palmy]

ไฟล์ข้อมูลสำหรับทำจดหมายเวียนครับอาจารย์
ช่วยแนะนำด้วยครับ

[snasui]

ผมลองเขียนตัวอย่าง Code VBA ในการวางข้อมูลสำหรับใบปะหน้าให้ตามด้านล่าง ดูไฟล์แนบประกอบครับ

Code: Select all

Option Explicit

Public Sub EnvelopePaste()
Dim rSource As Range
Dim rTarget As Range
Dim i As Long, j As Long
Application.ScreenUpdating = False
With Sheets("ทำรูปแบบพิมพ์ใบปะหน้า")
    .Range("A:O").UnMerge
    .Range("A:O").ClearContents
End With
Set rSource = Sheets("Sheet1").Range("A1:G5")
j = 1
For i = 1 To 10000 Step 2
    Sheets("Sheet1").Range("H1") = i
    If Sheets("KTB").Range("B" & i) = "" Then Exit For
    With Sheets("ทำรูปแบบพิมพ์ใบปะหน้า")
    Set rTarget = .Range(.Range("A" & j), .Range("G" & j + 4))
    End With
        rSource.Copy
        rTarget.PasteSpecial xlPasteValues
        rTarget.PasteSpecial xlPasteFormats
        j = j + 5
Next i
j = 1
For i = 2 To 10000 Step 2
    Sheets("Sheet1").Range("H1") = i
    If Sheets("KTB").Range("B" & i) = "" Then Exit For
     With Sheets("ทำรูปแบบพิมพ์ใบปะหน้า")
        Set rTarget = .Range(.Range("I" & j), .Range("I" & j + 4))
    End With
        rSource.Copy
        rTarget.PasteSpecial xlPasteValues
        rTarget.PasteSpecial xlPasteFormats
        j = j + 5
Next i
Application.CutCopyMode = False
MsgBox "Finish"
Application.ScreenUpdating = True
End Sub

[palmy]

ขอบคุณมากครับอาจารย์
จะนำไปทดลองใช้
แล้วจะรายงานผลการใช้งานครับ