Hộp thoại nhập dữ liệu

[truonggiang73]

Tôi đang muốn lập hộp thoại để nhập số liệu vào bảng tổng hợp từ các bảng thu mua chi tiết. Bảng thu mua này ghi theo thực tế phát sinh nên không theo thứ tự vì vậy nên rất khó khăn khi tổng hợp số liệu, hay sai ngày tháng và nhầm dòng.
Tôi nhờ mọi người giúp đỡ với. (Có File gửi kèm)
Xin cảm ơn rất nhiều....

 

[truonggiang73]

Trước khi nhập, các số đã nhập thử phải xóa hết đi nếu không sẽ lỗi vì tưởng là đã có comm (Bạn chặn lỗi này sau)
[/code]

Nếu nhập mới thì được còn nếu đã có số liệu cũ thì báo lỗi vì chưa có Comment. Bài toán anh đưa ra (Bạn chặn lỗi này sau) khó quá, phải khất anh trả lời sau thôi.
Cảm ơn anh nhiều về sơ đồ khối mới của CommandButton1.

 

[sealand]

To truonggiang73:
Về nguyên tắc thì đã có số liệu thì đã có Comment ghi chi tiết nhập và code tiến hành sửa bổ xung vào comment đã có. Nhưng do nhập thử trwớc đây (Chỉ trước khi có code này thôi) thì lại không có Comment. Vậy lệnh sửa 1 Object không tồn tại sẽ phát sinh lỗi. Tốt nhất bạn xóa hết dữ liệu và Comment trước khi dùng code này)
Còn 1 vấn đề nữa bạn lưu ý bổ xung là viết code kiểm tra nếu ô cộng =0 thì cũng xóa comment.Tức là trước dẫ nhập nhầm nay xóa chi tiết thì cũng xóa Comment.
Trong tất cả các Club của Châu Âu mình thích nhất cách chơi và hành xử của MU.

 

[truonggiang73]

Anh Sealand à, đánh giá chung là Form sử dụng rất tốt. Tiết kiệm được hơn nửa thời gian mà lại không lo sai, hứng thú trong công việc. về mặt này em đánh giá 9,9 điểm để cảm ơn.
Bàn về form trên để thêm hiểu : Qua anh giúp Form kiến thức VBA của em đi FROM zero TO hơn một tý. Cơ bản đã biết cấu trúc lệnh và áp dụng đơn giản.
Về COMMENT : Em đã thử kỹ nhiều lần bằng Macro nhưng không tìm được các lệnh về COMM như Edit, Clear, Delete, Copy, Cut mặc dù tại ứng dụng nền EX vẫn có những lệnh đó nhưng Mac không ghi được mà chỉ ghi GT tuyệt đối (nếu tìm được các lệnh này trong COMM thì sẽ làm được cái Comment em nhờ mà không lo lỗi phát sinh). Không rõ đây là hạn chế của VBA trong Excel hay em chưa tìm ra ?
Thân chào.

 

[sealand]

Bạn xem và tham khảo ví dụ về thêm xoá sửa Comment nhé . Lưu ý các câu lệnh trong Record Macro không phải lúc nào cung hay cả đâu:

Sub Testcomment()
Dim comm As Comment
For i = 1 To 10
Sheet1.Cells(i, 1).ClearComments
Sheet1.Cells(i, 1).AddComment
Sheet1.Cells(i, 1).Comment.Text Text:="Day la o : " & Cells(i, 1).Address & "---" & Now()
With Sheet1.Range("c2")
Set comm = .Comment
If comm Is Nothing Then .AddComment
.Comment.Text Text:=.Comment.Text & Cells(i, 1).Address
End With
Next
End Sub