không tải được file Quản lý nhân sự Mẫu

Chào bạn bạn kích vào tải tài liệu

chọn phần mềm quản lý nhân sự - mẫu nhé.

CẢm ơn thầy!!!qua khóa học e tự viết được code rồi nhưng e đang vướng 1 chỗ trong  code của em mà e chưa nghĩ ra ý tưởng!!!thầy tư vấn jup e đc k thầy

Chào bạn bạn có thể mô tả rõ hơn được không ạ?

dạ để e gửi file và video ạ

https://www.fshare.vn/file/manager e gửi link thầy xem jup e ạ!

Chào bạn bạn có thể đẩy lên google drive được không ạ?

dạ vâng

thầy thử lại link này https://www.fshare.vn/file/W6S8GASVRY...

https://drive.google.com/file/d/1IuNy...

Chào bạn theo video và cách thiết kế của bạn thì mình đang không biết hội viên đó đi chơi cầu từ ngày nào? có thời gian mới biết theo số người trong sheets đó viết ra theo điều kiện được chứ.

dạ thầy Cái này là thế này e là chủ sân!!!! cuối tháng e sẽ thu tiền hội viên để đóng tiền sân !!!!ai muốn đăng ký vô sân thì e sẽ điền vào form đky đó!!!nếu là sinh viên thì  tính 300k 1  tháng,còn là hội viên đã đi làm tiền tháng sẽ = tổng tiền sheet bảng giá chung - tổng tiền sinh viên sau đó / cho số người trong sheet hội viên tháng!!!!giả sử ở đây là  các bạn đã tham gia rùi!!!mình có sẵn danh sách chỉ cần tính tiền mỗi bạn phải trả!!ý tưởng của e là khi nhập tên ở sheet tính tiền từng thành viên thì sẽ duyệt trong sheet hoivien sinh vien va hoi vien da di lam xem nếu có trong hoi vien sinh vien thì = 300k cho mỗi bạn!!còn trong hội viên đi làm thì áp công thức như trên

Mình hướng dẫn bạn nhé, đầu tiên bạn load ra toàn bộ danh sách trước, sau đó chạy một vòng lặp so sánh tên ở bảng tên với đối tượng nếu là sinh viên thì bạn cho bằng 300k luôn đúng không còn trường hợp còn lại .

dạ đúng rùi thầy

Chào bạn bạn sử dụng vòng lặp 1 lấy ra là sinh viên code mẫu dạng như sau bạn nhé:

Sub tinhtoan()

    Dim dcsv As Long

    dcsv = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Row

    For i = 4 To dcsv

        Sheet6.Range("A" & i - 1) = Sheet3.Range("A" & i)

        Sheet6.Range("B" & i - 1) = 300000

    Next i

    dc = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    dchv = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

    For j = dc To dcsv

        ''cong thuc tinh hoi vien

    Next j

End Sub

Giả su744 công thức của em thế này thì viết code sao ạ?   ''cong thuc tinh hoi vien

'('B?ng Giá Chung'!$B$11-('H?i Viên Sinh Viên'!$D$1*300000))/'H?i Viên Ðã Ði Làm'!$D$1)

vì e k biết biểu diễn sang VBA  sao nên e mượn D1 để đếm xem có bao nhiêu sinh viên và D1 có bao nhiêu hội viên đã đi làm!!!k biết code chỗ này sao cho hợp lý thầy

=IFERROR(IF(MATCH(A3,'Hội Viên Sinh Viên'!$A$4:$A$6,0)>0,"300000",0),('Bảng Giá Chung'!$B$11-('Hội Viên Sinh Viên'!$D$1*300000))/'Hội Viên Đã Đi Làm'!$D$1)

E dùng công thức này thì tính ra được từng người nhưng thấy cách thầy hay hơn!!!thầy chỉ e với!!!e cảm ơn

Chào bạn bạn thay họi viên đi làm phần d1 vào một vòng lặp nhé, thây d1 là i và công thức tương tự nhé, bạn viết vào vòng lặp đi vướng đoạn nào hỏi chỗ đó.

Sub TinhTien()

    Dim dcsv, dchv As Long

    dcsv = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Row

    For i = 4 To dcsv

        Sheet6.Range("A" & i - 1) = Sheet3.Range("A" & i)

        Sheet6.Range("B" & i - 1) = 300000

    Next i

    dc = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    dchv = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

    For j = dc To dchv

    Sheet6.Range("A" & j + 1) = Sheet1.Range("A" & i)

    Sheet6.Range("B" & j + 1) = "('B?ng Giá Chung'!$B$11-('H?i Viên Sinh Viên'!$D$1*300000))/'H?i Viên Ðã Ði Làm'!$D$1)"

    Next j

End Sub

đoạn d1 này bạn thay bằng thứ tự A&j+1

trước tiên đoạn i là nó duyệt sheet hội vien sinh viên nó ra toàn bộ tên những ai có tên sheet đó ok rùi!!!

tìm dòng cuối sheet tính tiền rùi ô A  nó sẽ duyệt bên sheet hội viên đi làm nhưng code trên e gửi n1o sai sai gì chưa duyệt đc thầy ơi!!!!còn tạm thời e sẽ điền công thức vào ô B để nó ra kết quả!!!

Chào bạn 'H?i Viên Sinh Viên'!$D$1*300000) không thấy D1 là 1 giá trị? H?i Viên Ðã Ði Làm'!$D$1 là gì nó không phải là con số

dạ cái đó e dùng coutnA để đếm coi Sheet đó có bao nhiêu người đó thầy VD sinh viên có 5 người thì nó bằng 5 !mục đích để tính tiền của hội viên đi làm = tổng tiền bên sheet bảng giá chung - (D1 lúc này là 5 *300.000)/D1 sheet hội viên đi làm (là số người  torng hôi viên đi làm) thì ra số tiền từng hội viên đi làm đó thầy

Bạn thử xem đúng không nhé:

Sub TinhTien()

    Dim dcsv, dchv As Long

    dcsv = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Row

    For i = 4 To dcsv

        Sheet6.Range("A" & i - 1) = Sheet3.Range("A" & i)

        Sheet6.Range("B" & i - 1) = 300000

    Next i

    dc = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    dchv = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

    For j = dc To dchv

        Sheet6.Range("A" & j + 1) = Sheet1.Range("A" & j)

        Sheet6.Range("B" & j + 1) = Sheet2.Range("B11").Value - ((dcsv - 3) * 300000) / (dchv - 3)

    Next j

End Sub

k ra thầy ơi!!!

dc = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    dchv = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

    For j = dc To dchv

        Sheet6.Range("A" & j + 1) = Sheet1.Range("A" & j)

Kết qur củ mình ra thế này:

biến dc ở đây làm phần để tính ra thứ tự tiếp theo ta ghi dữ liệu, dchv  là biến dùng để lưu lấy dữ liệu của sheets hội đi làm, duyệt vòng lặp như phần đầu

sao của e chạy k ra!!!chạy ra sinh viên thôi còn sheet người đi làm thì k có

https://drive.google.com/file/d/1XgaE...

Nà Thầy ơi!!!kết quả đúng là như vậy nè

Chào bạn bạn xem kết quả nhé.

Thầy ơi có gì sai sai sao máy em vẫn k ra kết quả những ai trong sheet đã đi làm

Sub TinhTien()

    Dim dcsv, dchv As Long, dc1, i, j, dc As Long

    dc1 = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    If (dc1 > 3) Then

    Sheet6.Range("A3:B" & dc1).ClearContents

    End If

    dcsv = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Row

    For i = 4 To dcsv

        Sheet6.Range("A" & i - 1) = Sheet3.Range("A" & i)

        Sheet6.Range("B" & i - 1) = 300000

    Next i

    dc = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    dchv = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

    For j = dc To dchv

        Sheet6.Range("A" & j + 1) = Sheet1.Range("A" & j)

        Sheet6.Range("B" & j + 1) = Sheet2.Range("B11").Value - ((dcsv - 3) * 300000) / (dchv - 3)

    Next j

End Sub

đợi mình xíu mình gửi code lên bạn xem nhé.

Option Explicit

Sub TinhTien()

    Dim dcsv, dchv As Long, dc1 As Long, i As Long, j As Long, dc As Long

    dc1 = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    If (dc1 > 3) Then

            Sheet6.Range("A3:B" & dc1).ClearContents

    End If

    dcsv = Sheet3.Range("A" & Sheet3.Rows.Count).End(xlUp).Row

    For i = 4 To dcsv

        Sheet6.Range("A" & i - 1) = Sheet3.Range("A" & i)

        Sheet6.Range("B" & i - 1) = 300000

    Next i

    dc = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row

    dchv = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row

    For j = dc To dchv

        Sheet6.Range("A" & j + 1) = Sheet1.Range("A" & j)

        Sheet6.Range("B" & j + 1) = (Sheet2.Range("B11").Value - ((dcsv - 3) * 300000)) / (dchv - 3)

    Next j

End Sub

ra rồi thầy ơi!!!do e định dạng sai!!!dạ e cảm ơn thầy nhìu lắm!!!

tự nghĩ ra đề tự viết khó hơn khi học thầy ơi

thầy ơi cột họ và tên e datavalidation tên trong sheet sinh viên và sheet đã đi làm thì sao ạ?

datavalidation  mình chưa hiểu lắm bạn bạn có thể recon macro nhé.

dạ e làm đc rùi thầy ơi!!!tks thầy nhìu!!

Chúc bạn học tốt cùng gitiho

file quản lý nhân sự này sử dụng sao ạ?có hướng dẫn k  thầy

Chào bạn,

File này bên mình ko hướng dẫn mà chỉ public để học viên có mẫu để tìm hiểu thôi. Đây ko phải file dùng ngay vào thực tế mà chỉ dùng để học tập, tham khảo cách viết code để ứng dụng kiến thức trong khóa học thôi bạn nhé.

File quản lý nhân sự, chỗ quốc tịch định dạng ngày tháng năm, em chỉnh lại dữ liệu text mãi không được ạ. Mong được hỗ trợ ạ.

Chào bạn, bạn xem trong control panel xem định dạng như thế nào?

Định dạng vẫn bình thường ạ. Nhưng chỗ Quốc tịch lại bị định dạng là ngày tháng năm, nhưng mình có chỉnh lại text nhưng không được. ai có thể giúp mình với ạ.

Chào bạn bạn xem phần data valication đã đúng vị trí chưa nếu chưa đúng bạn có thể chọn lại