Snasui Excel Forum

Posted: **Tue Jun 21, 2011 10:09 pm**

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

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

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

Posted: **Tue Jun 21, 2011 10:21 pm**

ตัวอย่าง 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

Posted: **Tue Jun 21, 2011 11:05 pm**

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

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

Posted: **Wed Jun 22, 2011 6:50 am**

ลองเปลี่ยน 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

Posted: **Wed Jun 22, 2011 4:07 pm**

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 เป็นหลัก

Posted: **Wed Jun 22, 2011 5:44 pm**

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

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

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

Snasui Excel Forum

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

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

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

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

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

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

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