Thật tuyệt ! Nhưng nếu như có 1 bảng nhật ký để ghi lại Tổ, mã hàng, ngày nhập, sản lượng, và khi mình muốn sửa ngày nào thì nhập ngày, bấm nút sửa, dữ liệu ngày muốn sữa hiện ra, sau khi sửa bấm nút thực hiện nó sẽ cập nhật lại số lượng mới.(Nhớ đọc kỹ phần hướng dẩn sửa dữ liệu!)
Em tìm nhưng không thấy phần hướng dẫn.Tuy nhiên em đã test rồi,nếu em thay đổi và nhập dữ liệu của ngày hôm sau,tất nhiên thực hiện tốt.Phần sửa khi em để con trỏ trong vùng cột sản lượng và sửa 1 dữ liệu nhưng nhấn nút thực hiện nó mặc kệ nhưng nhấn sửa thì nó xóa dần dữ liệu,em thấy khó hiểu.(Nhớ đọc kỹ phần hướng dẩn sửa dữ liệu!)
Cái này mình cũng đã test rồi, nếu trong vùng số lượng nhập có số nào bạn chọn số lượng đó rồi nhấn nút sửa thì cột lũy kế tự động trừ ra và số sản lượng bị xóa đi. Cái này chỉ chỉnh được 1 ngày vừa nhập thôi.
Phần hướng dẫn ngay bên phải của trang tính đó mà;
Không có tính cả cột đâu; hắn chỉ tính vùng có số liệu mà thôi đó nha!
Muốn vậy bạn hãy cho biết cần nhập vô những cột nào nữa; Quan trọng là khác gì với cột sản lượng đã khảo sát?
Sub ThucHien()
If [a3].Value <> [d2].Value Then
Dim Rng As Range, Clls As Range
[a3].Value = [d2].Value
4 Set Rng = Range([c5], [c65500].End(xlUp)) '<=|'
5 If Not Intersect(Rng, [C4]) Is Nothing Then Exit Sub
For Each Clls In Rng
With Clls
.Offset(, 1).Value = .Offset(, 1).Value + .Value
End With
Next
Else
MsgBox "Xin Dung Nhan Nua!", , "GPE.COM"
End If
End Sub
trong Sub Suachua thì khi nhấn sửa nó không xóa cột sản lượng đi nữa và tại Cell active giá trị bên cột lũy kế được trừ lùi bằng giá trị của Cell active,nhưng khi nhấn thực hiện thì nó cộng thêm 1 lần nữa các Cell không sửa.Em muốn phương án như sau:Khi muốn sửa Cell nào ta đưa trỏ về cell đó và nhấn nút sửa,khi đó chỉ giá trị của cell đó bị xóa và hoặc lũy kế của Cell muốn sửa bị trừ lùi,hoặc cả cột lũy kế đều bị trừ lùi coi như chưa thực hiện tính toán,nếu chỉ giá trị của cell muốn sửa thay đổi lũy kế thì khi nhấn nút Thực hiện cũng chỉ tính toán ở dòng đó thôi hoặc cả cột lũy kế đều bị trừ lùi thì khi nhấn thực hiện sẽ tính toán lại bình thường.
Sub SuaChua2()
Dim Rng As Range, Clls As Range
2 Set Rng = Range("D5:D" & [D65500].End(xlUp).Row)
If Intersect(ActiveCell.Offset(, 1), Rng) Is Nothing Then
4 MsgBox "Hay Chon Trong Vung 'SAN LUONG'", , "De Sua So Lieu"
Else
6 For Each Clls In Rng
With Clls
8 .Value = .Value - .Offset(, -1).Value
End With
10 Next Clls
ActiveCell.Value = ""
12 End If
End SubSub ThHien3Cols()
If [a3].Value <> [d2].Value Then
Dim Rng As Range, Clls As Range
Dim jJ As Byte
[a3].Value = [d2].Value
For jJ = 1 To 3
Set Rng = Choose(jJ, [C5], [F5], [H5])
Set Rng = Range(Rng, Cells(65500, Rng.Column).End(xlUp))
If Not Intersect(Rng, Choose(jJ, [C4], [F4], [H4])) Is Nothing Then Exit Sub
For Each Clls In Rng
With Clls
.Offset(, 1).Value = .Offset(, 1).Value + .Value
End With
Next
Next jJ
Else
MsgBox "Thoi Nhan Nua Ma!", , "GPE.COM"
End If
End Sub
Dạo này bận quá nên không vào diễn đàn để trao đổi được,để các bác đưa ý kiến mà không có phản hồi,cho em xin lỗi nhé.Cảnh báo là cần thiết, một khi ta đã ghi lại các ngày đã nhập;
Nhưng ở đây không thấy yêu cầu ghi lại ngày tháng đã nhập của tác giả topic.
Và mình đoan chắc bạn thừa sức gốp sức chuyện ấy;
Vậy bạn đã đề ra & nên tiếp tục luôn, để giúp cho bạn ấy thấu đáo hơn.
Chúc vui!
