Em cảm ơn
@Ba Tê đã giúp đỡ em.
Thực sự em mới học VBA nên em không dịch nổi cấu trúc lệnh của anh chạy như thế nào nên em không áp dụng được.
Những gì em làm được đến giờ phút này :
+Phát hiện ra sai lầm của em cột mã LOT không phải là dạng số nguyên nên khi Sort từ lớn đến bé không được.
+Em đã làm được cách lấy User name nhập và gán giờ hiện tại của hệ thống sau khi nhập.
+Đã làm được hộp thoại yêu cầu người nhập quyết định sửa hay không sửa dữ liệu sai.
*Cố dịch ra những code của anh viết nhưng không hiểu được. Đoạn quan trọng nhât anh làm như thế nào nữa?
Vậy mong anh giúp em giải thích qua chút để em có thể hoàn thành file của mình.
Quote :
Option Explicit
Public Sub Luu_Data()
Dim sArr(), dArr(1 To 1, 1 To 28), DK, tArr() As Boolean
'Khai báo biến dạng Boolean Logic True or False
'+sArr() là vùng từ A4:E18 của sheet "Input" Trả về True or False >>> Không hiểu () có tác dụng gì?
'+dArr(1 to 1, 1 to 28) là cột từ cột 1 đến cột số 28 cua sheet "Data" >>> Không hiểu () có tác dụng gì?
'+Dk tra ve "True or False nếu số Lot đã tồn tại
Dim I As Long, J As Long, Col As Long, R As Long, Lot As Long, Rws As Long, STT As Long
'Khai báo biến dạng Long
'+I lặp từ dòng 5 đến dòng cuối R của Sheet "Data"' dùng để đánh số thứ tự của cột STT sheet "Dâta"
'+J lặp từ 1 đến 5 chưa hiểu mục đích làm gì
'+Col là số thứ tự của cột tăng dần 1 khi
'+R la dong cuoi sau dong so 5 cua Sheet "Data"
'+Lot là mã số Lot (Tại sao khi đổi số Lot ở Sheet Data sang dạng Number thì chương trình báo lỗi không chạy.
'+Rws là gì không hiêu tại sao có I rồi gán Rws = I
'+ STT là số thứ tự của cột STT
With Sheets("Input")
If .Range("A4") <> Empty Then 'Nếu ô A4 khác rỗng thì sẽ thực thi
sArr = .Range("A4:E18").Value 'sArr la Vung tu A4:E18 thanh gia tri
Lot = .Range("A4").Value 'Lot lalà mã Lot tại ô A4 sheet "Input"
R = Sheets("Data").Range("A100000").End(xlUp).Row 'R là dòng cuối sheet Data dò ngược từ dòng 100000 cột A dò lên.
If R > 5 Then 'Nếu R lớn hơn 5 sheet Data sẽ dẫn tới kết quả
STT = Sheets("Data").Range("A" & R).Value 'STT la gia tri Cua o tai cot A hang cuoi R
tArr = Sheets("Data").Range("A1:B" & R).Value 'tArr là vùng từ ô A1đến ô B dòng cuối R
For I = 5 To R 'Quet vong lam tu 5 den dong cuoi R
If Val(tArr(I, 2)) = Lot Then ' Từ đây xuống đáy không hiểu gì???
Rws = I
STT = tArr(I, 1)
End If
Next I
Else
STT = 1
End If
Col = Col + 1
dArr(1, Col) = STT
'===============================================
For J = 1 To 5
Col = Col + 1
dArr(1, Col) = sArr(1, J)
Next J
'----------------------------------------------
For I = 4 To 15
Col = Col + 1
dArr(1, Col) = sArr(I, 3)
Next I
'----------------------------------------------
For I = 4 To 13
Col = Col + 1
dArr(1, Col) = sArr(I, 5)
Next I
'===============================================
If Rws Then
DK = MsgBox("Lot da ton tai, Luu lai cac thay doi?", vbOKCancel, "GPE")
'Hiện thông báo Lot đã tồn tại
If DK = True Then
Sheets("Data").Range("A" & Rws).Resize(, 28) = dArr
End If
Else
STT = STT + 1
dArr(1, 1) = STT
With Sheets("Data")
.Range("A" & R + 1).Resize(, 28) = dArr ' dArr là vùng sẽ ghi dữ liệu ô A dòng cuối R đến cột số 28 trong sheet Data
.Range("A5", .Range("A100000").End(xlUp)).Resize(, 27). _
Sort Key1:=.Range("B5"), Order1:=xlAscending
'Sort dữ liệu của vùng từ A5 đến doang cuối R tới cột số 27, _(dùng để nối câu lệnh) sắp xếp tăng dần của cột B số Lot
End With
MsgBox "Da Luu Vao Data", , "GPE"
'hộp thoại thông báo đã lưu DAta
End If
End If
.Range("A4:E4,C7:C18").ClearContents
' xóa vùng dữ liệu nhập
End With
End Sub
