snasui.com ยินดีต้อนรับ
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ 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]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
tango479
Member
Posts: 13 Joined: Fri Dec 23, 2011 5:25 pm
#1
Post
by tango479 » Fri Dec 23, 2011 5:32 pm
รบกวนหน่อยครับ แก้ไขยังไง ใช้ MS2003 ครับ ขอบคุณครับ
snasui
Site Admin
Posts: 30921 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#2
Post
by snasui » Fri Dec 23, 2011 7:01 pm
สามารถถามยาว ๆ ได้เลยครับ ไม่ต้องประหยัดข้อความ ในกล่องข้อความนี้สามารถคีย์ได้ถึง 60000 อักขระ
สำหรับที่ถามมานั้นผมเข้าใจว่าไม่สามารถแทรกบรรทัดหรือแทรกคอลัมน์ได้ สาเหตุเพราะมี Comment อยู่จำนวนมาก ลองลบ Comment ออกไปก่อนแล้วทดสอบแทรกบรรทัดหรือแทรกคอลัมน์ดูใหม่ครับ
tango479
Member
Posts: 13 Joined: Fri Dec 23, 2011 5:25 pm
#3
Post
by tango479 » Mon Dec 26, 2011 9:48 am
ขอบคุณครับ พอดีรีบไปหน่อย
คือผมจะGroup column แล้วจะปิด แต่คลิ๊กแล้วปิดไม่ได้ จะขึ้นข้อความตามหัวข้อครับ แต่คอลัมน์สามารถแทรกได้ลบได้ครับ
ต้องรบกวนอีกทีครับ
bank9597
Guru
Posts: 3868 Joined: Wed Aug 17, 2011 11:49 am
#4
Post
by bank9597 » Mon Dec 26, 2011 10:13 am
ขอดูไฟล์หน่อยได้ไหมครับ ยังงอยู่เลยครับ
Forum Rules
อย่าใช้ภาษาแชทในการตอบ-ถาม
ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
tango479
Member
Posts: 13 Joined: Fri Dec 23, 2011 5:25 pm
#5
Post
by tango479 » Mon Dec 26, 2011 10:19 am
ตามนี้ครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30921 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#6
Post
by snasui » Mon Dec 26, 2011 12:22 pm
ผมพบว่าเกิดจาก Comment อย่างที่บอกไปแล้วครับ
ใช้ Code ด้านล่างนี้ลบ Comment ทิ้งไปก่อนแล้วลองทดสอบ Group และ Ungroup ดูครับ
Code: Select all
Sub Test()
Dim s As Comment
On Error Resume Next
For Each s In Comments
s.Delete
Next s
End Sub
tango479
Member
Posts: 13 Joined: Fri Dec 23, 2011 5:25 pm
#7
Post
by tango479 » Mon Dec 26, 2011 12:56 pm
snasui wrote: ผมพบว่าเกิดจาก Comment อย่างที่บอกไปแล้วครับ
ใช้ Code ด้านล่างนี้ลบ Comment ทิ้งไปก่อนแล้วลองทดสอบ Group และ Ungroup ดูครับ
Code: Select all
Sub Test()
Dim s As Comment
On Error Resume Next
For Each s In Comments
s.Delete
Next s
End Sub
ใช้Code นี้ที่ไหนครับ ใช้ไม่เป็นครับผม ต้องขอรบกวนอีกที
PS .ถ้าผมเปลี่ยนไปใช้ MS2007 ปัญหานี้น่าจะหมดไปมั๊ยครับ เพราะมี จำนวนcolumn ที่เยอะกว่า ขอบคุณครับ
bank9597
Guru
Posts: 3868 Joined: Wed Aug 17, 2011 11:49 am
#8
Post
by bank9597 » Mon Dec 26, 2011 1:56 pm
เปิดไฟล์ขึ้นมา กด Alt+F11 มองทางซ้ายมือ ดับเบิ้ลคลิ๊กที่ Sheet2 (KTB) แล้วโค๊ดวางไปครับ
Forum Rules
อย่าใช้ภาษาแชทในการตอบ-ถาม
ตั้งชื่อกระทู้ให้สื่อถึงปัญหาและไม่เจาะจงตัวผู้ตอบ
ให้อธิบายปัญหาและระบุคำตอบที่ต้องการมาในฟอรัม
ควรแนบไฟล์ตัวอย่างมาที่ฟอรั่ม
หากใช้ VBA ให้ลองเขียนมาเองก่อนเสมอ
แจ้งผลการใช้งานทุกครั้งเมื่อได้รับคำตอบ
snasui
Site Admin
Posts: 30921 Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:
#9
Post
by snasui » Mon Dec 26, 2011 2:01 pm
ลองตามนี้ครับ
เข้าโปรแกรม Excel
กดแป้น Alt+F11 เพื่อเปิดหน้าต่าง VBE
ในหน้าต่าง VBE เข้าเมนู Insert > Module
Copy Code ที่ให้ไว้ด้านบนไปวาง
กดแป้น F5 เพื่อ Run Code
กดแป้น Alt+F11 แล้วทดสอบ Group และ Ungroup แล้วสังเกตดูผล
กรณีเป็น Excel 2007 ผมทดสอบ Convert เป็นไฟล์ .xlsm และทำการ Group และ Ungroup แล้วไม่พบว่ามีปัญหาครับ
tango479
Member
Posts: 13 Joined: Fri Dec 23, 2011 5:25 pm
#10
Post
by tango479 » Mon Dec 26, 2011 3:03 pm
ลองแล้วกด F5 ขึ้นว่า
The macros in this project are disable.Please refer to the online......how to enable macro.
แก้ยังไงครับ ขอบคุณครับ
tango479
Member
Posts: 13 Joined: Fri Dec 23, 2011 5:25 pm
#12
Post
by tango479 » Mon Dec 26, 2011 3:44 pm
ได้แล้วครับ ขอบคุณมากครับสำหรับทุกๆคำตอบ
(คงต้องเปลี่ยนเป็นversion ใหม่แล้วครับ เพราะจำนวนcolumn ไม่พอซะละเอาไว้ถ้ามีปัญหาคงต้องรบกวนใหม่ครับ)