รบกวนถามเรื่อง VBA code ค่ะ

[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 หรือป่าวคะ ขอบคุณค่ะ

[chatlada]

แนบเอกสารเพิ่มค่ะ

[snasui]

เป็นโค้ดการกรอกข้อมูลในชีท Fr-04.1 แล้วให้ข้อมูลไปปรากฏที่ Fr-04.2 ด้วยค่ะ แต่ติดปัญหาตรงที่ถ้าแถวในชีท Fr-04.2 ไม่เท่ากันข้อมูลก็จะมาไม่ครบตามจำนวนแถวที่ระบุไว้ แล้วอีกอย่างต้องคอยมาแก้ range ด้วย อยากทราบว่ามีวิธีไหนที่สามารถให้ข้อมูลแสดงได้อัตโนมัติและครบถ้วนตามที่กรอกใน Fr-04.1 หรือป่าวคะ ขอบคุณค่ะ

ควรจะแนบ Code มาในไฟล์ให้เรียบร้อยครับ และช่วยอธิบายว่าถ้าแถวในชีท Fr-04.2 ไม่เท่ากันนั้น ไม่เท่าในทางที่มากกว่า หรือ น้อยกว่า หรือเป็นไปได้ทั้งสองทาง และหากเป็นเช่นนั้น ต้องการผลลัพธ์เป็นอย่างไร ช่วยคีย์ตัวอย่างข้อมูลและแสดงให้เห็นถึงปัญหาด้วยครับ

[chatlada]

อาจารย์ค่ะ ได้ลองใส่ช่อมูลตัวอย่างลงไป ตามที่ปรากฏ พอกรอกข้อมูลลงใน Fr-04.1 แล้ว ถ้าจำนวนแถวใน Fr-04.2 น้อยกว่า ข้อมูลก็จะไม่ครบ และเวลาจะให้ข้อมูลแสดงก็ต้องกด Ctrl+c ก่อน พอจะมีวิธีที่จะให้ข้อมูลแสดงได้ทันที และจำนวนแถวที่รองรับใน Fr-04.2 เพิ่มได้เองเวลาข้อมูลในชีท Fr-04.1 เพิ่มขึ้นหรือป่าวคะ ขอบคุณมากค่ะ ^^

[snasui]

ในชีท Fr-04.2 ควรทำตารางเผื่อไว้ในทุก ๆ ช่วงเพื่อให้เพียงพอกับข้อมูลครับ หลังจากวางแล้วค่อยลบบรรทัดส่วนเกินทิ้ง การวางก็จะได้ว่างตรงจุดเดิมทุกครั้งครับ

[chatlada]

ขอบคุณค่ะอาจารย์ -/\-