Check Box

[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

[snasui]

แนบไฟล์ที่มี Code มาพร้อมกับไฟล์แล้วครับ โดยไฟล์ที่จะแนบ Code ได้ต้องมีนามสกุลเป็น .xlsm เป็นอย่างน้อยครับ

สำหรับการโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่าน นำไปทดสอบ อ่านกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

[Nonamemsn]

ขอบคุณครับ

[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 แทนครับ

[Nonamemsn]

ขอบคุณครับ

[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 ได้ไหมครับ


ขอบคุณครับ

[snasui]

เราสามารถเขียน Check Box (From Controls) ที่ objects sheet

ทำได้โดยการสร้างตามขั้นตอนปกติแล้ว Cut ไปวางใน Sheet ใด ๆ ที่ต้องการ

หรือเขียน Check Box (ActiveX Controls) ที่ Module ได้ไหมครับ

ไม่สามารถทำได้เนื่องจาก ActiveX Object เป็น Object ภายใต้ Worksheet นั้น ๆ ครับ

[kio2002]

เราสามารถเขียน Check Box (From Controls) ที่ objects sheet

ทำได้โดยการสร้างตามขั้นตอนปกติแล้ว Cut ไปวางใน Sheet ใด ๆ ที่ต้องการ

หรือเขียน Check Box (ActiveX Controls) ที่ Module ได้ไหมครับ

ไม่สามารถทำได้เนื่องจาก ActiveX Object เป็น Object ภายใต้ Worksheet นั้น ๆ ครับ

ขอบคุณมากครับ