เกี่ยวกับ checkbox คำอธิบาย แนบไฟล์ด้านในครับ

[mepmep]

คือผมต้องการ

กด checkbox แล้ว ให้เช็คค่า
ถ้า D1 = true ให้ A1 ใส่สูตร today()
ถ้า D2 = false ให้ A1 ลบทิ้งนะครับ คือต้องใส่วันแบบ manual เองครับ

ขอบคุณล่วงหน้าครับ

[snasui]

ตัวอย่าง Code เพื่อ Assigned Macro ให้กับปุ่ม CheckBox ตามด้านล่างครับ

Code: Select all

Sub CheckBox1_Click()
If Range("D1") = True Then
    Range("A1") = Date
Else
    Range("A1") = ""
End If
End Sub

[mepmep]

ตามที่อาจารย์ได้แล้ว
ที่นี้ลองเปลี่ยนเป็น ไม่ได้ครับ

Sub CheckBox1_Click()
If Range("setup_checkday") = True Then
Worksheets("Form").Range("dday") = Text(TODAY(), "dd/mm/bbbb") <<<<<<<<< error ตรงนี้ครับ
Else
Worksheets("Form").Range("dday") = ""
End If
End Sub

[snasui]

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

Code: Select all

Sub CheckBox1_Click()
If Range("setup_checkday") = True Then
   Worksheets("Form").Range("dday").NumberFormat = ("dd/mm/bbbb")
Else
   Worksheets("Form").Range("dday") = ""
End If
End Sub

[mepmep]

Sub CheckBox1_Click()
If Range("setup_checkday") = True Then
Worksheets("Form").Range("dday").NumberFormat = ("dd/mm/bbbb")
Else
Worksheets("Form").Range("dday") = ""
End If
End Sub

คือผมต้องการให้ใส่ today() ด้วยนะครับ ให้มันออโต้เลย
ตอนนี้ใส่แบบล่างด้วย ก็ ok แต่ไม่แน่ใจจะผิดหลักอะไรหรือป่าว

Code: Select all

If Range("setup_checkday") = True Then
   Worksheets("Form").Range("dday").Value = "=Text(today(), ""dd/mm/bbbb"")"
Else
   Worksheets("Form").Range("dday") = ""
End If
End Sub

ผมอาจจะถามมากหน่อยนะครับ พอดีเรื่อง vba ไม่เคยเลย
หัดๆอยู่ อาจอาศัย google เป็นหลัก

[snasui]

ถ้าต้องการให้ค่าในเซลล์แสดงให้เห็นเป็น

Text(today(),"dd/mm/bbbb")

ก็สามารถเขียน Code ตามที่ถามมาได้ครับ ไม่ผิดหลักแต่อย่างใด