รบกวนด้วยครับ วิธี Print เฉพาะ cell ที่มีข้อมูล

[bzone2007]

column A เป็น column ที่ต้องใส่ค่าลงไป ถ้าใน column A ไม่มีการใส่ข้อมูล เราจะมีวิธีใดบ้างครับที่จะให้ Print เฉพาะบรรทัดที่มีข้อมูล โดยที่ไม่ต้องซ่อน หรือลบ บรรทัดนั้นบ้างครับ
(เนื่องจากผู้ที่จะใช้งานไม่ค่อยมีพื้นฐานในการใช้คอมพิวเตอร์ครับ) รบกวนขอคำแนะนำด้วยครับ ขอบคุณครับ

[snasui]

การทำเช่นนั้นคงต้องพึ่งพา VBA เข้ามาช่วยครับ กรณีผู้ใช้งานไม่เคยใช้งาน Macro ให้ไปกำหนดตาม Link นี้ครับ http://www.snasui.com/viewtopic.php?p=688#p688
จากนั้นปิดไฟล์แล้วเปิดขึ้นมาใหม่แล้วคลิกปุ่ม Print เพื่อพิมพ์เฉพาะบรรทัดที่มีข้อมูล

สำหรับตัวอย่าง Code VBA ตามด้านล่างครับ

Code: Select all

Sub PrintData()
Dim rAll As Range, r As Range
With Worksheets("packinglist")
Set rAll = .Range("A1", .Range("A" & Rows.Count).End(xlUp))
End With
For Each r In rAll
    If r = "" Then
        r.EntireRow.hidden = True
    End If
Next r
With Worksheets("packinglist")
    rAll.Resize(, 15).PrintOut
    .UsedRange.EntireRow.hidden = False
End With
End Sub

[bzone2007]

ขอบคุณมากครับอาจารย์
(ขออนุญาตถามอาจารย์อีกข้อครับ เรื่อง macro จะต้องศึกษา หรือมีความรู้ ทางไหนบ้างครับ พอดีผมไม่มีความรุ้เรื่อง macro เลยครับ)

[snasui]

ผมคิดว่าหาหนังสือมาอ่านจะดีกว่าครับ แต่ขออภัยที่ผมไม่ทราบว่าหนังสือไทยเล่มใดเหมาะแก่การศึกษา ใครทราบสามารถแจ้งได้ในกระทู้นี้ครับ

ส่วนตำราต่างประเทศดูกระทู้นี้ครับ http://www.snasui.com/viewtopic.php?f=3&t=512