Page 1 of 1
อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Tue Apr 29, 2014 5:17 pm
by phathit
รบกวนท่านผู้รู้ทุกท่านครับ..
ผมต้องบอกก่อนว่ายังใหม่อยู่ คือว่าทางบริษัทมอบหมายงานให้ทำเอกสารใบเบิก
ผมจึงรบกวนถามดังนี้ครับ.
1.อยากทราบวิธี Save ข้อมูล จากหน้าแบบฟอร์มใบเบิก ไปเก็บไว้อีก Sheet หนึ่งครับ
2.วิธีเขียน Code VBA ผมถูกต้องหรือเปล่าครับ.
ผิดพลาดตรงไหนแนะนำด้วยครับ..
ขอบคุณครับ
Re: อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Wed Apr 30, 2014 2:15 pm
by snasui
ให้ถามในสิ่งที่เป็นปัญหาครับ ไม่ทราบว่า Code นั้นทำงานผิดพลาดอย่างไร หากไม่ผิดพลาดก็สามารถใช้งานได้ครับ
Re: อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Wed Apr 30, 2014 3:25 pm
by phathit
ขออภัยครับอาจารย์
คือว่าผมอยากจะ save ไฟล์จากหน้าแบบฟอร์มไปเก็บบันทึกไว้ครับ เนื่องจากทำการรันเลขที่เอกสารครับ
เลยอยากจะเก็บข้อมูลแต่ละเลขที่ไว้ครับ รบกวนอาจารย์ช่วยแนะนำด้วยครับ
ขอบคุณครับ..
Re: อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Wed Apr 30, 2014 3:30 pm
by snasui
Code ที่เขียนมาเองแล้วนั้นติดขัดที่บรรทัดใดครับ
Re: อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Wed Apr 30, 2014 5:03 pm
by phathit
ดิดช่วงที่ copy data ไปเก็บไว้ครับ
ต้องคือว่ามันไม่เก็บ data ทั้งหมดครับ
มันเก็บเฉพาะบรรทัดแรกครับ..
ขอบคุณครับ.
Re: อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Wed Apr 30, 2014 9:06 pm
by snasui
ลองดูตัวอย่าง Code ตามด้านล่างครับ
Code: Select all
Sub RecordBill()
Dim rs As Range, rt As Range
Dim i As Integer
Worksheets("Report").Range("H4") _
= Application.Max(Worksheets("Database") _
.Range("C:C")) + 1
With Worksheets("Template")
i = Application.CountIf( _
.Range("h2:h15"), "?*")
Set rs = .Range("A2:J2").Resize(i)
End With
Set rt = Worksheets("Database") _
.Range("A65536").End(xlUp).Offset(1, 0)
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
MsgBox "Save OK.", , "Design By Phathit"
Sheets("Report").Select
[b12:H38].ClearContents
End Sub
Re: อยากทราบวิธี Save ไฟล์ลงอีก Sheet หนึ่งครับ..
Posted: Fri May 02, 2014 10:07 am
by phathit
ขอบคุณครับอาจารย์
เดี๋ยวจะทดสอบก่อนครับ..