เพื่อมุ่งให้เกิดคุณภาพจากการอบรมสูงสุด Excel Expert Training ให้การอบรม Excel กลุ่มเล็กๆ ไม่เกิน 6 คนทุกคนสามารถเรียนรู้ Excel อย่างใกล้ชิด จะมาคนเดียวหรือมาเป็นกลุ่มแล้วนัดวันอบรมแบบส่วนตัวก็ได้ ผู้เข้าอบรมทุกคนสามารถติดตามเนื้อหาที่อบรมได้อย่างชัดเจนจากจอภาพด้านหน้าของตัวเอง
Results 1 to 3 of 3

Thread: code ในการลบและเพิ่มเมนูในเมนูบาร์

  1. #1
    anntiant
    Guest

    Smile code ในการลบและเพิ่มเมนูในเมนูบาร์

    รบกวนช่วยดูให้หน่อยคะ ว่า code ที่ใช้ในการลบและเพิ่มเมนู View และ Tools
    ที่ให้ดูด้านล่างถูกรึป่าวคะ? code นี้จะอยู่ใน This Workbook ค่ะ
    Private Sub Workbook_Open()
    On Error Resume Next
    CommandBars(1).Controls("View").Delete <<
    CommandBars(1).Controls("Tools").Delete <<
    End Sub
    code นี้ลองรันดูแล้วก็สามารถลบได้จริงค่ะ ด้านบนเป็นการลบเมนู

    ด้านล่างเป็น code เพิ่มเมนู กลับก่อนการปิดโปรแกรม
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    CommandBars(1).Controls.Add ("View") <<
    CommandBars(1).Controls.Add("Tools") <<
    End Sub
    เมื่อลองรันดูแล้วเมนู View และ Tools ไม่กลับมาค่ะ ???

  2. #2
    Ubolwan
    Guest
    ลองแบบนี้ได้ไหมค่ะ

    Code:
     
    Commandbars(1).Reset

  3. #3
    anntiant
    Guest

    Smile

    Quote Originally Posted by Ubolwan View Post
    ลองแบบนี้ได้ไหมค่ะ

    Code:
     
    Commandbars(1).Reset
    ได้ค่ะ ขอบคุณมากนะคะ

Similar Threads

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •