Page 1 of 1
รบกวนถามเรื่อง VBA code ค่ะ
Posted: Sun May 13, 2012 2:06 pm
by chatlada
Code: Select all
Sub Macro1()
'
' Macro1 Macro
'
Sheets("Fr-04.1").Select
Range("B11:B30").Select
Selection.copy
Sheets("Fr-04.2").Select
Range("B12").Select
ActiveSheet.Paste
Sheets("Fr-04.1").Select
Range("C11:C30").Select
Selection.copy
Sheets("Fr-04.2").Select
Range("C12").Select
ActiveSheet.Paste
Sheets("Fr-04.1").Select
Range("D11:D30").Select
Selection.copy
Sheets("Fr-04.2").Select
Range("D12").Select
ActiveSheet.Paste
End Sub
เป็นโค้ดการกรอกข้อมูลในชีท Fr-04.1 แล้วให้ข้อมูลไปปรากฏที่ Fr-04.2 ด้วยค่ะ แต่ติดปัญหาตรงที่ถ้าแถวในชีท Fr-04.2 ไม่เท่ากันข้อมูลก็จะมาไม่ครบตามจำนวนแถวที่ระบุไว้ แล้วอีกอย่างต้องคอยมาแก้ range ด้วย อยากทราบว่ามีวิธีไหนที่สามารถให้ข้อมูลแสดงได้อัตโนมัติและครบถ้วนตามที่กรอกใน Fr-04.1 หรือป่าวคะ ขอบคุณค่ะ
Re: รบกวนถามเรื่อง VBA code ค่ะ
Posted: Sun May 13, 2012 2:17 pm
by chatlada
แนบเอกสารเพิ่มค่ะ
Re: รบกวนถามเรื่อง VBA code ค่ะ
Posted: Sun May 13, 2012 2:29 pm
by snasui
chatlada wrote:เป็นโค้ดการกรอกข้อมูลในชีท Fr-04.1 แล้วให้ข้อมูลไปปรากฏที่ Fr-04.2 ด้วยค่ะ แต่ติดปัญหาตรงที่ถ้าแถวในชีท Fr-04.2 ไม่เท่ากันข้อมูลก็จะมาไม่ครบตามจำนวนแถวที่ระบุไว้ แล้วอีกอย่างต้องคอยมาแก้ range ด้วย อยากทราบว่ามีวิธีไหนที่สามารถให้ข้อมูลแสดงได้อัตโนมัติและครบถ้วนตามที่กรอกใน Fr-04.1 หรือป่าวคะ ขอบคุณค่ะ
ควรจะแนบ Code มาในไฟล์ให้เรียบร้อยครับ และช่วยอธิบายว่าถ้าแถวในชีท Fr-04.2 ไม่เท่ากันนั้น ไม่เท่าในทางที่มากกว่า หรือ น้อยกว่า หรือเป็นไปได้ทั้งสองทาง และหากเป็นเช่นนั้น ต้องการผลลัพธ์เป็นอย่างไร ช่วยคีย์ตัวอย่างข้อมูลและแสดงให้เห็นถึงปัญหาด้วยครับ
Re: รบกวนถามเรื่อง VBA code ค่ะ
Posted: Sun May 13, 2012 2:46 pm
by chatlada
อาจารย์ค่ะ ได้ลองใส่ช่อมูลตัวอย่างลงไป ตามที่ปรากฏ พอกรอกข้อมูลลงใน Fr-04.1 แล้ว ถ้าจำนวนแถวใน Fr-04.2 น้อยกว่า ข้อมูลก็จะไม่ครบ และเวลาจะให้ข้อมูลแสดงก็ต้องกด Ctrl+c ก่อน พอจะมีวิธีที่จะให้ข้อมูลแสดงได้ทันที และจำนวนแถวที่รองรับใน Fr-04.2 เพิ่มได้เองเวลาข้อมูลในชีท Fr-04.1 เพิ่มขึ้นหรือป่าวคะ ขอบคุณมากค่ะ ^^
Re: รบกวนถามเรื่อง VBA code ค่ะ
Posted: Sun May 13, 2012 3:16 pm
by snasui
ในชีท Fr-04.2 ควรทำตารางเผื่อไว้ในทุก ๆ ช่วงเพื่อให้เพียงพอกับข้อมูลครับ หลังจากวางแล้วค่อยลบบรรทัดส่วนเกินทิ้ง การวางก็จะได้ว่างตรงจุดเดิมทุกครั้งครับ
Re: รบกวนถามเรื่อง VBA code ค่ะ
Posted: Sun May 13, 2012 3:27 pm
by chatlada
ขอบคุณค่ะอาจารย์ -/\-