ขอสูตร Vlookup และ VBA การกรอกข้อมูลและบันทึกผลระหว่างSheet

[Anusornz]

สวัสดีครับคือผมเป็นสมาชิกใหม่ครับ(อาจจะไม่เชี่ยวชาญ Excel VBA) อยากให้ท่านอาจารย์ช่วยใส่สูตร Vlookup และ VBA การกรอกข้อมูลและบันทึกผลระหว่างSheet ครับ ผมมีไฟล์แนบมาให้ดูครับ

ผมกำหนดให้ Sheet Data เป็นข้อมูลพนักงาน และ Sheet PM(Mid) เป็นแบบฟอร์มที่หัวหน้าจะต้องประเมินพนักงาน(โดยมีการใส่สูตรคะแนนไว้แล้วครับ)

Sheet PM(Mid) นั้นจะ Vlookup ข้อมูลส่วนตัวพนักงานใน Sheet Data มาใส่ แล้วหัวหน้าก็จะประเมินตามฟอร์ม

สิ่งที่อยากได้คือ คะแนนใน Sheet PM(Mid) AA - AJ เมื่อกดตรงบันทึกแล้ว ข้อมูลคะแนนจะบันทึกไปที่ Sheet Data U - AD โดยจะอ้างอิงและบันทึกตามรหัสพนักงานของแต่ละคน
เมื่อเราเปลี่ยนที่จะประเมินพนักงานใหม่ ก็ใส่รหัสพนักงานใน Sheet PM(Mid) เพื่อประเมินพนักงานให้ครบครับ

ถ้าอาจารย์มีข้อเสนออะไรเพิ่มเติมก็จะดีมากเลยครับ ขอขอบคุณอาจารย์ล่วงหน้าครับ

[bank9597]

หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ

[Anusornz]

หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ

ผมลองใส่สูตรดูตามไฟล์แนบครับ ผมทำเป็นเฉพาะ Run Macro แต่ VBA นั้นยังจำไม่ค่อยได้มักจะใส่ผิดเสมอเพราะเพิ่งศึกษาต้องขออภัยด้วยครับ ลองดูไฟล์แนบให้ด้วยนะครับว่าพอจะช่วยได้หรือไม่ตามที่บอกไปตอนตั้งกระทู้ รบกวนด้วยนะครับ ขอบคุณครับ

[bank9597]

หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ

ผมลองใส่สูตรดูตามไฟล์แนบครับ ผมทำเป็นเฉพาะ Run Macro แต่ VBA นั้นยังจำไม่ค่อยได้มักจะใส่ผิดเสมอเพราะเพิ่งศึกษาต้องขออภัยด้วยครับ ลองดูไฟล์แนบให้ด้วยนะครับว่าพอจะช่วยได้หรือไม่ตามที่บอกไปตอนตั้งกระทู้ รบกวนด้วยนะครับ ขอบคุณครับ

ลองใช้โค๊ดนี้ดูครับ

Code: Select all

Sub record()

    Dim wsFrm As Worksheet
    Dim wsData As Worksheet
    Dim rTarget As Integer
    
    
    Set wsFrm = Worksheets("PM(Mid)")
    Set wsData = Worksheets("Data")
    
    With Application
        rTarget = .Match(wsFrm.Range("T4"), wsData.Range("B2:B2000"), 0) + 1
    End With
        
        wsFrm.Range("AA4:AJ4").Copy
        wsData.Range("U" & rTarget).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Set wsFrm = Nothing
        Set wsData = Nothing

End Sub

[Anusornz]

หากใช้ vba ต้องเขียนมาเองก่อนตามกฏครับ

หรือลองศึกษาจากไฟล์ตัวอย่างครับ

ผมลองใส่สูตรดูตามไฟล์แนบครับ ผมทำเป็นเฉพาะ Run Macro แต่ VBA นั้นยังจำไม่ค่อยได้มักจะใส่ผิดเสมอเพราะเพิ่งศึกษาต้องขออภัยด้วยครับ ลองดูไฟล์แนบให้ด้วยนะครับว่าพอจะช่วยได้หรือไม่ตามที่บอกไปตอนตั้งกระทู้ รบกวนด้วยนะครับ ขอบคุณครับ

ลองใช้โค๊ดนี้ดูครับ

Code: Select all

Sub record()

    Dim wsFrm As Worksheet
    Dim wsData As Worksheet
    Dim rTarget As Integer
    
    
    Set wsFrm = Worksheets("PM(Mid)")
    Set wsData = Worksheets("Data")
    
    With Application
        rTarget = .Match(wsFrm.Range("T4"), wsData.Range("B2:B2000"), 0) + 1
    End With
        
        wsFrm.Range("AA4:AJ4").Copy
        wsData.Range("U" & rTarget).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Set wsFrm = Nothing
        Set wsData = Nothing

End Sub

ขอบคุณอาจารย์สำหรับการช่วยแก้ปัญหามากเลยนะครับ