Page 1 of 1
ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Mon May 12, 2014 4:07 pm
by wutthichai_meekhun
สวัสดีครับอาจารย์ ผมต้องการ Copy ข้อมูลจาก Sheet ชื่อ Suphachai ของไฟล์ WeeklyPlan_Team_VBA.xlsm ไปวางไว้ใน Sheet ชื่อ Summary ของไฟล์ SDRequestDocumentControl_VBA.xlsm ตอนนี้ สามารถทำการ Copy ได้เเล้ว แต่วางข้อมูลไม่ได้ อยากให้อาจารย์ช่วยตรวจสอบให้ผมหน่อยครับว่าที่ทำมาถูกหรือผิด และทำไมถึงวางข้อมูลที่ Copy มานั้นไม่ได้ (ผมพึ่งได้มาเขียนครั้งเเรกในช่วงที่ฝึกงาน รบกวนอาจารย์ให้คำปรึกษาด้วยนะครับ ขอบคุณมากครับ)
" Code ใน Sheet1(Summary) "
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim w As Range
Dim s As Range
Set w = Workbooks("WeeklyPlan_Team_VBA.xlsm").ActiveSheet.Range("B7:B150")
Set s = Workbooks("SDRequestDocumentControl_VBA.xlsm").ActiveSheet.Range("B7:B150")
w.Copy
s.PasteSpecial xlPasteValues
End Sub
" Code ใน Module1 "
Code: Select all
Sub VBASD()
Workbooks("WeeklyPlan_Team_VBA.xlsm").Sheets("Supachai").Activate
ActiveSheet.Range("B3:B150").Select
Application.Goto Workbooks("WeeklyPlan_Team_VBA.xlsm").Sheets("Supachai").Range("B3:B150")
Selection.Copy
End Sub
ส่วนนี่คือ Code ในการ Paste ข้อมูลที่ผมเขียนขึ้นมาเอง ซึ่งอยู่ที่เดียวกันกับ Code ในการ Copy ด้านบนครับ
Code: Select all
Sub VBASD()
Workbooks("SDRequestDocumentControl_VBA.xlsm").Sheets("Summary").Activate
ActiveSheet.Range("B7:B150").Select
Application.Goto Workbooks("SDRequestDocumentControl_VBA.xlsm").Sheets("Summary").Range("B7:B150")
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
โดย เมื่อกดปุ่ม Run แล้วมีข้อความเเจ้งเตือนว่า Run-time error '9': Subscript out of range ครับ
พอผมกดปุ่ม Debug ก็มีเเถบสีเหลือง คลุม ข้อความนี้ครับ Workbooks("SDRequestDocumentControl_VBA.xlsm").Sheets("Summary").Activate
Re: ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Mon May 12, 2014 4:59 pm
by snasui
ช่วยโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและ Copy ไปทดสอบ โดยดูตัวอย่างจากที่นี่ครับ
viewtopic.php?f=3&t=1187
นอกจากนี้ช่วยแนบไฟล์ตัวอย่างเพื่อจะได้สะดวกกับการทดสอบครับ
Re: ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Wed May 14, 2014 8:56 am
by wutthichai_meekhun
แก้ไขเรียบร้อยครับอาจารย์ ส่วนนี่เป็นไฟล์เอกสารจำนวน 2 ไฟล์ ครับผม
Re: ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Wed May 14, 2014 9:57 am
by snasui
ชีท Summary มีวรรคอยู่ด้านหลัง ตอนเขียนใน Code ก็ต้องมีวรรคด้วยครับ
ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub VBASD()
' VBASD Macro
' Keyboard Shortcut: Ctrl+v
Workbooks("WeeklyPlan_Team_VBA.xlsm").Sheets("Supachai").Activate
ActiveSheet.Range("B3:B150").Select
'Application.Goto Workbooks("WeeklyPlan_Team_VBA.xlsm").Sheets("Supachai").Range("B3:B150")
Selection.Copy
Windows("SDRequestDocumentControl_VBA.xlsm").Activate
Worksheets("Summary ").Activate
ActiveSheet.Range("B7").Select
'Application.Goto Workbooks("SDRequestDocumentControl_VBA.xlsm").Sheets("Summary").Range("B7")
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Re: ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Wed May 14, 2014 10:47 am
by wutthichai_meekhun
ได้เเล้วครับอาจารย์ ขอบคุณมากนะครับ ผมอยากจะรบกวนอีกเรื่องหนึ่งครับอาจารย์ว่า ถ้าเกิดผมต้องการที่จะ Copy ข้อมูลในคอลัมภ์ Description ใน ไฟล์ WeeklyPlan_Team_VBA มาวางไว้ใน คอลัมภ์ Task ของไฟล์ SDRequestDocumentControl_VBA โดยเลือกเฉพาะคอลัมภ์ Section ที่มีข้อมูลเป็น QD เพียงอย่างเดียว (ผมใช้ Filter ในการเลือกเอาเฉพาะ ข้อมูลที่เป็น QD) ไม่ทราบว่าต้องเขียนโค๊ดยังไง ข้อมูลจึงจะออกมาทั้งหมด และตรงกัน
Code: Select all
Sub VBASD()
' VBASD Macro
' Keyboard Shortcut: Ctrl+v
Workbooks("WeeklyPlan_Team_VBA.xlsm").Sheets("Supachai").Activate
ActiveSheet.Range("B59", "B78", "B102", "B103", "B145").Select
'Application.Goto Workbooks("WeeklyPlan_Team_VBA.xlsm").Sheets("Supachai").Range("B3:B150")
Selection.Copy
Windows("SDRequestDocumentControl_VBA.xlsm").Activate
Worksheets("Summary ").Activate
ActiveSheet.Range("B7").Select
'Application.Goto Workbooks("SDRequestDocumentControl_VBA.xlsm").Sheets("Summary").Range("B7")
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
ผมเขียน Code ด้านบนนี้ไป แล้ว มันขึ้น "Run time error 450"
รบกวนอาจารย์อีกครั้งนะครับผม ผมเเนบไฟล์ใหม่มาให้ในนี้ด้วยครับ
Re: ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Wed May 14, 2014 11:29 am
by snasui
ลองดู code ที่ได้จากการบันทึก Macro ในการ Filter ข้อมูลตามต้องการ จากนั้น Copy และ Paste ไปยังเซลล์ปลายทาง
นำ Code นั้นมาปรับใช้ ติดตรงไหนค่อยถามกันต่อครับ
Re: ไม่สามารถ Paste ข้อมูล ได้ (VBA)
Posted: Wed May 14, 2014 1:30 pm
by wutthichai_meekhun
ได้ผลลัพธ์ออกมาตรงตามความต้องการเเล้วครับผม ขอบคุณมากนะครับอาจารย์