Page 1 of 1
สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Mon Nov 19, 2012 8:19 pm
by teclub2006
เข้าเรื่องเลยนะครับ พอดีต้องการเขียนโค้ด คัดลอก ข้อมูลไปยังอีก Sheet ซึ่งผมได้ลองเขียนแล้ว
ปัญหาคือ ผมไม่อยากให้บรรทัดที่ซ่อนติดมาด้วยครับ
อันที่จริงมีปัญหาอีกสองข้อแต่เอาอันนี้ก่อนดีกว่า ครับ
ขอบคุณล่วงหน้านะครับ
Sheet1 คือหน้าข้อมูล
Sheet2 คือหน้าที่เอาข้อมูลไปวาง
Re: สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Mon Nov 19, 2012 9:25 pm
by snasui
ไม่พบ Code ในไฟล์แนบครับ
Re: สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Mon Nov 19, 2012 10:46 pm
by teclub2006
Code: Select all
Sheets("Sheet2").Select
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ขอโทษด้วยนะครับที่ไม่ได้แนบโค้ดไปด้วย
Re: สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Mon Nov 19, 2012 10:51 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
Sheets("Sheet2").Select
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Re: สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Tue Nov 20, 2012 12:09 am
by teclub2006
ช่วยอธิบายในส่วนของ SpecialCells หน่อยครับ พยายามทำความเข้าใจครับ
Re: สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Tue Nov 20, 2012 7:09 am
by snasui
.SpecialCells(xlCellTypeVisible) เทียบได้กับกดแป้น F5 แล้วเลือก Special แล้วเลือก Visible cell only ซึ่งเป็นการเลือกเฉพาะเซลล์ที่มองเห็น (ไม่เลือกเซลล์ที่ซ่อน) ครับ
Re: สอบถามผู้รู้ครับ เรื่อง การเขียนโค๊ดคัดลอก
Posted: Thu Nov 22, 2012 8:00 pm
by teclub2006
ขอบคุณครับ