Page 1 of 1
ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 4:27 pm
by g.piyanat
Code: Select all
Sheets("abc").Select
Range("D3:Q3").Select
Selection.Copy
Sheets("dfg").Select
Cells(1, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
จากCodeเก่า ถ้ารัน จะก็อปปี้ข้อมูลที่เลือกไว้จาก Sheets abcไป Sheets dfg โดยจะวางข้อมูลที่ก็อปปี้ไว้ไปวางไว้ตรงตำแหน่งที่ว่างทางขวามือต่อไปเรื่อยๆครับ
สิ่งที่อยากได้คือ ผมอยากจะให้ก็อปปี้ข้อมูลจากวางทางขวาให้วางลงมาเรื่อยๆแทนครับ
ขอบคุณครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 4:32 pm
by snasui
กรุณาแนบไฟล์ Excel ที่เขียน Code นี้เอาไว้แล้วมาด้วยจะได้สะดวกต่อการตอบปัญหาของเพื่อนสมาชิกครับ
นอกจากนี้ การโพสต์ Code VBA ให้ดูตัวอย่างการโพสต์ได้จากกฎการใช้บอร์ดข้อ 5 ด้านบน เพื่อที่จะแยกได้ว่าอันไหนเป็นข้อความ Code อันไหนเป็นข้อความทั่วไป จะได้สะดวกในการอ่านและการคัดลอกไปทดสอบครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 4:41 pm
by g.piyanat
แก้ไขแล้วครับ ขอโทษที่ไม่อ่านระเบียบให้ดีครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 5:51 pm
by snasui
แนบไฟล์ที่มีนามสกุลเป็น .xlsm ซึ่งได้เขียน Code เอาไว้แล้ว สำหรับไฟล์ .xlsx จะไม่สามารถแนบ Code ได้ ลองแนบไฟล์มาใหม่อีกครั้งครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 6:03 pm
by g.piyanat
ไฟล์เดิมมันมีข้อมูลอยู่ครับ และไม่ได้เป็นสิ่งที่อยากขอให้ช่วย เลยรบกวนขอเป็นช่วยเขียนcode ที่เอาไว้ก็อปปี้ข้อมูลที่เลือกไว้จากชีทนึงไปอีกชีทนึงให้หน่อยครับ โดยอยากให้ข้อมูลที่ก็อปปี้ไปวาง เรียงลงมาเรื่อยๆครับ ขอโทษด้วยครับ ตอนแรกคิดว่าเอาcodeเก่ามาแก้ไขอาจจะสะดวกกับอาจารย์และพี่ๆทุกท่านมากกว่าเขียนใหม่
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 6:06 pm
by snasui
กรณีมีข้อมูลอยู่ให้เปลี่ยนเป็นข้อมูลตัวอย่าง ไม่จำเป็นต้องนำไฟล์จริงแนบมาครับ
Code ที่ขอให้แก้ควรเขียนมาเองแล้วอยู่ในไฟล์ โดยพร้อมที่จะให้ทดสอบการทำงานและแก้ไขให้เป็นไปตามสิ่งที่ต้องการตามกระทู้นี้ครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 6:11 pm
by g.piyanat
ไม่ค่อยมีความรู้เรื่องcode VB ครับ แต่จะลองพยายามครับ ขอบพระคุณมากครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 6:40 pm
by snasui
ตัวอย่างการวางลงด้านล่างครับ
Code: Select all
Sheets("abc").Range("D3:Q3").Copy _
Sheets("dfg").Range("a" & Rows.Count).End(xlUp).Offset(1, 0)
กรณีติดปัญหาตรงไหน อย่างไร ให้ทำตามที่ผมแจ้งไปแล้ว คือต้องแนบไฟล์ที่มี Code นี้มาพร้อมแล้ว ซึ่งนอกจากจะช่วยให้สะดวกในการตอบแล้วยังจะสะดวกกับผู้ที่เริ่มต้นเรียนรู้ จะได้ทำความเข้าใจได้ง่ายด้วยครับ
Re: ช่วยแก้ไข code VBให้ด้วยครับ codeหาค่าว่างจากColumnsเป็นRows
Posted: Sat Jun 29, 2019 7:23 pm
by g.piyanat
ขอบพระคุณมากๆเลยครับ ทดลองแล้วไม่ติดปัญหาครับ ขออภัยเรื่องแนบไฟล์และหัวข้อโพสให้เป็นข้อมูลศึกษาสำหรับประโยชน์ของผู้เรียนรู้นะครับ