Kính chào các anh chị
Em có một file quản lý chấm công - lương
File này em cóp nhặt từ các anh chị và chỉnh sửa thành yêu cầu công việc của em
Nhưng lúc trước em làm trên Excel 2001-2003
Giờ em mở ra thì báo lỗi và khi nhấn nút lệnh "Thêm NV" thì báo lỗi (Như trong hình đính kèm ạ)
Anh chị xem và chỉnh sửa khắc phục giúp ạ
Kính chào các anh chị
Em có một file quản lý chấm công - lương
File này em cóp nhặt từ các anh chị và chỉnh sửa thành yêu cầu công việc của em
Nhưng lúc trước em làm trên Excel 2001-2003
Giờ em mở ra thì báo lỗi và khi nhấn nút lệnh "Thêm NV" thì báo lỗi (Như trong hình đính kèm ạ)
Anh chị xem và chỉnh sửa khắc phục giúp ạView attachment 181313View attachment 181314
Hình thứ nhất không phải là lỗi. Đọc xem nó báo cái gì?
Hình thứ hai, click vào nút Debug xem nó tô vàng dòng nào?
Thứ ba, không nên gửi cả file chứa thông tin cá nhân của người khác như thế. Không sợ người ta kiện cho sao???
(Chưa kể lương là thông tin cần bảo mật, chẳng nhẽ ông sếp biết mà không cho nghỉ làm? Kỳ lạ!)
Hình thứ nhất không phải là lỗi. Đọc xem nó báo cái gì?
Hình thứ hai, click vào nút Debug xem nó tô vàng dòng nào?
Thứ ba, không nên gửi cả file chứa thông tin cá nhân của người khác như thế. Không sợ người ta kiện cho sao???
(Chưa kể lương là thông tin cần bảo mật, chẳng nhẽ ông sếp biết mà không cho nghỉ làm? Kỳ lạ!)
Hình thứ nhất không phải là lỗi. Đọc xem nó báo cái gì?
Hình thứ hai, click vào nút Debug xem nó tô vàng dòng nào?
Thứ ba, không nên gửi cả file chứa thông tin cá nhân của người khác như thế. Không sợ người ta kiện cho sao???
(Chưa kể lương là thông tin cần bảo mật, chẳng nhẽ ông sếp biết mà không cho nghỉ làm? Kỳ lạ!)
Dạ, cảm ơn bác, nhờ bác "Quocgiacan" và bác "Befaint" nghiên cứu sửa chữa và giải thích giúp em đoạn code sau ạ!
Sub updatephep()
Dim i, n, l As Integer
l = 0
n = Sheets("danhsach_nv").Cells(Rows.Count, 2).End(xlUp).Row
For i = 7 To n
If Sheets("chamcong").Cells((i - 1), "BA").Value > 0 Then
Sheets("Danhsach_NV").Cells(i, "AF").Value = Sheets("Danhsach_NV").Cells(i, "AF").Value
Sheets("Danhsach_NV").Cells(i, "AF").Value = Sheets("Chamcong").Cells(i - 1, "BA").Value 'ngayphep
Sheets("chamcong").Range("BA" & i - 1).Select
ActiveCell.FormulaR1C1 = _
"=IF(MONTH(R1C31)=1,(Danhsach_NV!R[1]C[-17])-RC[-12],IF(MONTH(R1C31)<4,Danhsach_NV!R[1]C[-17]-RC[-12],IF(Danhsach_NV!R[1]C[-17]>12,12-RC[-12],Danhsach_NV!R[1]C[-17]-RC[-12])))"
Else
l = l + 1
End If
'Sheets("Chamcong").Cells(i + 2, "AY").Value = Sheets("Danhsach_NV").Cells(i, "AJ").Value
Next
MsgBox ((n - 6) - l) & " records duoc cap nhat !", vbOKOnly, "Thong bao"
End Sub
Chế độ phép năm của công ty em là sau khi ký hợp đồng, thì mỗi nhân viên mỗi tháng sẽ có 1 ngày phép năm theo luật ạ!
Em muốn số ngày phép năm sẽ được tính từ "ngày ký HĐLĐ", mỗi tháng sẽ được 1 ngày phép năm, và trong sheet "Chamcong" tại cột "BA" sẽ cập nhật được ai đã nghỉ phép năm, còn lại ngày phép năm nào không và còn bao nhiêu ngày.
Nhưng em click nút lệnh "Update Phép" thì chưa chạy ạ!
Mong các bác giúp đỡ
Xin chân thành cảm ơn
Dạ, cảm ơn bác, nhờ bác "Quocgiacan" và bác "Befaint" nghiên cứu sửa chữa và giải thích giúp em đoạn code sau ạ!
Sub updatephep()
Dim i, n, l As Integer
l = 0
n = Sheets("danhsach_nv").Cells(Rows.Count, 2).End(xlUp).Row
For i = 7 To n
If Sheets("chamcong").Cells((i - 1), "BA").Value > 0 Then
Sheets("Danhsach_NV").Cells(i, "AF").Value = Sheets("Danhsach_NV").Cells(i, "AF").Value
Sheets("Danhsach_NV").Cells(i, "AF").Value = Sheets("Chamcong").Cells(i - 1, "BA").Value 'ngayphep
Sheets("chamcong").Range("BA" & i - 1).Select
ActiveCell.FormulaR1C1 = _
"=IF(MONTH(R1C31)=1,(Danhsach_NV!R[1]C[-17])-RC[-12],IF(MONTH(R1C31)<4,Danhsach_NV!R[1]C[-17]-RC[-12],IF(Danhsach_NV!R[1]C[-17]>12,12-RC[-12],Danhsach_NV!R[1]C[-17]-RC[-12])))"
Else
l = l + 1
End If
'Sheets("Chamcong").Cells(i + 2, "AY").Value = Sheets("Danhsach_NV").Cells(i, "AJ").Value
Next
MsgBox ((n - 6) - l) & " records duoc cap nhat !", vbOKOnly, "Thong bao"
End Sub
Chế độ phép năm của công ty em là sau khi ký hợp đồng, thì mỗi nhân viên mỗi tháng sẽ có 1 ngày phép năm theo luật ạ!
Em muốn số ngày phép năm sẽ được tính từ "ngày ký HĐLĐ", mỗi tháng sẽ được 1 ngày phép năm, và trong sheet "Chamcong" tại cột "BA" sẽ cập nhật được ai đã nghỉ phép năm, còn lại ngày phép năm nào không và còn bao nhiêu ngày.
Nhưng em click nút lệnh "Update Phép" thì chưa chạy ạ!
Mong các bác giúp đỡ
Xin chân thành cảm ơn
Có lẽ bạn chờ anh @befaint ra tay nghĩa hiệp nha.
Tôi thì 'quanh quẩn' công thức - hàm mà thôi, thấy 'tâm huyết' của bạn cột tính thuế chưa được đẹp lắm, 'ngứa tay ngứa chân' mới gửi cho bạn bài trên, chứ ban đầu thấy code là tôi 'né' rồi, chẳng qua tạt ngang vào thăm mấy người bạn hiền, coi họ mần ăn ra sao, có 'khẻo' không! là chính.
Có lẽ bạn chờ anh @befaint ra tay nghĩa hiệp nha.
Tôi thì 'quanh quẩn' công thức - hàm mà thôi, thấy 'tâm huyết' của bạn cột tính thuế chưa được đẹp lắm, 'ngứa tay ngứa chân' mới gửi cho bạn bài trên, chứ ban đầu thấy code là tôi 'né' rồi, chẳng qua tạt ngang vào thăm mấy người bạn hiền, coi họ mần ăn ra sao, có 'khẻo' không! là chính.
