ติดมาโครการตรวจสอบ Cell ให้การเปลี่ยนรูปครับ

[titus]

พอดีว่าเขียนมาโครในการเปลี่ยนรูปตาม Cell AB1 เมือค่าชื่อในช่อง AB1 เปลี่ยน ให้เปลี่ยนรูปตามชื่อในช่อง AB1

ผมเขียนอีกมาโครหนึ่งเพื่อบันทึกข้อมูลการวัดจากแนวตั้งไป เก็บแนวนอน พอกดปุ่มมันไปติดมาโครการตรวจสอบรูปครับแกไขยังไงดีครับ

[snasui]

ปิด Event เสียก่อนแล้วค่อยเปิดเมื่อทำงานเสร็จ การใช้งาน Event จะต้องคำนึงถึงกรณีนี้เสมอทั้งนี้เนื่องจาก Code ที่ใช้ Show รูปใช้ Change Event คือจะทำงานเมื่อเซลล์มีการเปลี่ยนแปลง ซึ่งไม่ว่างานใดก็ตามที่ทำให้ค่าในเซลล์เปลี่ยนไปจะกระทบกับ Code นั้นทั้งสิ้นจึงต้องปิดการใช้งาน Event เสียก่อนครับ

ตัวอย่าง Code ครับ

Code: Select all

Sub save_data()
Application.EnableEvents = False
'...Other code
Application.EnableEvents = True
End Sub

เพิ่มเติมเรื่องการประกาศตัวแปร

การประกาศตัวแปรใน VBA ไม่เหมือนใน VB6 หรือ VB.Net ที่จะประกาศรวบได้ ต้องประกาศไปทีละตัว เช่น

Code: Select all

dim s as string, u as string, v as string

จะไม่เท่ากับ

Code: Select all

dim s, u, v as string

ในกรณีหลัง s และ u จะเป็น Variant ส่วน v จะเป็น String เพียงตัวเดียวเท่านั้นครับ

[titus]

ขอบคุณมากครับอาจาร์ย