Page 1 of 1
Check Box
Posted: Sun Aug 07, 2016 10:16 am
by Nonamemsn
ผมมี Check box อยู่ 2 อัน คือผมเขียน VBA ให้ว่าเมื่อ check box อันใหนถูก Check อีกอันต้อง uncheck
Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub
Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
แต่พอ run แล้ว โปรแกรมขึ้น Object required
Re: Check Box
Posted: Sun Aug 07, 2016 10:45 am
by snasui
แนบไฟล์ที่มี Code มาพร้อมกับไฟล์แล้วครับ โดยไฟล์ที่จะแนบ Code ได้ต้องมีนามสกุลเป็น .xlsm เป็นอย่างน้อยครับ
สำหรับการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่าน นำไปทดสอบ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ
Re: Check Box
Posted: Sun Aug 07, 2016 10:54 am
by Nonamemsn
ขอบคุณครับ
Re: Check Box
Posted: Sun Aug 07, 2016 11:21 am
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Sub CheckBox1_Click()
If Me.CheckBoxes("Check Box 1").Value = 1 Then
Me.CheckBoxes("Check Box 2").Value = 0
Me.CheckBoxes("Check box 2").Enabled = False
Else
Me.CheckBoxes("Check box 2").Enabled = True
End If
End Sub
Sub CheckBox2_Click()
If Me.CheckBoxes("Check Box 2").Value = 1 Then
Me.CheckBoxes("Check Box 1").Value = 0
Me.CheckBoxes("Check box 1").Enabled = False
Else
Me.CheckBoxes("Check box 1").Enabled = True
End If
End Sub
ปกติเราจะไม่เลือกใช้ CheckBox หากว่าต้องการให้เลือกอันใดอันหนึ่งแต่จะเลือกใช้ Option Button แทนครับ
Re: Check Box
Posted: Sun Aug 07, 2016 11:28 am
by Nonamemsn
ขอบคุณครับ
Re: Check Box
Posted: Mon Aug 22, 2022 11:39 am
by kio2002
ขออนุญาตใช้โพสนี้สอบถามเรื่อง CheckBox ครับ
Check Box (From Controls) กับ Check Box (ActiveX Controls)
ที่ Insert จาก tab menu developer
ผมลองสร้าง Check Box (From Controls) แล้วคลิกขวาเลือก assign macro มันจะถูกเลือกไปอยู่ที่ Module
ส่วน Check Box (ActiveX Controls) จะไปอยู่ที่ objects sheet
เราสามารถเขียน Check Box (From Controls) ที่ objects sheet
หรือเขียน Check Box (ActiveX Controls) ที่ Module ได้ไหมครับ
ขอบคุณครับ
Re: Check Box
Posted: Mon Aug 22, 2022 1:32 pm
by snasui
kio2002 wrote: Mon Aug 22, 2022 11:39 am
เราสามารถเขียน Check Box (From Controls) ที่ objects sheet
ทำได้โดยการสร้างตามขั้นตอนปกติแล้ว Cut ไปวางใน Sheet ใด ๆ ที่ต้องการ
kio2002 wrote: Mon Aug 22, 2022 11:39 am
หรือเขียน Check Box (ActiveX Controls) ที่ Module ได้ไหมครับ
ไม่สามารถทำได้เนื่องจาก ActiveX Object เป็น Object ภายใต้ Worksheet นั้น ๆ ครับ
Re: Check Box
Posted: Mon Aug 22, 2022 2:40 pm
by kio2002
snasui wrote: Mon Aug 22, 2022 1:32 pm
kio2002 wrote: Mon Aug 22, 2022 11:39 am
เราสามารถเขียน Check Box (From Controls) ที่ objects sheet
ทำได้โดยการสร้างตามขั้นตอนปกติแล้ว Cut ไปวางใน Sheet ใด ๆ ที่ต้องการ
kio2002 wrote: Mon Aug 22, 2022 11:39 am
หรือเขียน Check Box (ActiveX Controls) ที่ Module ได้ไหมครับ
ไม่สามารถทำได้เนื่องจาก ActiveX Object เป็น Object ภายใต้ Worksheet นั้น ๆ ครับ
ขอบคุณมากครับ
