เกิดปัญหาเกี่ยวกับการใช้งาน VBA

[NEO889]

ผมเขียน VBA เบื้องต้น โดยไม่เงื่อนไขอยู่ว่าให้แสดง UserForm พร้อมกับปิด Workbook โดยให้แสดงเฉพาะ UserForm เท่านั้น แต่เกิดปัญหาเกิดขึ้นก็คือไม่สามารถเข้าไปใน Workbook แก้ไขได้เลยครับ ผมเขียนโค้ดดังนี้

Code: Select all

Private Sub Workbook_Open()
    Application.Visible = False
    Ai_Menu.Show
End Sub

และ

Code: Select all

Private Sub UserForm_Click()
   Application.quit
End Sub

ทำอย่างไงถึงเข้าไปแก้ไขใน Workbook ได้อีกครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยเพื่อสะดวกในการทดสอบครับ

[NEO889]

แนบไฟล์ตัวอย่างให้แล้วครับ...
ขอบคุณครับ

[snasui]

เปิดโปรแกรม Excel แล้วเข้าเมนู Open > เข้า Folder ที่เก็บไฟล์นี้ > กดแป้น Shift ค้างไว้ก่อนแล้ว Double click เพื่อเปิดไฟล์

[NEO889]

ขอบคุณครับ สอบถามอีกเรื่องครับ หากเราต้องการคลิกที่ปุ่ม Cmb แล้วเปิดอีก Form หนึ่งแล้วแล้วอีกฟอร์มที่เปิดอยู่ซ่อนไว้ต้องเขียนคำสั่งอย่างไรครับ
แบบนี้ถูกไหมครับ

Code: Select all

Private Sub cmb_addbudget_Click()
Ai_Budget.Show
AI_Menu.Hide
End Sub

[snasui]

ลองตามนั้นก็จะทราบว่าถูกหรือไม่ครับ

[NEO889]

ผมใช้คำสั่งซ่อน Workbook และแสดง Userform เมื่อทำการเปิดไฟล์ขึ้นมาโดยใช้คำสั่ง

Code: Select all

Private Sub Workbook_Open()
Application.Visible = False
AI_Menu.Show
End Sub

หากผมต้องการคลิกปุ่ม "บันทึกงบประมาณ" จะปรากฎหน้า Userform "Ai_Budget" ขึ้นมา ซึ่งตอนนี้ผมทำได้แค่นี้ครับ

Code: Select all

Private Sub cmb_addbudget_Click()
   Me.Hide
   Ai_Budget.Show
End Sub

สิ่งที่ผมต้องการเพิ่มคือ เมื่อคลิกที่ cmb_addbudget แล้วจะปรากฏ worksheet "add_Budget" ขึ้นมาพร้อมกับ UserForm "Ai_Budget"

ขอบคุณครับ

[snasui]

ลองเขียน Code ยกเลิกการซ่อน Program Excel แล้วเลือกชีท cmb_addbudget ดูเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

[NEO889]

สวัสดีครับ ผมทำตามอย่างที่แนะนำแล้วครับ....แล้วผมจะใช้คำสั่งต่อจากนี้อย่างไรครับเพื่อที่จะไปที่ Worksheet ที่เราต้องการได้

Code: Select all

Private Sub cmb_addbudget_Click()
   Me.Hide
   Ai_Budget.Show
   Sheets("add_Budget").Select >>> ผมลองตัวนี้แล้วยังไม่ได้เหมือนเดิม
End Sub

[snasui]

ที่เขียนมาไม่มีบรรทัดใดที่เป็นการยกเลิกการซ่อนโปรแกรม

บรรทัดที่ทำการซ่อนคือ Application.Visible = False หากยกเลิกการซ่อนก็ให้เปลี่ยนเป็น Application.Visible = True จากนั้นค่อยเลือกชีททีต้องการครับ