Snasui Excel Forum

Posted: **Wed May 16, 2012 2:33 pm**

ขอรบกวนช่วยเรื่องปรับ Code VBA ด้านล่างนี้ค่ะ
เมื่อกดปุ่ม Record ที่ชีท FormAddEmp แล้ว Code Copy ข้อมูลมาวางที่ชีทที่ DataEmp พร้อมกับ Copy สูตรที่คอลัมน์ F:I และ คอลัมน์ L:O ลงมาด้วยค่ะ จะต้องปรับอย่างไรค่ะ

Code: Select all

Sub PasteDataEmp()
    Application.ScreenUpdating = False
    Sheets("TempEmp").Range("A2:E2").Copy
    Sheets("DataEmp").Range("A65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    Sheets("TempEmp").Range("F2:G2").Copy
        Sheets("DataEmp").Range("J65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

ขอบคุณค่ะ

Posted: **Wed May 16, 2012 4:05 pm**

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub PasteDataEmp()
    Application.ScreenUpdating = False
    Sheets("TempEmp").Range("A2:E2").Copy
    Sheets("DataEmp").Range("A65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    Sheets("DataEmp").Range("F65536").End(xlUp).Resize(2, 4).FillDown
    Sheets("TempEmp").Range("F2:G2").Copy
    Sheets("DataEmp").Range("J65536").End(xlUp).Offset(1, 0) _
        .PasteSpecial xlPasteValues
    Sheets("DataEmp").Range("L65536").End(xlUp).Resize(2, 4).FillDown
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Posted: **Wed May 16, 2012 5:03 pm**

ขอบคุณมากๆค่ะอาจารย์ ได้ตรงตามที่ต้องการเลยค่ะ

Posted: **Sat May 19, 2012 9:39 am**

ขอรบกวนเรื่องปรับสูตรที่ชีท DataEmp
คอลัมน์ G:I ให้สูตร Today รวมเข้าอยู่ในคอลัมน์ G:I แทนที่คอลัมน์ F ค่ะ

ขอบคุณค่ะ

Posted: **Sat May 19, 2012 9:52 am**

ในโอกาสต่อไป ควรปรับมาเองดูก่อนจะได้ฝึกความคุ้นเคย สูตรลักษณะนี้ไม่ได้มีความยุ่งยากซับซ้อนมากนักครับ

ตัวอย่าง จากสูตรเดิมที่ G2

=DATEDIF(E2,F2,"Y")

ปรับเป็น

=DATEDIF(E2,Today(),"Y")

Enter > Copy ลงด้านล่าง

Posted: **Sat May 19, 2012 10:06 am**

ขอบคุณค่ะอาจารย์ ในโอกาสต่อๆไปจะพยายามให้มากขึ้นค่ะ

Snasui Excel Forum

ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy สูตร

ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy สูตร

Re: ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy ส

Re: ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy ส

Re: ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy ส

Re: ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy ส

Re: ขอความช่วยเหลือเรื่องปรับ Code VBA วางข้อมูลพร้อม Copy ส