ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
สามารถใช้ Code ตามด้านล่าง ดูไฟล์แนบประกอบครับ
Code: Select all
Sub PasteData()
Dim r As Range
Dim t As Range
With Worksheets("Sheet1")
Set r = .Range("C4:E4")
Set t = .Range("H65536").End(xlUp).Offset(1, 0)
End With
r.Copy
t.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Finish."
End Sub
Code: Select all
Sub PasteData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Sheet1").Range("D4:F4")
Set rt = Worksheets("Sheet2").Range("F65536").End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Finish."
End Subจากสูตรเป็นการทำฟอร์มโดยกรอกในแนวนอน แล้วถ้าฟอร์มกรอกในแนวตั้ง แก้ตรงใหนยังไงครับ อย่างตัวอย่างเขตข้อมูล D4:F4 (ฟอร์มกรอกเป็นแนวนอน คือ D4, E4, F4) ถ้าฟอร์มกรอกเป็นแนวตั้ง (แต่ข้อมูลในชีท 2 เป็นแนวนอนเหมือนเดิม) เช่น D4,D5,D6 ทำไงครับjoo wrote:ลองแบบนี้พอได้ไหมครับCode: Select all
Sub PasteData() Dim rs As Range Dim rt As Range Set rs = Worksheets("Sheet1").Range("D4:F4") Set rt = Worksheets("Sheet2").Range("F65536").End(xlUp).Offset(1, 0) rs.Copy rt.PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "Finish." End Sub
การวางแบบสลับแกนใช้ Transpose ลองบันทึก Macro ดูครับsnasui wrote:
ผมด้อยปัญญาจริงๆ ทำไงครับอาจารย์ ไม่แน่ใจว่า ตามข้างบนแก้ข้อความตรงบันทัดใหนได้บ้างป่าวครับ เรื่องของเรื่องไม่เคยใช้พวกนี้เลยครับ สมัยเรียนพวกเขียนโค้ดอะไรต่างๆ ก็เรียนแค่ เทอร์โบปาสคาลแบบ งูๆ ปลาๆjoo wrote:ลองแบบนี้พอได้ไหมครับCode: Select all
Sub PasteData() Dim rs As Range Dim rt As Range Set rs = Worksheets("Sheet1").Range("D4:F4") Set rt = Worksheets("Sheet2").Range("F65536").End(xlUp).Offset(1, 0) rs.Copy rt.PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "Finish." End Sub
การใช้ Code ต้องเขียนมาเองครับ ถ้านำ Code อื่นมาถามก็ต้องปรับตามที่ตัวเองต้องการแล้ว ติดตรงไหนค่อยถามกันตามกฎข้อ 5 ด้านบนครับครับเดียวไปลองดูก่อนครับsnasui wrote: