ขอความช่วยเหลือบันทึกการทำงานของพนักงานรายวันเป็นฐานข้อมูล

[snasui]

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

Code: Select all

Sub PasteData()
    Dim rSource As Range, rSource1 As Range
    Dim rTarget As Range, lng As Long
    lng = Sheets("Form").Range("A" & Rows.Count).End(xlUp).Offset(-1, 0) - 1
    With Worksheets("Template")
        Set rSource = .Range("A2:T2").Resize(.Range("W1"))
    End With
    Set rTarget = Worksheets("Database").Range("A65536").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
'    Application.CutCopyMode = False
    Set rSource = Worksheets("Form").Range("J4,T4")
    Set rSource1 = Worksheets("Form").Range("B5:G" & 5 + lng & ",V5:W" & 5 + lng & ",Z5:AC" & 5 + lng)
    Set rTarget = Worksheets("TemplateIn").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0).Resize(lng + 1, 2)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    rSource1.Copy
    rTarget.Offset(0, 2).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets("Form").Range("F5:G100,J5:U100,AA5:AA100,AB5:AC100").ClearContents
End Sub

[suka]

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

[suka]

อาจารย์คะ ขอคำแนะนำเรื่องสูตร Sumif ต้องการเพิ่มเงื่อนไขวันที่เริ่มต้น เซลล์ D2 และวันที่สิ้นสุด เซลล์ D3 ที่ชีท PrintReport ต้องเขียนสูตรอย่างไรค่ะ
ที่เซลล์ BY 10 คีย์สูตร =SUMIF(TemplateIn!$E2:$E22,$D10,TemplateIn!$I2:$I22) แบบนี้ผลลัพธ์ไม่ได้ค่ะ
ขออาจารย์ช่วยด้วยค่ะ ขอบคุณต่ะ

[snasui]

ลองตามนี้ครับ

ที่ BY7 คีย์

=SUMPRODUCT(--(TemplateIn!$A$2:$A$8=$D$2),--(TemplateIn!$B$2:$B$8=$D$3),TemplateIn!$I$2:$I$8)

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

[suka]

อาจารย์คะ ขอรบกวนอีกรอบค่ะ

ที่เซลล์ BY7 คีย์สูตร

=SUMPRODUCT(--(TemplateIn!$A$2:$A$65536=$D$2),--(TemplateIn!$B$2:$B$65536=$D$3),--(TemplateIn!$E$2:$E$65536=$D7),TemplateIn!$I$2:$I$65536)

เรียกดู วันที่เริ่มต้น 17/10/2011วันที่สิ้นสุด 22/10/2011 ผลลัพธ์ 119
เรียกดู วันที่เริ่มต้น 24/10/2011วันที่สิ้นสุด 29/10/2011 ผลลัพธ์ 132 ได้ผลตามต้องการแล้วค่ะ

หากถ้าเรียกดู วันที่เริ่มต้น 17/10/2011วันที่สิ้นสุด 29/10/2011 ต้องการให้สูตรนำสองค่ามาบวกกัน 119 + 132 ผลลัพธ์เป็น 251 จะต้องเขียนสูตรอย่างไรคะ

ขอบคุณค่ะ

[snasui]

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

=SUMPRODUCT(--(TemplateIn!$A$2:$A$8>=$D$2),--(TemplateIn!$B$2:$B$8<=$D$3),--(TemplateIn!$E$2:$E$8=$D7),TemplateIn!$I$2:$I$8)

Enter

โอกาสหน้าลองปรับสูตรมาดูเองก่อนด้วย จะได้คุ้นเคยครับ

[suka]

ขอบพระคุณค่ะอาจารย์ ได้ตรงตามต้องการแล้วค่ะ

[suka]

อาจารย์คะ ขอรบกวนเรื่องปรับโค๊ดเมือกดปุ่ม UpdateEmp ที่ชีท Update ต้องการให้บันทึกข้อมูลมาต่อท้ายข้อมูลที่ชีท TemplateIn โดยการบันทึกไม่ได้ต่อเนื่องกันมีเว้นช่วงเซลล์ด้วยค่ะแบ่งเป็น 3 ช่วง

ช่วงที่ 1 เซลล์ A2 ของชีท Update ไปต่อท้ายข้อมูลที่เซลล์ A2 ของชีท TemplateIn และ เว้นเซลล์ B2
ช่วงที่ 2 เซลล์ B2:E2 ของชีท Update ไปต่อท้ายข้อมูลที่เซลล์ C2:F2 ของชีท TemplateIn และ เว้นเซลล์ G2:L2
ช่วงที่ 3 เซลล์ F2:I2 ของชีท Update ไปต่อท้ายข้อมูลที่เซลล์ M2:P2ของชีท TemplateIn

Code: Select all

Sub UpdateEmp()
    Dim rSource As Range
    Dim rTarget As Range
    Set rSource = Worksheets("Update").Range("A2")
    Set rSource = Worksheets("Update").Range("B2:E2")
    Set rSource = Worksheets("Update").Range("F2:I2")
    Set rTarget = Worksheets("TemplateIn").Range("A" & Rows.Count).End(xlUp) _
    .Offset(1, 0).Resize(lng + 1, 2)
    Set rTarget = Worksheets("TemplateIn").Range("C:F").End(xlUp).Offset(1, 0)
    Set rTarget = Worksheets("TemplateIn").Range("M:P").End(xlUp).Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets("Update").Range("A2,D2,F2:G2").ClearContents
End Sub

ได้แนบไฟล์ตัวอย่าง Code อยู่ Module1 ชื่อ UpdateEmp โค๊ดนี้ลองแล้ว นำข้อมูลมาบันทึกได้แค่คอลัมน์ M:P เท่านั้นค่ะ แถม Error อีกด้วยค่ะ
ขอบคุณค่ะ

[snasui]

ลองตามนี้ครับ

Code: Select all

Sub UpdateEmp()
    Dim rSource As Range
    Dim rTarget As Range
    Set rSource = Worksheets("Update").Range("A2")
    Set rTarget = Worksheets("TemplateIn").Range("A" & Rows.Count).End(xlUp) _
        .Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Set rSource = Worksheets("Update").Range("B2:E2")
    Set rTarget = Worksheets("TemplateIn").Range("C" & Rows.Count).End(xlUp) _
        .Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Set rSource = Worksheets("Update").Range("F2:I2")
    Set rTarget = Worksheets("TemplateIn").Range("M" & Rows.Count).End(xlUp) _
        .Offset(1, 0)
    rSource.Copy
    rTarget.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Sheets("Update").Range("A2,D2,F2:G2").ClearContents
End Su

[suka]

ขอบพระคุณมากค่ะอาจารย์ บันทึกได้ตามที่ต้องการแล้วค่ะ