OFFSET ข้ามไฟล์

[Freud1996]

ต้องการดึงข้อมูลจาก Book2 ไปยัง Book1 แบบขึ้นบรรทัดใหม่เรื่อยๆ
เลยเขียนสูตร OFFSET ไปใส่ใน Name Manager ตั้งชื่อ N
=OFFSET([Book1.xls]Sheet1!ref,COUNTA(tar)+1,0)
ไม่แน่ใจว่าเขียนถูกต้องไหม
จากนั้นนำมาใส่ VBA ดังนี้ แต่ขึ้น object-defined error
รบกสนช่วยตรวจสอบจุดผิดให่หน่อยนะคะ ขอบคุณค่ะ

Sub Button1_Click()

Sheet1.Activate
Application.Goto Reference:="S_1"
Selection.Copy
Application.Goto Reference:="N"
Selection.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Sheet1.Activate
Application.Goto Reference:="S_1"

End Sub

Sub SendData()

Sheet1.Activate

MyVar = [S_1]
[N] = MyVar

End Sub

[parakorn]

การโพสถามให้โพสแค่กระทู้เดียวครับ ทุกกระทู้ที่ไม่ผิดเงื่อนไข จะได้รับคำตอบไม่ช้าก็เร็ว
เนื่องจากผู้ตอบแต่ล่ะท่านก็ต่างมีภารกิจครับ
แนะนำให้แนบไฟล์ตัวอย่างมี พร้อมตัวอย่างคำตอบที่ต้องการ
ผู้ตอบจะได้สะดวกในการเข้าถึงปัญหา ผู้เข้ามาศึกษาก็จะได้ศึกษาได้ง่าย
และการโพส Code VBA ให้ดูกฎของบอร์ดข้อที่ 5 ครับ

[Freud1996]

ต้องการดึงข้อมูลจาก Book2 ไปยัง Book1 แบบขึ้นบรรทัดใหม่เรื่อยๆ
เลยเขียนสูตร OFFSET ไปใส่ใน Name Manager ตั้งชื่อ N
=OFFSET([Book1.xls]Sheet1!ref,COUNTA(tar)+1,0)
ไม่แน่ใจว่าเขียนถูกต้องไหม
จากนั้นนำมาใส่ VBA ดังนี้ แต่ขึ้น object-defined error
รบกสนช่วยตรวจสอบจุดผิดให่หน่อยนะคะ ขอบคุณค่ะ

Code: Select all

Sub Button1_Click()

Sheet1.Activate
Application.Goto Reference:="S_1"
Selection.Copy
Application.Goto Reference:="N"
Selection.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Sheet1.Activate
Application.Goto Reference:="S_1"

End Sub

Sub SendData()

Sheet1.Activate

MyVar = [S_1]
[N] = MyVar

End Sub
[\Code]

[logic]

แนะนำให้แนบไฟล์ตัวอย่างมี พร้อมตัวอย่างคำตอบที่ต้องการ

มาช่วยแนะนำอีกคนว่าให้แนบไฟล์ตัวอย่าง

มีไฟล์ตัวอย่างมาด้วยมันสะดวกกับกับผู้ช่วยตอบครับ

[Freud1996]

ตัวอย่างไฟล์ที่ต้องการดึงข้อมูลค่ะ

[snasui]

แนบไฟล์ที่มี Code มาด้วยครับ

กรุณาอ่านกฎการใช้บอร์ดทุกข้อด้านบนซ้ำอีกครั้งครับ