การใช้งาน for each ในภาษา VBA แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

# บทความ: การให้คุณเป็นเจ้าสังเวียน Loop ด้วย For Each ใน VBA

เริ่มต้นทำความรู้จักกับ For Each

การเขียนโปรแกรมถือเป็นศาสตร์และศิลป์ ซึ่งใครๆ ก็สามารถเรียนรู้และงัดเอาความสามารถซ่อนเร้นออกมาใช้ได้ วันนี้เรามายกตัวอย่างการใช้งาน `For Each` ใน VBA (Visual Basic for Applications) ที่เป็นเครื่องมือสำคัญในการแปรรูปข้อมูลหรือจัดการกับรายการคอลเลกชัน (Collections) อย่างเชี่ยวชาญ ที่ EPT, เราพร้อมแนะนำคุณให้ก้าวเป็นนักพัฒนาที่คล่องแคล่วในการใช้งาน loop ต่างๆ, รวมถึง for each ที่เราจะพูดถึงในวันนี้!

For Each คืออะไร?

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

ตัวอย่างการใช้งาน For Each ใน VBA

ตัวอย่างที่ 1: วนลูปอ่านค่ารายการใน Excel Range

Sub LoopThroughRange()
    Dim cell As Range
    For Each cell In Sheet1.Range("A1:A10")
        Debug.Print cell.Value
    Next cell
End Sub

ในตัวอย่างนี้, `For Each` ช่วยให้เราสามารถเข้าถึงแต่ละเซลล์ภายในช่วงที่กำหนด (A1 ถึง A10) และพิมพ์ค่าออกมาดูในหน้าต่าง Immediate ของ VBA.

ตัวอย่างที่ 2: วนลูปเพื่อปรับแต่งพร็อพเพอร์ตี้ของ Shapes ใน PowerPoint

Sub ModifyShapesProperties()
    Dim shp As Shape
    For Each shp In ActivePresentation.Slides(1).Shapes
        shp.Fill.ForeColor.RGB = RGB(255, 0, 0) ' ทำทุก Shape เป็นสีแดง
    Next shp
End Sub

โค้ดนี้ทำการแบ่งปันสีให้กับทุก Shapes ในสไลด์แรกของการนำเสนอ PowerPoint.

ตัวอย่างที่ 3: วนลูปเพื่อจัดการกับข้อมูลใน Array

Sub LoopThroughArray()
    Dim numbers As Variant
    Dim num As Variant
    numbers = Array(1, 2, 3, 4, 5)

    For Each num In numbers
        Debug.Print num * 2 ' พิมพ์ค่าเป็นเลขคูณสอง
    Next num
End Sub

การใช้ `For Each` กับ Array ช่วยให้เราสามารถประมวลผลแต่ละองค์ประกอบได้โดยไม่จำเป็นต้องกังวลเกี่ยวกับการติดตามดัชนี.

Usecase ในชีวิตจริง

สมัยนี้ข้อมูลถือเป็นทรัพยากรสำคัญ เราอาจพบการใช้ `For Each` ในหลายสถานการณ์ เช่น:

การเรียนรู้ `For Each` ให้เป็นอยู่หมัดจึงเป็นสิ่งที่ทำให้คุณสามารถจัดการกับ task ต่างๆ ได้อย่างมีประสิทธิภาพในโลกของงานสำนักงานที่มีการใช้ Microsoft Office เป็นหลัก.

ทำไมควรเรียนรู้โปรแกรมมิ่งที่ EPT?

ที่ EPT, เรามีคอร์สการเขียนโปรแกรมที่ออกแบบมาเพื่อตอบสนองความต้องการและการเติบโตของคุณในฐานะนักพัฒนาซอฟต์แวร์ ไม่ว่าคุณจะอยากรู้เรื่อง VBA, ไพทอน, จาวา หรือภาษาเขียนโปรแกรมอื่นๆ เรามีทีมผู้เชี่ยวชาญที่พร้อมจะดำน้ำไปกับคุณในมหาสมุทรแห่งโค้ดและลูป! ผ่านโจทย์จริง, โปรเจคที่สนุก และตั้งใจทำมาเพื่อให้คุณสามารถนำไปประยุกต์ใช้ได้จริงในชีวิตการงาน

มาร่วมเป็นส่วนหนึ่งของการเปลี่ยนแปลงและเติบโตคนแห่งอนาคตด้วยกันกับเราที่ EPT วันนี้, และเริ่มสร้างทักษะการเขียนโปรแกรมที่จะนำคุณไปสู่ความสำเร็จในโลกแห่งเทคโนโลยีอันกว้างใหญ่!

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