Page 1 of 1
ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 4:37 pm
by Melodiiz
เทอมนี้กำลังเรียนวิชา Program Package 3
และก็ไม่ค่อยเข้าใจเท่าไหร่เลย
และมีงานอยู่ 1 ชิ้น ที่ทำเท่าไหร่ก็ยังไม่ได้ซักที
ซึ่งเห็นครั้งแรกก็ไม่ได้คิดว่ามันยาก
แต่พอลงมือทำเข้าจริงๆ มันไม่ได้ง่ายสำหรับฉันเลย
อาจารย์ ได้สั่งให้ทำสวิตซ์เปิดปิดไฟ
ซึ่งเมื่อกดที่ปุ่มที่สร้างขึ้นหนึ่งครั้ง ให้ขึ้นคำว่าเปิดไฟ และเมื่อกดอีกครั้ง ให้ขึ้นคำว่าปิดไฟ ในตำแหน่งเดิม
รบกวนช่วยหน่อยนะคะ
ขอบคุณมา ณ ที่นี้ค่ะ
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 5:59 pm
by snasui
ลองแนบไฟล์ที่ลองทำด้วยตัวเองแล้วมาดูด้วยครับ จะได้แนะนำจากที่ทำไว้แล้ว
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 6:18 pm
by Melodiiz
เอกสารแนบค่ะ
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 6:27 pm
by snasui
ลองนำ Code ด้านล่างไปแทน Code เดิมโดยวางระหว่าง
Sub กับ
End Sub นะครับ
Code: Select all
If ActiveCell = "เปิดไฟ" Then
ActiveCell = "ปิดไฟ"
Else
ActiveCell = "เปิดไฟ"
End If
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 6:54 pm
by Melodiiz
ขอบคุณมากๆนะคะ
ได้ผลออกมาตามที่ต้องการค่ะ
ขอถามเพิ่มเติมนะคะ
คือ อย่างสูตรที่ใส่ลงไป ถ้าเราคลิ๊กที่ช่องไหน ช่องนั้นก้อจะทำตามคำสั่ง
แต่ถ้าเราอยากให้มันแสดงผลแค่ช่องเดียวล่ะคะ
แบบว่าต้องการให้ขึ้นเปิดไฟปิดไฟแค่ช่อง E10
โดยที่ไปคลิ๊กช่องอื่นแล้วไม่แสดงผล
จะสามารถทำได้ไหมคะ
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 6:59 pm
by snasui
ทำได้ครับ เปลี่ยน Code เป็นตามด้านล่างครับ
Code: Select all
If Range("E10") = "เปิดไฟ" Then
Range("E10") = "ปิดไฟ"
Else
Range("E10") = "เปิดไฟ"
End If
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 7:10 pm
by Melodiiz
ขอบคุณอีกครั้งค่ะ
ขอถามอีกอย่างเพื่อเป็นความรู้นะคะ
สูตร Range ที่ใช้
ใช้สำหรับทำอะไรเหรอคะ
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 7:17 pm
by snasui
ใช้สำหรับระบุตำแหน่งเซลล์ครับ สำหรับการระบุตำแหน่งเซลล์ E10 อาจระบุได้เป็น
1. Range("E10")
2. Cells(10,"E")
3. Cells(10,5)
4. [E10]
Re: ขอคำปรึกษาเรื่อง Macro
Posted: Wed Jan 26, 2011 7:27 pm
by Melodiiz
ขอบคุณมากๆค่ะคุณคนควน
ตอนนี้เข้าใจขึ้นอีกเยอะและได้รู้ในสิ่งที่ไม่รู้มากมาย
ถ้ามีข้อสงสัยอะไรเพิ่มเติม
จะมาขอคำปรึกษานะคะ