snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 am
Excel Ver: 2010
#1
Post
by HELP » Sat Aug 10, 2019 4:43 pm
ใช้ macro shortcut Alt E ไม่ได้ครับ
MacroE ใช้งานได้ปกติ
แต่กด alt E แล้วไม่มีอะไร
ควรแก้ไขอย่างไรครับ
ขอบคุณครับ
Code: Select all
Sub Shortcuts()
Application.OnKey "%{E}", "MacroE"
End Sub
Sub MacroE()
'
' MacroE áÁâ¤Ã
' ¾ÔÁ¾ìãºÇÒ§ºÔÅ JTD
'
'
'
Selection.Copy
Sheets("ÇÒ§").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("¾ÔÁ¾ìãºÇÒ§ºÔÅ JTD").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("ÇÒ§").Select
Selection.ClearContents
Sheets("»ÃÐÇѵԤèÒ¹éÓ¤èÒä¿ JTD").Select
End Sub
Attachments
Screenshot_109.jpg (43.24 KiB) Viewed 76 times
snasui
Site Admin
Posts: 31214 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#2
Post
by snasui » Sat Aug 10, 2019 6:17 pm
ปกติผมไม่ใช้การกำหนด Shortcut ให้กับ Excel ด้วย Onkey ครับ
โดยปกติ Shortcut ของ Excel เองแท้ ๆ ยังใช้ได้ไม่สมบูรณ์ทุก Shortcut ขึ้นอยู่กับว่าได้ลงโปรแกรมใดมาทีหลังและโปรแกรมนั้นใช้ Shortcut ที่ไปซ้ำกับของ Excel หรือไม่ หากซ้ำจะทำให้ Shortcut ของ Excel ใช้ไม่ได้ครับ
และผมไม่สามารถทดสอบ Shortcut ด้วย Environment เดียวกันกับคุณ HELP ได้ จึงไม่สามารถตอบได้ว่าในเครื่องนั้นเกิดจากสาเหตุใด ส่วนเครื่องผมลงหลายโปรแกรมภายหลัง Excel ผมจึงไม่ใช้ Onkey และแม้จะใช้ก็เป็นไปได้ว่าไม่สามารถ Run Procedure ได้ครับ
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 am
Excel Ver: 2010
#3
Post
by HELP » Sat Aug 10, 2019 6:37 pm
ใช้ได้แล้วครับ
ใช้ run macro shortcut ก่อน (ไม่รู้เกี่ยวกันไหม) แล้วกด alt e
แต่ถ้าเป็น shortcut ที่ตรงกับ excel อยู่แล้ว เช่น alt f จะใช้ไม่ได้
ขอบคุณครับ
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 am
Excel Ver: 2010
#4
Post
by HELP » Sat Aug 10, 2019 8:33 pm
ตอนนี้เปลี่ยนจาก shortcut ไปเป็น custom ribbon แทน
แต่มีปัญหาคือ ขนาดของ icon ไม่เท่ากัน
คือ macro E-K มีขนาดเล็ก
ไม่ทราบว่าจะปรับให้ใหญ่ขึ้นเท่ากับ macro A-D ได้อย่างไร
ขอบคุณครับ
Attachments
Screenshot_110.jpg (22.03 KiB) Viewed 65 times
snasui
Site Admin
Posts: 31214 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#5
Post
by snasui » Sat Aug 10, 2019 10:51 pm
เมนูที่กำหนดโดยโปรแกรมลักษณะนี้เราไม่สามารถเข้าไปจัดการปรับขนาดเล็กใหญ่ได้ ที่จะปรับได้คือเมนูที่เขียนขึ้นมาเองด้วย XML ครับ
Tools ที่ใช้ในการเขียนเมนู ดูได้จากที่นี่ครับ
Customize Menu
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 am
Excel Ver: 2010
#6
Post
by HELP » Sun Aug 11, 2019 7:34 am
เปลี่ยนขนาดได้แล้วครับ
หลังลองลบแมคโครไป 1 ตัว
แต่ที่จริงยังมีเนื้อที่สำหรับเมนูเหลืออีกมาก ถ้าเป็นตัวใหญ่ทั้งหมดยังได้
ไม่รู้เป็นเพราะอะไร
Attachments
Screenshot_111.jpg (26.76 KiB) Viewed 59 times
snasui
Site Admin
Posts: 31214 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:
#7
Post
by snasui » Sun Aug 11, 2019 8:06 am
ตามที่ผมทราบ ผมได้อธิบายไปแล้วครับ
ถ้าจะให้ได้ Icon ใหญ่ทั้งหมด Icon ตัวเล็กทั้งหมดหมด กำหนด Icon ใดเล็กใหญ่ หรือแม้กระทั่งปรับตามหน้าจอให้เล็กใหญ่เมื่อหน้าย่อขยายหน้าจอ
ต้องเขียนเมนูขึ้นมาเอง ไม่ใช่การสร้างเมนูที่กำหนดมาให้ด้วย Excel ตามลักษณะที่ถามมานี้ เพราะไม่มีส่วนให้กำหนดค่า ปรับขนาดครับ
ตัวอย่างการเขียนเมนูขึ้นมาใช้เองตามภาพ จะกำหนดให้ใช้งานได้ หรือใช้งานไม่ได้ กำหนดสิทธิ์ให้คลิกได้หรือคลิกไม่ได้ หรือกำหนดขนาดเล็กใหญ่ตามขนาดหน้าจอก็ย่อมทำได้
Attachments
CustomMenu CustomMenu.jpg (45.9 KiB) Viewed 57 times