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

หัวข้อ: ทำความเข้าใจ while loop ในภาษา VBA ผ่านตัวอย่างจากโลกจริง

การเขียนโปรแกรมคือกระบวนการสร้างเครื่องมือที่ช่วยให้การทำงานของเราเป็นไปอย่างมีประสิทธิภาพ หนึ่งในคำสั่งพื้นฐานที่ทรงพลังและมีความสำคัญอย่างมากในการเขียนโปรแกรมคือการใช้ loop หรือการวนซ้ำ ซึ่งในภาษา VBA (Visual Basic for Applications) หนึ่งในรูปแบบ loop ที่เราจะพูดถึงวันนี้คือ while loop.

while loop คืออะไร?

ในภาษา VBA, while loop เป็นเครื่องมือที่ใช้ในการทำซ้ำชุดคำสั่งใดๆ ตราบใดที่เงื่อนไขที่กำหนดยังคงเป็นจริง โครงสร้างพื้นฐานของ while loop คือ:

While เงื่อนไข
    ' ชุดคำสั่งที่จะทำซ้ำ
Wend

Loop นี้จะทำการตรวจสอบเงื่อนไขก่อนที่จะเริ่มการทำงานในแต่ละรอบ หากเงื่อนไขนั้นเป็นจริง (True), ชุดคำสั่งภายในจะถูกทำซ้ำ, แต่ถ้าเป็นเท็จ (False), loop จะสิ้นสุดทันที.

ตัวอย่างการใช้งาน while loop ใน VBA

ลองมาดูลิ้วท์โทนด้วยตัวอย่างการใช้งาน while loop ในภาษา VBA ผ่าน 3 ตัวอย่างง่ายๆ กัน:

ตัวอย่างที่ 1: นับเลข 1 ถึง 10

Sub CountToOneTen()
    Dim i As Integer
    i = 1
    While i <= 10
        Debug.Print i
        i = i + 1
    Wend
End Sub

เราเริ่มต้นด้วยการกำหนดค่าเริ่มต้นให้กับตัวแปร `i` ซึ่งมีค่า 1 และ while loop จะทำการพิมพ์ค่าของ `i` ออกมา จากนั้นเพิ่มค่า `i` อย่างต่อเนื่องจนกระทั่งค่าเกิน 10 และเงื่อนไขไม่เป็นจริง, loop จึงจบลง.

ตัวอย่างที่ 2: คัดกรองข้อมูลจากสมุดที่อยู่

Sub FilterAddressBook()
    Dim AddressBook As Range
    Set AddressBook = Sheet1.Range("A1:A100") ' สมมุติว่าเป็นลิสต์ของที่อยู่
    Dim i As Integer
    Dim Cell As Range

    i = 1
    While i <= AddressBook.Rows.Count
        Set Cell = AddressBook.Cells(i)
        If InStr(Cell.Value, "Bangkok") > 0 Then ' ค้นหาคำว่า "Bangkok" ในแต่ละ cell
            Debug.Print Cell.Value  ' แสดงผลที่อยู่ที่อยู่ในกรุงเทพ
        End If
        i = i + 1
    Wend
End Sub

ในตัวอย่างนี้, while loop คำนวณจากสมุดที่อยู่ที่เรากำหนด และพิมพ์ข้อมูลที่อยู่ในกรุงเทพออกมา.

ตัวอย่างที่ 3: การคำนวณดอกเบี้ยซับซ้อน

Sub CalculateComplexInterest()
    Dim Principal As Currency
    Dim InterestRate As Double
    Dim TargetAmount As Currency
    Dim Years As Integer

    Principal = 10000 ' เงินต้น
    InterestRate = 0.05 ' ดอกเบี้ย 5%
    TargetAmount = 20000 ' เป้าหมายคือเพิ่มเงินจาก 10,000 เป็น 20,000
    Years = 0

    While Principal < TargetAmount
        Principal = Principal + (Principal * InterestRate)
        Years = Years + 1
    Wend

    Debug.Print "It will take "; Years; " years to reach the target amount."
End Sub

ในตัวอย่างนี้, while loop ช่วยคำนวณเวลาที่จะใช้ในการเพิ่มเงินจากจำนวนเริ่มต้นไปสู่เป้าหมายที่ต้องการ (เงินเพิ่มเป็นสองเท่า) โดยใช้ดอกเบี้ยทบต้น.

Usecase ในโลกจริง

ในสถานการณ์การทำงานจริง, while loop มักถูกนำมาใช้ในการตรวจสอบข้อมูล, คำนวณทางการเงิน, หรือกระบวนการที่ต้องทำซ้ำจนกว่าจะถึงเงื่อนไขที่ได้กำหนดไว้ เช่น การประมวลผลรายการคำสั่งซื้อ, การอ่านข้อมูลจากฐานข้อมูลไปจนถึงสิ้นสุดเรคคอร์ด, หรือในการสร้างอัลกอริธึมเพื่อทำนายการเติบโตของตลาด.

การเรียนรู้การใช้งาน while loop เป็นประตูสู่การควบคุมโฟลว์ของโปรแกรมของคุณอย่างแม่นยำ ที่ Expert-Programming-Tutor (EPT), เราให้ความสำคัญในการสอนเทคนิคการโปรแกรมเหล่านี้เพื่อให้คุณสามารถนำไปปรับใช้ในสถานการณ์จริงได้อย่างมีประสิทธิภาพ หากคุณสนใจที่จะศึกษาและพัฒนาทักษะการเขียนโปรแกรม, โรงเรียนของเราพร้อมเป็นส่วนหนึ่งในการเดินทางด้านโค้ดดิ้งของคุณ หลั่งไหลมาเรียนกับเราและปลดล็อคศักยภาพของคุณในโลกโปรแกรมมิ่งได้เริ่มต้นวันนี้!

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