Page 1 of 1

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

Posted: Tue Jul 22, 2014 7:25 pm
by Ueng999
ขั้นตอนการทำงานเพื่อแก้ไข comment
เมื่อคลิกที่ Button 1 จะโชว์ comment ที่เซลล์ D10 เพื่อแก้ไขข้อมูลใน comment และ ซ่อน comment ไว้เหมือนเดิม
แต่ตอนนี้ comment เปิดค้าง ซ่อนไม่ได้ รบการผู้รู้ช่วยดูว่าต้องเขียน code เพิ่มแบบไหนคะ ตัวเองเขียนได้แค่นี้เองคะไปต่อแล้วไม่สำเร็จคะ

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

Posted: Tue Jul 22, 2014 7:32 pm
by snasui
:D ลองปรับ Code เป็น

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
    Range("D10").Comment.Visible = Not Range("D10").Comment.Visible
End Sub
กรณีต้องการซ่อนให้คลิกปุ่มซ้ำอีกครั้ง

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

Posted: Tue Jul 22, 2014 10:29 pm
by Ueng999
ทำได้แล้ว ขอบคุณมากคะ :cp: