Page 1 of 1
รบกวนขอคำแนะนำการเขียนสูตร Macro
Posted: Sun Jul 17, 2011 11:36 pm
by eak108035
สมาชิกใหม่ครับ
ผมมีเรื่องรบกวนดังนี้ คิอผมมีข้อมูล อยู่1แถว(เป็นข้อมูลชื่อ+ที่อยู่) ใน Sheets1
ต้องการเขียนคำสั่ง Macro(ปุ่ม) เพื่อนำข้อมูลจากแถวดังกล่าวไปเพิ่มในอีก Sheets2
(ต่อท้ายโดยเพิ่มเข้าไปจากข้อมูลเดิมโดยอัตโนมัติ นะครับ เพื่อใช้เป็นฐานข้อมูลในอนาคต)
รบกวนอาจารย์ ช่วยแนะนำวิธีการเขียนสูตรด้วยตรับ
ขอขอบคุณล่วงหน้าครับ
Re: รบกวนขอคำแนะนำการเขียนสูตร Macro
Posted: Mon Jul 18, 2011 7:13 am
by snasui
ตัวอย่าง Code การนำข้อมูลจาก A2 เป็นต้นไปใน Sheet1 ไปต่อท้ายข้อมูลใน Sheet2 ตามด้านล่างครับ
Code: Select all
Sub PasteData()
Dim rs As Range, rt As Range
With Worksheets("Sheet1")
Set rs = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With
Set rt = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Re: รบกวนขอคำแนะนำการเขียนสูตร Macro
Posted: Mon Jul 18, 2011 6:00 pm
by eak108035
ขอบคุณมากนะครับ
จะนำคำแนะนำไปพัฒนาต่อและจะติดตามเวปของอาจารย์ ต่อไปนะครับ เพราะมีประโยชน์มากจริงๆ
Re: รบกวนขอคำแนะนำการเขียนสูตร Macro
Posted: Mon Jul 18, 2011 9:52 pm
by snasui
ขอปรับ Code นิดหน่อยนะครับ เนื่องจากคีย์ตกไป
Code: Select all
Sub PasteData()
Dim rs As Range, rt As Range
With Worksheets("Sheet1")
Set rs = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With
Set rt = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp) _
.Offset(1,0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub