ขอไอเดียสำหรับการสร้างปุ่มที่เมาส์คลิ๊กแล้วเปลี่ยนรูปได้ ใน Excel ครับ

กระทู้คำถาม

คือผมต้องการสร้างปุ่มไอคอนลักษณะ Checkbox ในโปรแกรม Excel ครับ ต้องการนำไปสร้างฟอร์มแต่จำเป็นต้องมีสถานะมากกว่า 3 สถานะ (ใช้งานจริงที่ 5 สถานะ) ก็เลยคิดว่าอาจพอมีทางประยุกต์ได้ด้วยการใช้รูปภาพแล้วใส่โค้ดให้รูปมันเปลี่ยนวนไปเรื่อยๆเมื่อคลิ๊กเมาส์ คิดว่ามันไม่น่าจะยากเพราะถ้าเป็นโปรแกรมอื่นที่ผมพอทำเป็นมันง่ายมากๆ แต่พอดีผมไม่มีความรู้เรื่อง VB เลย -*-

และก็ขอเป็นลักษณะที่แต่ละปุ่มแยกกันครับ เช่นผมสร้างปุ่ม1 แล้วทำการ copy-pasteเป็นปุ่ม2 ผมสามารถคลิ๊กเปลี่ยนรูปปุ่มใครปุ่มมันได้ (ถ้าถามต่อว่าแบบนี้อยากได้ไอคอนไหนก็ก๊อปรูปมาวางเอาได้ไหม ผมก็บอกได้เลยว่าปัจจุบันใช้วิธีนี้อยู่ แต่อยากเปลี่ยนให้มันง่ายกว่าเดิมด้วยการคลิ๊กๆเปลี่ยนรูปเอา)

ใครพอจะเข้าใจผมรบกวนขอขั้นตอนหรือแหล่งข้อมูลไปศึกษาหน่อยครับ(ขอแบบเฉพาะเจาะจงนิดนึงนะ เพราะถ้าให้ไปเริ่มต้นศึกษา VB จากศูนย์เลยคงไม่ไหว) หรือถ้ามีใครลองทำเล่นๆเซฟเป็นไฟล์มาให้ผมศึกษา(และนำไปใช้-*-) ก็เป็นพระคุณอย่างสูง

หรือใครมีวิธีอื่นที่ใช้ทำปุ่ม Checkbox 5 สถานะแบบไม่ยากมากอีกก็ยินดีเป็นอย่างยิ่งครับ

ถูกใจให้พอยต์

lovenokmak

คำตอบที่ได้รับเลือกจากเจ้าของกระทู้

ความคิดเห็นที่ 1

Private Sub ComboBox1_Click() ' ทำงานเมื่อคลิกคอมโบ
    Image1.Picture = LoadPicture(ComboBox1.Text) ' โหลดภาพ
End Sub

Private Sub Worksheet_Activate() ' ทำงานเมื่อเริ่มชีต
    Do ' ทำ
        Filename = Dir(ThisWorkbook.Path & "\*.jpg") ' ค้นหาแฟ้ม JPEG ในโฟลเดอร์เดียวกับชีต
        If Filename = Empty Then Exit Do ' ถ้าไม่พบ ออก
        ComboBox1.AddItem Filename ' เพิ่มรายการ
    Loop While Filename <> Empty ' หาต่อไป
End Sub