ขอคำปรึกษาเรื่อง Macro

[Melodiiz]

เทอมนี้กำลังเรียนวิชา Program Package 3
และก็ไม่ค่อยเข้าใจเท่าไหร่เลย
และมีงานอยู่ 1 ชิ้น ที่ทำเท่าไหร่ก็ยังไม่ได้ซักที
ซึ่งเห็นครั้งแรกก็ไม่ได้คิดว่ามันยาก
แต่พอลงมือทำเข้าจริงๆ มันไม่ได้ง่ายสำหรับฉันเลย

อาจารย์ ได้สั่งให้ทำสวิตซ์เปิดปิดไฟ
ซึ่งเมื่อกดที่ปุ่มที่สร้างขึ้นหนึ่งครั้ง ให้ขึ้นคำว่าเปิดไฟ และเมื่อกดอีกครั้ง ให้ขึ้นคำว่าปิดไฟ ในตำแหน่งเดิม

รบกวนช่วยหน่อยนะคะ
ขอบคุณมา ณ ที่นี้ค่ะ

[snasui]

ลองแนบไฟล์ที่ลองทำด้วยตัวเองแล้วมาดูด้วยครับ จะได้แนะนำจากที่ทำไว้แล้ว

[Melodiiz]

เอกสารแนบค่ะ

[snasui]

ลองนำ Code ด้านล่างไปแทน Code เดิมโดยวางระหว่าง Sub กับ End Sub นะครับ

Code: Select all

If ActiveCell = "เปิดไฟ" Then
    ActiveCell = "ปิดไฟ"
Else
    ActiveCell = "เปิดไฟ"
End If

[Melodiiz]

ขอบคุณมากๆนะคะ
ได้ผลออกมาตามที่ต้องการค่ะ

ขอถามเพิ่มเติมนะคะ
คือ อย่างสูตรที่ใส่ลงไป ถ้าเราคลิ๊กที่ช่องไหน ช่องนั้นก้อจะทำตามคำสั่ง

แต่ถ้าเราอยากให้มันแสดงผลแค่ช่องเดียวล่ะคะ
แบบว่าต้องการให้ขึ้นเปิดไฟปิดไฟแค่ช่อง E10
โดยที่ไปคลิ๊กช่องอื่นแล้วไม่แสดงผล
จะสามารถทำได้ไหมคะ

[snasui]

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

Code: Select all

If Range("E10") = "เปิดไฟ" Then
    Range("E10") = "ปิดไฟ"
Else
   Range("E10") = "เปิดไฟ"
End If

[Melodiiz]

ขอบคุณอีกครั้งค่ะ

ขอถามอีกอย่างเพื่อเป็นความรู้นะคะ
สูตร Range ที่ใช้
ใช้สำหรับทำอะไรเหรอคะ

[snasui]

ใช้สำหรับระบุตำแหน่งเซลล์ครับ สำหรับการระบุตำแหน่งเซลล์ E10 อาจระบุได้เป็น

1. Range("E10")
2. Cells(10,"E")
3. Cells(10,5)
4. [E10]

[Melodiiz]

ขอบคุณมากๆค่ะคุณคนควน

ตอนนี้เข้าใจขึ้นอีกเยอะและได้รู้ในสิ่งที่ไม่รู้มากมาย

ถ้ามีข้อสงสัยอะไรเพิ่มเติม
จะมาขอคำปรึกษานะคะ