การบันทึกข้อมูลครั้งละหลายแถวค่ะ
Posted: Tue Oct 14, 2014 7:35 pm
อยากทราบวิธีการบันทึกข้อมูลครั้งละ หลายแถวค่ะ โดยแต่ละครั้งจำนวนแถวอาจจะไม่เท่ากันค่ะ
ลองเขียน excel function โดยให้ J12 แทนจำนวนแถวของข้อมูลที่ต้องการ
แล้วเขียน vb โดย
ให้ copy ข้อมูลจากช่วงที่ต้องการคือตั้งแต่ C13 (Cell นี้เป็น cell แรกที่จะต้องมีข้อมูลเสมอ)ไปจนถึง cell F12 +จำนวนแถวที่มีข้อมูล
ไปวางยัง sheet 2
แต่ไม่สามารถทำได้ค่ะ
ไม่ทราบว่า ควรแก้ หรือใช้แบบไหนจึงจะเหมาะกับงานคะ
ลองเขียน excel function โดยให้ J12 แทนจำนวนแถวของข้อมูลที่ต้องการ
แล้วเขียน vb โดย
ให้ copy ข้อมูลจากช่วงที่ต้องการคือตั้งแต่ C13 (Cell นี้เป็น cell แรกที่จะต้องมีข้อมูลเสมอ)ไปจนถึง cell F12 +จำนวนแถวที่มีข้อมูล
ไปวางยัง sheet 2
แต่ไม่สามารถทำได้ค่ะ
ไม่ทราบว่า ควรแก้ หรือใช้แบบไหนจึงจะเหมาะกับงานคะ
Code: Select all
Dim i As Integer
Range("J12").Value = i
Dim Lastrow&
With Sheets("sheet2")
Lastrow = .Range("a" & .Rows.Count).End(xlUp).Row + 1
.Range("a" & Lastrow) = Lastrow - 1
.Range("b" & Lastrow, .Range("e" & i)).Value = _
Sheets("Sheet1").Range("C13", .Range("F12" & i)).Value
End With
ทำได้แล้วค่ะ