Giúp về code bảng chấm công (3 người xem)

[PHONGGANHHAO]

Em không biết nhiều về lập trình.
Kính mong anh chị em Giúp đỡ

 

[hoanhnnc]

Các anh chị ơi,

Anh chị có thể viết thêm code sau " MsgBox "Nguòi này Da Có Nhap!", , "GPE Xin Chào!" "

Nếu người này co rổi muốn cập nhật dữ liệu không? nếu chọn yes thì cập nhật chọn no thì thoát.


Nhờ NAh chị giúp đỡ em xin tham khảo đoạn code của bác duy thương.

Cảm ơn mọi người

 

[hoanhnnc]

Anh chị có thể giúp thêm 1 ý tưởng viết mã cập nhật dữ liệu cho đoạn code

Nếu người này có rồi muốn chép chồng dữ liệu thì chọn yes hoặc no

 

[SA_DQ]

Các anh chị ơi,

Anh chị có thể viết thêm code sau "MsgBox "Nguòi này Da Có Nhap!", , "GPE Xin Chào!" "

Nếu người này co rổi muốn cập nhật dữ liệu không? nếu chọn yes thì cập nhật chọn no thì thoát.

Nhờ NAh chị giúp đỡ em xin tham khảo đoạn code của bác duy thương.

Cảm ơn mọi người

Bạn đã đăng iêu cầu ở đây: http://www.giaiphapexcel.com/forum/showthread.php?70511-Cập-nhật-bang-chấm-công&p=433415#post433415 Nhưng không có bài đáp từ; Mình nghỉ lý do là mọi người không thấy file đính kèm của bạn để giúp 1 cách cụ thể;

Ngay bài này của bạn, bạn đã không đưa đường dẫn code của bác Duy Thương hay bài có code này.
Như vậy sẽ khó có người giúp bạn được.

Bạn xem lại cái nha.

 

[hoanhnnc]

Private Sub CommandButton1_Click()
Dim Sh As Worksheet, rng As Range, sRng As Range
Dim Rws As Long, Col As Byte
Dim answer
Application.EnableEvents = False
Application.ScreenUpdating = False
Set Sh = ThisWorkbook.Worksheets("HC")
Set rng = Sh.[B3].Resize(SoNV)
Set sRng = rng.Find([A1].Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
With Sh.Cells(SoNV, "B").End(xlUp).Offset(1)
1 'Ghi Fàn Chung:'
.Resize(, 2).Value = [A1].Resize(, 2).Value
.Offset(, 1).Value = [B1].Value
.Offset(, 2).Value = [F1].Value
.Offset(, 127).Value = [F37].Value '"Tre Sáng"'
.Offset(, 128).Value = [I1].Value
.Offset(, 129).Value = [O38].Value '"Só Ngày Nghi"'
.Offset(, 130).Value = ([I1].Value / 26 / 8) * [O38].Value
.Offset(, 131).Value = [P38].Value
.Offset(, 132).Value = ([I1].Value / 26 / 8) * [P38].Value
.Offset(, 133).Value = .Offset(, 130).Value .Offset(, 132).Value
Rws = .Row
End With
2 'Ghi Giò Cong Các Ngày:'
For Each sRng In Range([A4], [A4].End(xlDown))
Col = 1 4 * Day(sRng.Value)
Sh.Cells(Rws, Col).Resize(, 4).Value = sRng.Offset(, 1).Resize(, 4).Value
Next sRng
Randomize
[A1].Interior.ColorIndex = 34 10 * Rnd() / 1
Else
answer = MsgBox("Nguoi Nay da nhap roi!", vbYesNo, "GPE!")
If answer = vbYes Then
sRng.Resize(, 2).Value = [A1].Resize(, 2).Value
sRng.Offset(, 1).Value = [B1].Value
sRng.Offset(, 2).Value = [F1].Value
sRng.Offset(, 127).Value = [F37].Value '"Tre Sáng"'
sRng.Offset(, 128).Value = [I1].Value
sRng.Offset(, 129).Value = [O38].Value '"Só Ngày Nghi"'
sRng.Offset(, 130).Value = ([I1].Value / 26 / 8) * [O38].Value
sRng.Offset(, 131).Value = [P38].Value
sRng.Offset(, 132).Value = ([I1].Value / 26 / 8) * [P38].Value
sRng.Offset(, 133).Value = sRng.Offset(, 130).Value sRng.Offset(, 132).Value

'Ghi Giò Cong Các Ngày:'
With sRng.End(xlUp).Offset(1)
Rws = .Row
End With
For Each sRng In Range([A4], [A4].End(xlDown))
Col = 1 4 * Day(sRng.Value)
Sh.Cells(Rws, Col).Resize(, 4).Value = sRng.Offset(, 1).Resize(, 4).Value
Next sRng
Randomize
Else
Exit Sub
End If
End If
Call TD
Application.ScreenUpdating = True
Application.EnableEvents = True
End sub

Em làm như thế này sao mà nó tìm và điền không đúng các anh chị giúp em với

 

[hoanhnnc]

em gởi link download file vì em không Up file lên đây được:

https://www.box.com/s/z4i16xq301pxra3u5vum