Page 1 of 1
การบันทึกข้อมูล RecordData
Posted: Sun Mar 03, 2013 10:18 pm
by palmy
ผมได้ลองทำไฟล์เกี่ยวกับการบันทึกข้อมูลโดยใช้ Code ดังนี้
Code: Select all
Dim rTarget As Range
With Sheets("Search")
i = .Range("F4").Value
j = .Range("I8").Value
Set rSource = .Range("F9")
End With
With Sheets("Remove")
Set rTarget = .Range(.Range("H" & i + 1), .Range("H" & i + j))
End With
Application.ScreenUpdating = False
rSource.Copy
rTarget.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "ºÑ¹·Ö¡Êèǹ§Ò¹áÅéÇ"
Sheets("Remove").Select
Range("H" & i + 1).Select
Application.ScreenUpdating = False
End Sub
นั่นคือ การนำข้อความใน Cell F9 Sheet Search ไปจัดเก็บในคอลัมภ์ H Sheet Remove ที่ได้สร้าง Index ไว้แล้ว
ทั้งนี้ ผมต้องการประยุกต์ โดยนำ ค่าเพิ่มเติมจาก Sheet Search Cell F10 และ F11 ไปจัดเก็บไว้ใน Sheet Remove คอลัมภ์ต่อเนื่อง I และ J
รบกวนขอคำแนะนำด้วยครับ
Re: การบันทึกข้อมูล RecordData
Posted: Sun Mar 03, 2013 10:28 pm
by snasui
แนบไฟล์ตัวอย่างมาด้วยครับ และช่วยระบุด้วยว่าต้องการวางข้อมูลอย่างไร ปัจจุบันปัญหาคืออะไร
Re: การบันทึกข้อมูล RecordData
Posted: Sun Mar 03, 2013 10:33 pm
by palmy
ไฟล์ค่อนข้างใหญ่ ขออนุญาติตัดไฟล์สักครู่ครับ
Re: การบันทึกข้อมูล RecordData
Posted: Sun Mar 03, 2013 10:48 pm
by palmy
ไฟล์แนบครับ
Re: การบันทึกข้อมูล RecordData
Posted: Sun Mar 03, 2013 11:05 pm
by snasui
palmy wrote:ผมต้องการประยุกต์ โดยนำ ค่าเพิ่มเติมจาก Sheet Search Cell F10 และ F11 ไปจัดเก็บไว้ใน Sheet Remove คอลัมภ์ต่อเนื่อง I และ J
รบกวนขอคำแนะนำด้วยครับ
จากที่ถามมา ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub RecordData()
Dim rSource As Range
Dim i As Long, j As Integer
Dim rTarget As Range
With Sheets("Search")
i = .Range("F4").Value
j = .Range("I8").Value
Set rSource = .Range("F9")
End With
With Sheets("Remove")
Set rTarget = .Range(.Range("H" & i + 1), .Range("H" & i + j))
End With
Application.ScreenUpdating = False
'rSource.Copy
'rTarget.PasteSpecial xlPasteValues
rTarget = rSource
rTarget.Offset(0, 1) = rSource.Offset(2, 0)
rTarget.Offset(0, 2) = rSource.Offset(4, 0)
Application.CutCopyMode = False
MsgBox "บันทึกส่วนงานแล้ว"
Sheets("Remove").Select
Range("I" & i + 1).Select
Application.ScreenUpdating = False
End Sub
Re: การบันทึกข้อมูล RecordData
Posted: Sun Mar 03, 2013 11:29 pm
by palmy
ขอบคุณครับอาจารย์