การทำเมนู

[yodpao.b]

การทำเมนู

Capture1.PNG

จากรูปใช้คำสั่ง

Code: Select all

Application.CommandBars("LED1").Visible = True
Application.CommandBars("กำหนดเอง 1").Visible = True

ถ้ารันบน excel 2003 เมนูขึ้นให้ครับ แต่ถ้ารัน บน excel 2007 มัน error ครับ


น่าแปลกที่ไฟล์เก่าที่เคยทำมาแล้วก็ขึ้นตามปกติ แต่พอทำอันใหม่กับใช้ไม่ได้

ช่วยแนะนำด้วยครับ

[snasui]

ลองแนบไฟล์ตัวอย่างมาด้วย เพื่อน ๆ จะได้ช่วยทดสอบได้

ผมไม่ได้ใช้ Excel 2003 มีก็แต่ 2010 และ 2013 การที่แสดงได้บ้างไม่ได้บ้างลองตรวจสอบการกำหนดค่าให้ใช้งาน Macro ดูด้วยครับ นอกจากนี้ ช่วยให้รายละเอียดว่า ที่ได้นั้น Excel Version ใดและใน Version เดียวกันได้เหมือนกันหรือไม่ ที่ไม่ได้นั้น Excel Version ใด ฯลฯ

[yodpao.b]

Capture2.PNG

ไฟล์ทีเคยทำ ถ้าเพิ่มเมนูมาก็จะแสดงดังภาพด้านบน (ใน Excel 2007)

แต่ไฟล์ที่แนบมานี้ ไม่ยอมแสดง add in (ใน Excel 2007) ดังรูปด้านล่างครับ

Capture3.PNG

แต่ถ้านำไฟล์ที่แนบมานี้ไปเปิดใน Excel 2003 ก็จะแสดงเมนูที่เพิ่มเข้ามาเป็นปกติครับ

รบกวนช่วยตรวจสอบดูด้วยครับ

[snasui]

ลองเปิดด้วย Excel 2003 แล้ว Loop เทียบกับ Version ที่สูงกว่าดูว่ามี CommandBar ที่ชื่อว่า LED1 ที่สร้างขึั้นเองหรือไม่

ตัวอย่าง Code สำหรับการ Loop CommandBar แล้วนำค่าที่ได้ไปวางใน Sheet1 หากยังไม่มี Sheet1 ให้ Add เข้ามาก่อนหรือเปลี่ยน Sheet1 ใน Code เป็น Sheet ใด ๆ ตามต้องการ

Code: Select all

Dim cmb As CommandBar
For Each cmb In Application.CommandBars
    If cmb.Name = "LED1" Then MsgBox "Found"
    Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Offset(1, 0) = cmb.Name
Next cmb

[yodpao.b]

ได้แล้วครับ ผมลืมไป ใน 2003 ต้องกดปุ่มคำว่าแนบครับ เมื่อมาเปิดใน2007 ( add in จะขึ้นมาเอง )

[yodpao.b]

อาจารย์ ครับ

Capture02.JPG

ต้องการให้เมนู โชว์ตามภาพด้านบน จะต้องใช้คำสั่ง "ย่อRibbon ให้เล็กที่สุด"

คำถาม
1.จากภาพถ้าเราเปิดไฟล์ของเราขึ้นมาแล้วให้ไฟล์ของเรา "ย่อRibbon ให้เล็กที่สุด" ทำโดยอัตโนมัติ ใช้ CODE อะไรครับ
2.และถ้าต้องการให้ไม่โชว์เมนูด้านบนใช้คำสั่งอะไรครับ

ขอบคุณครับ

[yodpao.b]

ขอยกเลิกคำถามด้านบนครับ