การสั่งให้ comment ทำงาน

[Ueng999]

ขั้นตอนการทำงานเพื่อแก้ไข comment
เมื่อคลิกที่ Button 1 จะโชว์ comment ที่เซลล์ D10 เพื่อแก้ไขข้อมูลใน comment และ ซ่อน comment ไว้เหมือนเดิม
แต่ตอนนี้ comment เปิดค้าง ซ่อนไม่ได้ รบการผู้รู้ช่วยดูว่าต้องเขียน code เพิ่มแบบไหนคะ ตัวเองเขียนได้แค่นี้เองคะไปต่อแล้วไม่สำเร็จคะ

[snasui]

ลองปรับ Code เป็น

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
    Range("D10").Comment.Visible = Not Range("D10").Comment.Visible
End Sub

กรณีต้องการซ่อนให้คลิกปุ่มซ้ำอีกครั้ง

[Ueng999]

ทำได้แล้ว ขอบคุณมากคะ