รบกวนถามเรื่อง UserForm ที่มี Check Box ค่ะ

[Palmib]

Code: Select all

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub clear_Click()
        TGramload.Enabled = True
        TRSA.Enabled = True
        TPSA.Enabled = True
        HA.Enabled = True

End Sub

Private Sub HA_Click()
    If HA.Enabled = True Then
        TGramload.Enabled = False
        TRSA.Enabled = False
        TPSA.Enabled = False
    End If

End Sub

Private Sub TGramload_Click()
    If TGramload.Enabled = True Then
        TRSA.Enabled = False
        TPSA.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TPSA_Click()
    If TPSA.Enabled = True Then
        TRSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TRSA_Click()
    If TRSA.Enabled = True Then
        TPSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If

End Sub

จากโค้ดนะคะ userform ชื่อ Type_trend ค่ะ
คือหนูอยากทำให้เวลาเลือก checkbox อันใดอันหนึ่ง
ที่เหลือจะ disable ค่ะ แต่ทีนี้พอเวลารันออกมาแล้ว
ลูกศรเวลาติ๊กไปแล้วมันยังค้างอยู่ ต้องทำอย่างไรหรอคะ

HA = Head Alignment
TRSA = RSA
TPSA = PSA
TGramload = Gramload ค่ะ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยเพื่อจะได้ช่วยทดสอบได้ครับ

[Palmib]

อันนี้ไฟล์ตัวอย่างค่ะ
หนูตัดมาเฉพาะส่วนที่ถามนะคะ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub Cancel_Click()
    Unload Me
End Sub

Private Sub clear_Click()
    TGramload.Enabled = True
    TGramload.Value = False
    TRSA.Enabled = True
    TRSA.Value = False
    TPSA.Enabled = True
    TPSA.Value = False
    HA.Enabled = True
    HA.Value = False
End Sub

Private Sub HA_Click()
    If HA.Value = True Then
        TGramload.Enabled = False
        TRSA.Enabled = False
        TPSA.Enabled = False
    End If
End Sub

Private Sub TGramload_Click()
    If TGramload.Value = True Then
        TRSA.Enabled = False
        TPSA.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TPSA_Click()
    If TPSA.Value = True Then
        TRSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If
End Sub

Private Sub TRSA_Click()
    If TRSA.Value = True Then
        TPSA.Enabled = False
        TGramload.Enabled = False
        HA.Enabled = False
    End If
End Sub