ขอความกรุณาให้อาจารย์แก้ไขปัญหาครับ

[Panuwat]

เรียนท่านอาจารย์ช่วยแก้ไขปัญหาด้านการใช้ปุ่ม commandbutton เกี่ยวกับ การ Enabled และ visible ทั้งนี้ได้แนบไฟล์ มาเพื่อประกอบการพิจารณา ด้วยครับ

[snasui]

ช่วยเขียนหัวข้อตามประเด็นปัญหาด้วยนะครับ เช่น การ Enable, Disable CommandButton เป็นต้น ทั้งนี้เพื่ออำนวยความสะดวกในการค้นหาของเพื่อน ๆ ครับ และหากว่าเป็นคำถามที่ต่อเนื่องมาจากคำถามเดิม สามารถเขียนที่กระทู้เดิมได้เลยครับ ระบบจะยกมาเป็นกระทู้ล่าสุดให้อัตโนมัติตามเวลาที่ Update

สำหรับที่ถามมา สามารถดูตัวอย่างการเขียน Code ตามด้านล่างครับ

Code: Select all

Sub CheckCell()
With Worksheets("Sheet1").CommandButton2
    If Worksheets("Sheet2").Range("B2") = "" Then
    .Enabled = False
    Else
    .Enabled = True
    End If
End With
End Sub

แต่การที่ Code จะทำงานได้นั้น อาจจะนำไปเขียนพ่วงไว้ใน Code อื่นเพื่อให้เรียกใช้ Code นี้ หรือกำหนดว่าต้องการให้เหตุการณ์ใดเกิดขึ้นก่อนแล้วให้ Run Code นี้ สำหรับกรณีหลังเรียกว่า Events เช่นเมื่อคลิก Sheet1 เป็นต้น

[Panuwat]

ทำได้แล้วครับ ขอบคุณมากครับท่านอาจารย์