Snasui Excel Forum

Posted: **Thu Mar 05, 2015 11:35 am**

ผมเขียน 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 ได้อีกครับ

Posted: **Thu Mar 05, 2015 11:47 am**

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

Posted: **Thu Mar 05, 2015 12:19 pm**

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

Posted: **Thu Mar 05, 2015 1:23 pm**

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

Posted: **Thu Mar 05, 2015 1:37 pm**

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

Code: Select all

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

Posted: **Thu Mar 05, 2015 4:12 pm**

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

Posted: **Fri Mar 06, 2015 4:13 pm**

ผมใช้คำสั่งซ่อน 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"

ขอบคุณครับ

Posted: **Sat Mar 07, 2015 1:51 pm**

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

Posted: **Mon Mar 09, 2015 10:04 am**

สวัสดีครับ

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

Code: Select all

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

Posted: **Mon Mar 09, 2015 1:54 pm**

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

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

Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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