Xin giúp đỡ về cách định vị cột, dòng theo điều kiện

[ngdhan]

Mình có bảng dữ liệu gồm cột là chỉ số các tháng trong năm, hàng là tên nhân viên.
Xin nhờ các bạn hướng dẫn giúp làm thế nào để tìm được cell (cột,hàng) mà khi đối chiếu với hàng thì đúng là hàng của nhân viên đó và cột thì đúng với số của tháng mình nhập vào - ý mình là nó sẽ trả về cột và hàng ứng với điều kiện tìm kiếm tên nhân viên và tháng.
Xin cảm ơn

 

[Hoàng Tuấn 868]

Mình có bảng dữ liệu

Bảng dữ liệu của bạn trông nó như thế nào nhỉ?

 

[ngdhan]

Bảng dữ liệu của bạn trông nó như thế nào nhỉ?

Hàng là danh sách các nhân viên, cột là 12 tháng trong năm (từ 1 đến 12), giả sử mình nhập vào tên nhân viên và tháng 4 với giá trị là 100 thì nó sẽ tìm và gán giá trị 100 cho ô ở hàng có nhân viên đó với cột tháng 4.
Cảm ơn bạn

 

[Hoàng Tuấn 868]

Hàng là danh sách các nhân viên, cột là 12 tháng trong năm (từ 1 đến 12), giả sử mình nhập vào tên nhân viên và tháng 4 với giá trị là 100 thì nó sẽ tìm và gán giá trị 100 cho ô ở hàng có nhân viên đó với cột tháng 4.
Cảm ơn bạn

Chưa hiểu ý bạn là nhập 3 tiêu chí trên vào chỗ nào nhỉ?

 

[ngdhan]

Chưa hiểu ý bạn là nhập 3 tiêu chí trên vào chỗ nào nhỉ?

Ba tiêu chí trên được nhập từ sheet đánh giá (gồm tên, tháng và tổng điểm)

 

[Hoàng Tuấn 868]

Ba tiêu chí trên được nhập từ sheet đánh giá (gồm tên, tháng và tổng điểm)

Bạn kiểm tra lại nhé.

 

[ngdhan]

Bạn kiểm tra lại nhé.

Cảm ơn bạn rất nhiều.

 

[HUONGHCKT]

Hàng là danh sách các nhân viên, cột là 12 tháng trong năm (từ 1 đến 12), giả sử mình nhập vào tên nhân viên và tháng 4 với giá trị là 100 thì nó sẽ tìm và gán giá trị 100 cho ô ở hàng có nhân viên đó với cột tháng 4.
Cảm ơn bạn

Góp vui đoạn code củ chuối, bạn chủ thớt tham khảo.

Sub CapNhat()
Dim TH As Worksheet, ShP As Worksheet
Dim R&, C&
Set TH = ThisWorkbook.Sheets("TONGHOP")
Set ShP = Sheets("PhieuDanhGia")
    R = Application.WorksheetFunction.Match(ShP.[D6], TH.Range("B1:B37"), 0)
    C = Application.WorksheetFunction.Match(ShP.[F2], TH.Range("B4:N4"), 0) + 1
    TH.Cells(R, C) = ShP.[E32]
End Sub