การทำ Option botton โดยใช้เงื่อนไข

[aumpajaree]

อยากสอบถามการใช้ การทำ Option botton ในแบบฟอร์มหัวข้อ ขึ้นทะเบียน แก้ไข ยกเลิก ควบคุม ไม่ควบคุม ให้มีค่าเท่ากับ 1 และนำค่านั้นใส่ใน Sheet data รบกวนอาจาร์ยช่วยหน่อยค่ะ (มือใหม่)


ขอบคุณค่ะ

[snasui]

ช่วยอธิบายมาว่า Code ชื่ออะไร อยู่ Module ใด ติดขัดบรรทัดใด ค่าที่ทดสอบคือค่าใดบ้าง ทดสอบแล้วต้องให้แสดงผลเป็นอยางไร จะได้เข้าใจตรงกันครับ

[aumpajaree]

code ชื่อ dcc_100 จะให้มีค่าเท่ากับ 1 เมื่อเราคลิกเลือกค่ะ และไปแสดงค่าที่คอลลัมที่ e5 คือหนู จะเขียนสูตรตรง cmdSave แต่เริ่มไม่ถูกค่ะ รบกวนอาจารย์ด้วยค่ะ

[snasui]

ช่วยตอบตามที่ผมถามครับ

ค่าทดสอบคืออะไร คลิกปุ่มใด จะได้เข้าถึงปัญหาได้โดยไวครับ

[aumpajaree]

ถ้าติ๊ก dcc_100 = 1 โดยบันทึกค่าที่กำหนดลงใน worksheet "data" ที่ คอลัม 5
dcc_200 = 1 โดยบันทึกค่าที่กำหนดลงใน worksheet "data" ที่ คอลัม 6
dcc_300 = 1 โดยบันทึกค่าที่กำหนดลงใน worksheet "data" ที่ คอลัม 7
dcc_400 = 1 โดยบันทึกค่าที่กำหนดลงใน worksheet "data" ที่ คอลัม 8
dcc_500 = 1 โดยบันทึกค่าที่กำหนดลงใน worksheet "data" ที่ คอลัม 9

ต้องรบกวนอาจารย์ชี้แนะด้วยค่ะ ควรเขียนโค๊ดอย่างไรค่ะ

[snasui]

ลองดูตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub dcc_100_Click()
    Dim row As Long
    Sheets("data").Select
    row = ActiveSheet.Range("a" & Rows.Count).End(xlUp).row + 1
    If dcc_100.Value = True Then
        ActiveSheet.Cells(row, 5) = "1"
    Else
        ActiveSheet.Cells(row, 5) = ""
    End If
End Sub

[aumpajaree]

ขอบคุณมากๆค่ะ

[aumpajaree]

อาจารย์ค่ะ พอใส่โค๊ดที่อาจารย์แนะนำ เมื่อ ติ๊กมันไม่แสดง 1 ค่ะ ตามเอกสารแนบ รบกวนอาจารย์แนะนำหน่อยค่ะ

[aumpajaree]

อาจารย์ค่ะ ดิฉันลองทำอีกครั้งได้แล้วค่ะ ขอบคุณอีกครั้งค่ะ >.<