Mọi người giúp em cái file lương này với ạ! (4 người xem)

[ngockhanhbg]

Em đang thử lập lại biểu lương để tính lương tháng 09/2011. Nhờ mọi người tìm cách cho lương cơ bản được hưởng và phụ cấp bên mục data sang bảng lương giúp em với ạ!

 

[ngockhanhbg]

Bác nào qua chỉ em cách add file với ạ! Em không add được file lên

 

[tungnguyen_kt]

Bác nào qua chỉ em cách add file với ạ! Em không add được file lên

Tại khung soạn thảo bài viết bạn chọn "Đổi sang khung lớn" sau đó chọn tải file từ máy nhé.

Mình up file dùm bạn ngockhanhbg!!!!!!!

 

[ngockhanhbg]

Mình đã làm rồi mà không được bạn ạ!

 

[SA_DQ]

/(/ếu cơ quan bạn có ~ 400 lao động thì có thể xài hàm VLOOPKUP(), bằng ngược lại

thì cho chạy macro sau:

Option Explicit
Sub ChuyenDL()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range

 Sheet3.Select
 Set Sh = ThisWorkbook.Worksheets("data")
 Set Rng = Sh.Range(Sh.[c4], Sh.[c9999].End(xlUp))
 For Each Cls In Range([c7], [c9999].End(xlUp))
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Cls.Interior.ColorIndex = 36
   Else
      Cls.Offset(, 3).Value = sRng.Offset(, 3).Value
      Cls.Offset(, 12).Value = sRng.Offset(, 5).Value
   End If
 Next Cls
End Sub

 

[ngockhanhbg]

thì cho chạy macro sau:

Option Explicit
Sub ChuyenDL()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range

 Sheet3.Select
 Set Sh = ThisWorkbook.Worksheets("data")
 Set Rng = Sh.Range(Sh.[c4], Sh.[c9999].End(xlUp))
 For Each Cls In Range([c7], [c9999].End(xlUp))
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Cls.Interior.ColorIndex = 36
   Else
      Cls.Offset(, 3).Value = sRng.Offset(, 3).Value
      Cls.Offset(, 12).Value = sRng.Offset(, 5).Value
   End If
 Next Cls
End Sub

Nhìn phức tạp quá, trình cell của em còn non lắm. Chắc em lại dùng Vlookup vậy!
Cảm ơn bác.