สอน 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