Ah... cái này dể hiểu mà Salam.. Khi nhập liệu, hoặc là ta nhập mới... nhưng cũng có khi xem lại dử liệu củ, cảm thấy sai thì sửa, bấm Update thì nó sẽ lấy cái mới vừa sửa đè vào cái củ (đương nhiên)salam đã viết:
anhtuan1066 đã viết:
anhtuan1066 đã viết:
Nếu viết bằng VBA thì tôi chưa nghĩ ra dc cách viết thế nào, còn dùng công thức thì... quá dể... Dùng Match để tìm xem thằng MÃ nó có hay ko? Có nghĩa là CỦ, ko có nghĩa là MỚI.. thế thôi... Còn Update uh? Cũng quá dể luôn...tigertiger đã viết:
Em đã làm gần được rồi đấy.truonghg đã viết:
Nó nằm trong Name ấy... Bạn vào menu Insert\Name\Define sẽ thấy...truonghg đã viết:
anhtuan1066 đã viết:
tim = S01.Range("F17").Value
If WorksheetFunction.CountIf(S03.Range("C:C"), tim) <> 1 Then
Range("B65535").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Else
Columns("C:C").Select
Selection.Find(What:=tim).Activate
ActiveCell.Offset(0, -1).Select
End IfVì thời gian ngắn nên em không chau chuốt được, vậy bác tham khảo nhé :anhtuan1066 đã viết:
Sub NhapLieu()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim HC As Integer, i As Integer
Dim MaKH As String
Dim OB As Range
Dim Comm As Boolean
MaKH = S01.Range("B17").Value
If MaKH = "" Then Exit Sub
HC = S03.Range("B65000").End(xlUp).Row + 1
If WorksheetFunction.CountIf(S03.Range("C3:C" & HC - 1), MaKH) = 0 Then
GoTo ghi
Else
If MsgBox(" - Ma Khach Hang nay da ton tai!!" & Chr(13) & Chr(13) & " - Ban muon ghi de ??", vbYesNo, "MrOkebab") = vbYes Then
i = WorksheetFunction.Match(MaKH, S03.Range("C3:C" & HC), 0)
HC = i + 2
S03.Range("B" & HC & ":M" & HC).ClearComments
Comm = True
GoTo ghi
Else
Exit Sub
End If
End If
ghi:
i = 15
For Each OB In S03.Range("B" & HC & ":M" & HC)
i = i + 1
If OB.Value <> "" And Comm = True Then
OB.AddComment
OB.Comment.Visible = False
OB.Comment.Text Text:="Ngay : " & Format(Date, "dd/mm/yyyy") & Chr(10) & OB.Value
End If
OB.Value = S01.Range("B" & i).Value
Next
'S01.Range("B17:B27").ClearContents
Range("B17").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Hoàng Gia Trường!
