สอน Function IF อย่างละเอียดตั้งแต่ Worksheet ถึง VBA Part7 ตัวอย่าง Sel...

If Part7_1

การสุ่มค่าใน UserForm เพื่อใช้ค่าที่ได้เป็นเงื่อนไขสำหรับ Select Case

ข้อแตกต่างระหว่าง If กับ Select Case

การใช้ =Rand()  ใน Worksheet (การใส่สูตรสุ่มค่า)

การใช้ =RandBetween(1,9)  ใน Worksheet (การใส่สูตรสุ่มค่า)



If Part7_2

การใช้ For Each ctl In Controls เพื่อควบคุมการทำงานของ Control ใน UserForm

การใช้ If TypeOf ctl Is MSForms.TextBox เพื่อควบคุมการทำงานของ Control Textbox หลายๆตัวใน UserForm



เขียน Code ให้น้อยลงและยืดหยุ่นมากขึ้น

Case1 การสั่งให้ TextBox ทั้ง 18 ตัว มี Background สีแดง; ctl.BackColor = RGB(255,0,0)

Case2 การสั่งให้ TextBox ทั้ง 18 ตัว โชว์ค่าที่ได้จากการสุ่ม Rnd (Random by VBA; ctl.text = Rnd)



If Part7_3

ตัวอย่าง

Case 3 การสั่งให้ TextBox ทั้ง 18 ตัว พิมพ์ไม่ได้ (ctl.Enabled = False)

Case 4 การสั่งให้ TextBox ทั้ง 18 ตัวว่างและพิมพ์ได้ (ctl.Text = ""); (ctl.Enabled = True)

Case 5 การสั่งให้ TextBox ทั้ง 18 ตัวหายไป(มองไม่เห็น); ctl.Visible = False

Case 6 การสั่งให้ TextBox ทั้ง 18 ตัวโชว์ชื่อตัวเอง; ctl.Text = ctl.Name

Case 7 การสั่งให้ TextBox ทั้ง 18 ตัวมี Background สีม่วง; ctl.BackColor = RGB(255,0,255)

Case 8 การสั่งให้ TextBox ทั้ง 18 ตัว โชว์ค่าที่ได้จากการสุ่ม Rnd (Random by VBA; ctl.text = Rnd) แล้วนำค่าไป



ใส่ที่ Range(A1 - A18) ใน Wroksheet

Case 9 การสั่งให้ TextBox ทั้ง 18 ตัว มองเห็น ว่างพิมพ์ได้และ Background สีขาว (ctl.Text = ""); (ctl.Enabled =



True); ctl.Visible = False; ctl.BackColor = RGB(255,255,255)

การ Dim ตัวแปลอย่างไรให้ Copy Code ไปแล้วไม่ Error

การ Dim ตัวแปลอย่างไรให้น้อยและใช้ร่วมกันได้ทั้ง Module

สอน Function IF อย่างละเอียดตั้งแต่ Worksheet ถึง VBA Part6 ตัวอย่าง If ...

If Part6

สอน Function IF อย่างละเอียดตั้งแต่ Worksheet ถึง VBA Part6 ตัวอย่าง If ซ้อน If ใน Excel VBA

จัดเต็มตัวอย่างการใช้ IF ซ้อน IF

เทคนิคการแก้โจทย์ If ที่เริ่มจากประโยคบอกเล่าให้เป็น Flow Chart แล้วเขียน VBA Code Function IF

ตัวอย่างการกำหนด Spec control พิสัยการวัดชิ้นงานและให้ VBA แจกแจงสีตามค่าที่ได้ตามเงื่อนไข

Application.WorksheetFunction.Max(Range())

เทคนิคการแก้ไข code ที่เขียนไปแล้วให้รวดเร็วด้วย Find & Replace (ctl+f)

เทคนิคการ copy code มาและแก้ไขให้รวดเร็วด้วย Find & Replace (ctl+f)

เทคนิคการแก้ไขการอ้างถึง Range แบบปกติเป็นการอ้างถึง Range แบบมีตัวแปร

การดูเขียนโค๊ดสดจะได้เทคนิคแนวคิดการเขียนโค๊ด ไม่เหมือนมา copy code ไปใช้ เทคนิคไม่ได้เลย

VBA การใช้ .Color = RGB(255,125,0)  'is Orange