@Hoang2013 Nếu làm đúng thì chỉ có đúng ngày 24/04 thôi còn các ngày khác khi lưu lại nó không ghi đè lên chỗ mình cần lưu mà nó ghi đè lên những ngày trước. Em đã thử chọn 1 ô tăng ca 200% rồi test thử kết quả là nó lưu ngày nhỏ đến lớn OK nếu mình sửa như thứ tự. Cơ mà đến ngày bất kỳ thì nó sẽ ghi đè lên hàng ngày phía trên. Giúp em với nhé.
Private Sub CmdSave_Click()
Dim Rng As Range, sRng As Range
Dim MyColor As Long
Dim MyAdd As String '*'
On Error GoTo LoiCT
1 'Luu Du Liêu Truóc Thay Doi: '
With Sheets("Record").Range("A65500").End(xlUp)
.Offset(1).Value = .Value + 1
.Offset(1, 1).Resize(, 16).Value = Arr0()
Erase Arr0()
End With
2 ' Luu Du Lieu Mói Thay Doi: '
Set Rng = Range([B2], [B2].End(xlDown))
Set sRng = Rng.Find(Me!tbCode.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
MsgBox "Nothing"
Else
MyAdd = sRng.Address '*'
Do '*'
If Cells(sRng.Row, "H").Value = TxtToDate(Me!tbDate.Text) Then '*'
With sRng.Interior
MyColor = .ColorIndex
If MyColor < 30 Or MyColor = 43 Then
.ColorIndex = 34
Else
.ColorIndex = MyColor + 1
End If
End With
Cells(sRng.Row, 4).Value = Me!tbG.Value
Cells(sRng.Row, 5).Value = Me!tbGr.Text
Cells(sRng.Row, 6).Value = Me!tbPos.Text
Cells(sRng.Row, 7).Value = Me!tbShift.Text
Cells(sRng.Row, 8).Value = Me!tbDate.Value
Cells(sRng.Row, 9).Value = Me!tbjob.Text
Cells(sRng.Row, 10).Value = Me!tb150.Value
Cells(sRng.Row, 11).Value = Me!tb175.Value
Cells(sRng.Row, 12).Value = Me!tb200.Value
Cells(sRng.Row, 13).Value = Me!tb215.Value
Cells(sRng.Row, 14).Value = Me!tb300.Value
Cells(sRng.Row, 15).Value = Me!tbTre.Value
Cells(sRng.Row, 16).Value = Me!tbSom.Value
Cells(sRng.Row, 17).Value = Me!cbFep.Value
End If
Set sRng = Rng.FindNext(sRng) '*'
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd '*'
End If
Me!tbCode.Value = "": Me!tbName.Value = ""
MsgBox "Luu Xong Ròi!", , "GPE.COM Xin Thông Báo!"
Err_: Exit Sub
LoiCT:
If Err = 13 Then
MsgBox "GPE.COM Tam Biet!": Resume Err_
Else
MsgBox Err, , Error()
End If
End Sub]/php]Em buồn quá vì chưa hiểu hết ý nghĩa các câu lệnh của bác làm cho mình. Nhất định em sẽ tìm hiểu thêm
'
MÃ TÊN '
Dn Dandori
Ht Heat up,Down
Ks Kanshi
Kr Kiriko
Mt Meeting
Ot Operator
Or Other
Rt Report
ST Safety training
SI Scrap+Ingot
Sp Shipping
Tn Tonyu
TO Traning other
TM Truoble machine
. . . . . .
Sau khi xem sơ qua File của bạn còn nhiều vấn đề phải làm như sau:
Cảm ơn góp ý của bạn rất nhiều. Thực ra code quà hay code nhân viên mình tạo tự động để bẫy lỗi nhập liệu thôi. Đây là file mình làm cho vk mình nên muốn đơn giản và dễ hiểu nhất. Còn đúng nguyên tắc thì khi nhập dữ liệu ta thường xuất phát từ việc nhập code mới chuẩn đc.Xin góp í với bạn, trước tiên là những cấu trúc dữ liệu trong các trang tính, như sau:
1./ Tên trang tính của bạn gán quá dài & không cần thiết.
Ví dụ thay ví "DS-KHACHHANG", ta nên là 'DSKHg'
1.1./ Trong tên trang tính ta không nên xài "-" mà nên là "_"
2./ Cũng tại trang này, bạn chỉ có mã khách hàng (KH) là 'KH0003'; Như vậy ngầm hiểu bạn có mỗi 1 loại KH là những cá nhân thôi. Bạn có khách hàng là những CQ hai XN (tập thể) hay không?
3./ Ở trang 'DSQua': Nếu là mình thì trường [Code Quà] nên có độ dài là như nhau; Những Code quà nào ngắn ta nên thêm kí tự "_" cho đủ (độ dài)
Trong cột [Code Quà] ta không nên có tiếng Việt có dấu, như 'Đ' hay 'Ă',. . . .
Chuyện này cũng nên áp dụng ở cột [Code NV] của trang 'DSNV', Ta không nên để trong [Code NV' có chứa những '09-VTHỒNG' hay '07_VTĐÀO',. . . .
Cột [Index Code] với mình là thừa, nên bỏ đi là vừa.
4./ Ở trang 'NhapData' ở cột [D] nên xài mã nhân viên thay vì tên nhân viên; Vì 1 đơn giản nhất là các trường tương tự fía sau nó như [Code KH] & [Code Quà]. ( Có nghĩa là đang dư trường [Tên NV], cột [D:d] này.)
5./ Khuyến cáo bạn xem xét quy luật tạo mã sau:
PHP:Mã NV Họ Tên ' NTN00 Nguyễn Thị Nguyệt NTN01 Ngô Thành Nam PPA00 Phạm Phương Anh NAT00 Ngô Thị Ánh Tuyết VBF00 Vũ Thị Bích Đào JJH00 Hảo VTH00 Vũ thị Hồng DCF00 Dương công Định HFT00 Hoang đạo thuý NVN00 Nguyễn văn Nam FTT00 Đào Thị Thắm TVM00 Trần Văn Minh PHA00 Phạm Thị Hồng Anh NJD00 Nguyễn Du
