Page 1 of 1
เมื่อคลิกกล่องให้สั่ง กล่องอื่นไม่ให้ทำงานครับ
Posted: Fri Sep 26, 2025 11:50 pm
by yodpao.b
เมื่อคลิกกล่องให้สั่ง กล่องอื่นไม่ให้ทำงานครับ
Screenshot 2025-09-26 234859.png
สูตร นี้ใช้ไม่ได้ครับ
Code: Select all
Private Sub OptionButton1_Click()
Spinner 3.Enable = False
End Sub
Re: เมื่อคลิกกล่องให้สั่ง กล่องอื่นไม่ให้ทำงานครับ
Posted: Sat Sep 27, 2025 7:16 am
by snasui
ตัวอย่าง Code ครับ
Code: Select all
Private Sub OptionButton1_Click()
With Me.Shapes("Spinner 3").ControlFormat
If Me.OLEObjects("OptionButton1").Object.Value = True Then
.Enabled = False
Else
.Enabled = True
End If
End With
End Sub
Re: เมื่อคลิกกล่องให้สั่ง กล่องอื่นไม่ให้ทำงานครับ
Posted: Sat Sep 27, 2025 1:53 pm
by yodpao.b
ขอบคุณครับ