การใช้งาน การหาค่ามากที่สุด และน้อยที่สุด โดยใช้ Loop ในภาษา VBA แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

คุณผู้อ่านที่น่ารักทุกท่านครับ/ค่ะ วันนี้ผมมีเรื่องน่าสนใจเกี่ยวกับการใช้งาน Loop ในภาษา VBA มาฝากคุณผู้อ่านกันครับ/ค่ะ พวกเราจะมาพูดถึงการหาค่ามากที่สุดและน้อยที่สุด ผ่านแนวทางการใช้ลูป (Loop) ที่เข้าใจง่าย สุดแสนจะง๊ามงาม เอาล่ะครับ/ค่ะ มาเริ่มกันเลยดีกว่า!

แนวคิดพื้นฐานของลูป (Loop) ใน VBA

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

จากประสบการณ์ที่ได้ถ่ายทอดจากผู้เรียนของผมที่ EPT, ลูปมีหลายประเภทเช่น For, While, Do While และ For Each แต่วันนี้เราจะโฟกัสไปที่การใช้ "For Loop" เพื่อหาว่าในชุดข้อมูลที่เรามีนั้น ตัวเลขไหนมากที่สุด และน้อยที่สุดกันแน่

ตัวอย่างการใช้งานลูปเพื่อหาค่าสูงสุดและต่ำสุด

มาลงมือทดลองฝึกเขียนโค้ดร่วมกันครับ/ค่ะ ด้วยการใช้งานลูปเพื่อค้นหาค่าและเทียบค่ากันเลย:

ตัวอย่างที่ 1

ลองนึกภาพว่าเรามีตารางคะแนนสอบของนักเรียนในชั้นเรียนหนึ่ง และเราต้องการหาคะแนนสูงสุดและต่ำสุด โค้ดข้างล่างนี้จะช่วยให้เราทำงานนี้ได้เป็นอย่างดี

Dim scores() As Integer = {55, 73, 68, 91, 85, 76}
Dim maxScore As Integer = scores(0)
Dim minScore As Integer = scores(0)

For i = 1 To UBound(scores)
    If scores(i) > maxScore Then
        maxScore = scores(i)
    ElseIf scores(i) < minScore Then
        minScore = scores(i)
    End If
Next i

Debug.Print "คะแนนสูงสุดคือ: " & maxScore
Debug.Print "คะแนนต่ำสุดคือ: " & minScore

ในตัวอย่างนี้ เราเริ่มต้นด้วยการกำหนดค่าเริ่มต้นของคะแนนสูงสุดและต่ำสุดให้เท่ากับคะแนนแรกของอาเรย์ เราจากนั้นลูป For จะวนซ้ำไปในอาเรย์เพื่อหาคะแนนสูงสุดและต่ำสุด

ตัวอย่างที่ 2

ต่อไปเป็นการหาค่าราคาสูงสุดและต่ำสุดของหุ้นจากรายการหุ้นที่มี:

Dim stockPrices() As Double = {150.5, 200.75, 240.1, 180.45, 210.67}
Dim highestPrice As Double = stockPrices(0)
Dim lowestPrice As Double = stockPrices(0)

For j = 1 To UBound(stockPrices)
    If stockPrices(j) > highestPrice Then
        highestPrice = stockPrices(j)
    ElseIf stockPrices(j) < lowestPrice Then
        lowestPrice = stockPrices(j)
    End If
Next j

Debug.Print "ราคาหุ้นสูงสุดคือ: " & highestPrice
Debug.Print "ราคาหุ้นต่ำสุดคือ: " & lowestPrice

ในตัวอย่างนี้ เราใช้ลูป For เช่นเดียวกันเพื่อวนซ้ำผ่านรายการราคาหุ้น และเราจะเก็บค่าสูงสุดและต่ำสุดไว้ในตัวแปร

ตัวอย่างที่ 3

ในตัวอย่างสุดท้ายนี้ มาดูการหาอุณหภูมิสูงสุดและต่ำสุดในรอบสัปดาห์กันค่ะ:

Dim temperatures() As Integer = {25, 30, 28, 32, 31, 27}
Dim highestTemp As Integer = temperatures(0)
Dim lowestTemp As Integer = temperatures(0)

For k = 1 To UBound(temperatures)
    If temperatures(k) > highestTemp Then
        highestTemp = temperatures(k)
    ElseIf temperatures(k) < lowestTemp Then
        lowestTemp = temperatures(k)
    End If
Next k

Debug.Print "อุณหภูมิสูงสุดคือ: " & highestTemp
Debug.Print "อุณหภูมิต่ำสุดคือ: " & lowestTemp

ที่นี่เราก็ใช้ 'For Loop' ในการหาอุณหภูมิที่สูงสุดและต่ำสุด เช่นเคย เราเริ่มจากตั้งค่าเริ่มต้นและวนลูปเพื่อเปรียบเทียบค่า

ใช้เคสในโลกจริง

การใช้งานลูปเพื่อหาค่าสูงสุดและต่ำสุดนั้นมีประโยชน์มากครับ/ค่ะ เช่น ในการวิเคราะห์ข้อมูลทางการเงิน เพื่อดูพฤติกรรมของตลาดหุ้น หรือการหาค่าเฉลี่ยราคาของสินค้า หรือในด้านของธรณีวิทยา เช่น การบันทึกและการวิเคราะห์ข้อมูลอุณหภูมิเพื่อศึกษาการเปลี่ยนแปลงของภูมิอากาศ

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

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

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