ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
คำแสดงเจตนา
ขอผลแห่งการให้ความรู้นี้ จงกลับไปยังผู้ที่เป็นเจ้าของเดิม แม้ข้าพเจ้าจะไม่รู้จักท่านก็ตาม ขอให้แสงแห่งปัญญาที่ท่านเคยจุดไว้ ได้กลับไปเติมเต็มชีวิตของท่านอีกครั้ง และขอให้เจตนาของข้าพเจ้าเป็นการคืนความดีอย่างสงบ
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
bigger10
Member
Posts: 2 Joined: Sat Nov 26, 2011 11:31 am
#1
Post
by bigger10 Sat Nov 26, 2011 11:56 am
เมื่อผมขยาย Sheet งานของตนเองเป็นแบบ Full Screen แล้วพบว่าบนแถบTitle จะมีชื่อไฟล์.xlsm และตามด้วย "-Microsoft Excel" นั้น ผมอยากเรียนถามอาจารย์ว่า เราสามารถเปลี่ยนชื่อ "-Microsoft Excel" เป็นชื่ออื่นๆ ได้ไหมครับ เช่น เปลี่ยนเป็นชื่อหน่วยงานหรือองค์กร เป็นต้น ถ้าเปลี่ยนชื่อได้ ผมขอทราบวิธีการเขียน Code VBA ด้วยครับ
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#2
Post
by snasui Sat Nov 26, 2011 12:35 pm
ลองใช้ Code ตามด้านล่างครับ
Code: Select all
Sub ChangeExcelTitle()
Application.Caption = "Enter wording what you want"
End Sub
bigger10
Member
Posts: 2 Joined: Sat Nov 26, 2011 11:31 am
#3
Post
by bigger10 Sat Nov 26, 2011 1:59 pm
ขอบคุณมากครับไม่ต้องทำ Link ไปยังหน้าจอการตอบปัญหาครับ ที่ทำ Link ผมลบออกให้แล้ว ผู้ตอบสามารถทราบได้เองว่าต้องคลิกปุ่มไหน
tahc
Bronze
Posts: 253 Joined: Wed Sep 15, 2010 10:32 am
#4
Post
by tahc Sun Nov 27, 2011 6:29 am
อาจารย์ครับ ผมขอรายละเอียดและขั้นตอนการเอาโค้ดนี้ไปใช้ครับ ..ขอบคุณมากครับ
tahc
Bronze
Posts: 253 Joined: Wed Sep 15, 2010 10:32 am
#6
Post
by tahc Sun Nov 27, 2011 6:53 pm
หลังจากกด alt+f11 แล้วก่อนจะเอาโค้ดไปลง ต้องคลิกที่หมายเลข 1,2,3 ก่อนไหมครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#7
Post
by snasui Sun Nov 27, 2011 7:00 pm
คลิกเมนู Insert > Module โปรแกรมจะสร้าง Module1 มาให้ จากนั้นนำ Code ไปไว้ใน Module1 แล้วลองเรียกใช้ดูครับ
bank9597
Guru
Posts: 3868 Joined: Wed Aug 17, 2011 11:49 am
#8
Post
by bank9597 Tue Nov 29, 2011 9:01 am
โค๊ดดังกล่าวของอาจารย์ใช้ได้ผลครับ แต่จะต้องสั่งรันทุกครั้งที่เปิดโปรแกรม
ฉะนั้นผมจึงอยากได้วิธีที่สั่งให้โค๊ดรันทันทีที่เปิดเครื่อง
แต่ยังไม่อยากให้ตอนนี้ ผมจะขอลองทำเองก่อนครับ ฮ่าๆ
Forum Rules อย่าใช้ภาษาแชทในการตอบ-ถาม ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#9
Post
by snasui Tue Nov 29, 2011 9:16 am
bank9597 wrote: โค๊ดดังกล่าวของอาจารย์ใช้ได้ผลครับ แต่จะต้องสั่งรันทุกครั้งที่เปิดโปรแกรม
ไม่จำเป็นต้องสั่ง Run Manual ครับ สามารถทำไปใส่ใน ThisWorkbook เพื่อให้ Run แบบ Automatic
bank9597
Guru
Posts: 3868 Joined: Wed Aug 17, 2011 11:49 am
#10
Post
by bank9597 Tue Nov 29, 2011 9:36 am
โอ๊ว...คิดว่าต้องทำเพิ่มมากกว่านี้เสียอีก เสียหน้าๆๆๆ
Forum Rules อย่าใช้ภาษาแชทในการตอบ-ถาม ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
tahc
Bronze
Posts: 253 Joined: Wed Sep 15, 2010 10:32 am
#11
Post
by tahc Fri Dec 02, 2011 6:10 am
ขอบพระคุณมากมายเลยครับ...อาจารย์
tahc
Bronze
Posts: 253 Joined: Wed Sep 15, 2010 10:32 am
#12
Post
by tahc Fri Dec 02, 2011 6:33 am
สั่ง Run แล้วได้ป้ายนี้ ไปไหนต่อครับอาจารย์
You do not have the required permissions to view the files attached to this post.
bank9597
Guru
Posts: 3868 Joined: Wed Aug 17, 2011 11:49 am
#13
Post
by bank9597 Fri Dec 02, 2011 8:52 am
สั่ง Run แล้วได้ป้ายนี้ ไปไหนต่อครับอาจารย์
ดูในรูปด้านบนซ้ายที่เขียนว่า General นะครับ ให้เปลี่ยนเป็น Workbook ด้านบนขวาก็จะเป็น Open
แค่นี้ก็ได้แล้วครับ
Forum Rules อย่าใช้ภาษาแชทในการตอบ-ถาม ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
snasui
Site Admin
Posts: 31176 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 2019
Contact:
#14
Post
by snasui Fri Dec 02, 2011 3:42 pm
อ่านตามหน้าต่าง Pop up แล้วเข้าใจว่าได้กำหนด Security เกี่ยวกับ Macro เป็น High ลองปรับเป็น Medium หรือ Low โดยไปยัง Excel แล้วเข้าเมนู Tools > Macro > Security > Medium หรือ Low หากกำหนดเป็น Medium จะต้องคลิกให้ยอมรับการใช้งาน Macro ทุกครั้งที่เปิดไฟล์ที่มี Macro
จากนั้นลอง Save ไฟล์ ปิดไฟล์แล้วเปิดขึ้นมาใหม่ ทดสอบการ Run Code
tahc
Bronze
Posts: 253 Joined: Wed Sep 15, 2010 10:32 am
#15
Post
by tahc Tue Dec 13, 2011 11:27 pm
ไม่สำเร็จอีกแล้วครับอาจารย์ ไม่เป็นไรครับ ผมคงต้องไปเพิ่มRAMให้กับตัวเองก่อนครับ !!!
ChoBkuN
Member
Posts: 239 Joined: Tue Nov 29, 2011 3:43 pm
#16
Post
by ChoBkuN Thu Dec 15, 2011 10:10 am
เปิดทันทีเมื่อเปิดfile ครับ
You do not have the required permissions to view the files attached to this post.
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ 
คำแสดงเจตนา
