Page 1 of 1
การทำเมนู
Posted: Sun Mar 01, 2015 11:17 am
by yodpao.b
การทำเมนู
Capture1.PNG
จากรูปใช้คำสั่ง
Code: Select all
Application.CommandBars("LED1").Visible = True
Application.CommandBars("กำหนดเอง 1").Visible = True
ถ้ารันบน excel 2003 เมนูขึ้นให้ครับ แต่ถ้ารัน บน excel 2007 มัน error ครับ
น่าแปลกที่ไฟล์เก่าที่เคยทำมาแล้วก็ขึ้นตามปกติ แต่พอทำอันใหม่กับใช้ไม่ได้
ช่วยแนะนำด้วยครับ
Re: การทำเมนู
Posted: Sun Mar 01, 2015 12:32 pm
by snasui
ลองแนบไฟล์ตัวอย่างมาด้วย เพื่อน ๆ จะได้ช่วยทดสอบได้
ผมไม่ได้ใช้ Excel 2003 มีก็แต่ 2010 และ 2013 การที่แสดงได้บ้างไม่ได้บ้างลองตรวจสอบการกำหนดค่าให้ใช้งาน Macro ดูด้วยครับ นอกจากนี้ ช่วยให้รายละเอียดว่า ที่ได้นั้น Excel Version ใดและใน Version เดียวกันได้เหมือนกันหรือไม่ ที่ไม่ได้นั้น Excel Version ใด ฯลฯ
Re: การทำเมนู
Posted: Sun Mar 01, 2015 2:04 pm
by yodpao.b
Capture2.PNG
ไฟล์ทีเคยทำ ถ้าเพิ่มเมนูมาก็จะแสดงดังภาพด้านบน (ใน Excel 2007)
แต่ไฟล์ที่แนบมานี้ ไม่ยอมแสดง add in (ใน Excel 2007) ดังรูปด้านล่างครับ
Capture3.PNG
แต่ถ้านำไฟล์ที่แนบมานี้ไปเปิดใน Excel 2003 ก็จะแสดงเมนูที่เพิ่มเข้ามาเป็นปกติครับ
รบกวนช่วยตรวจสอบดูด้วยครับ
Re: การทำเมนู
Posted: Sun Mar 01, 2015 3:53 pm
by 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
Re: การทำเมนู
Posted: Mon Mar 02, 2015 1:57 pm
by yodpao.b
ได้แล้วครับ ผมลืมไป ใน 2003 ต้องกดปุ่มคำว่าแนบครับ เมื่อมาเปิดใน2007 ( add in จะขึ้นมาเอง )
Re: การทำเมนู
Posted: Mon Mar 02, 2015 2:14 pm
by yodpao.b
อาจารย์ ครับ
Capture02.JPG
ต้องการให้เมนู โชว์ตามภาพด้านบน จะต้องใช้คำสั่ง "ย่อRibbon ให้เล็กที่สุด"
คำถาม
1.จากภาพถ้าเราเปิดไฟล์ของเราขึ้นมาแล้วให้ไฟล์ของเรา "ย่อRibbon ให้เล็กที่สุด" ทำโดยอัตโนมัติ ใช้ CODE อะไรครับ
2.และถ้าต้องการให้ไม่โชว์เมนูด้านบนใช้คำสั่งอะไรครับ
ขอบคุณครับ
Re: การทำเมนู
Posted: Mon Mar 02, 2015 3:37 pm
by yodpao.b
ขอยกเลิกคำถามด้านบนครับ