Tạo code thông báo

[hoangtuankhanh]

Chào các anh chị, lẽ ra em muốn hỏi các anh chị tại diễn đàn dành cho thành viên mới tham gia nhưng mà hình như nó bị khóa rồi thì phải.
Các bác xem hộ em file xuất xăng của em rồi giúp em tạo thông báo khi tiến hành lập chứng từ mới với. Cái file cũ của em cũng đủ dùng nhưng mà chưa hoàn chỉnh theo yêu cầu quản lý của sếp nên fảii cải tiến đi chút. Các bác hộ em chút nhé.
Chân thành cảm ơn GPE

 

[yeudoi]

Cái này bạn dùng Msgbox còn việc thông báo theo yêu cầu của bạn thì để đơn giản nhất bạn làm thế này
Vào sheet và nhập công thức số phiêu lĩnh xăng gần nhất = số phiếu lĩnh xăng lần này -1
Thời gian = thời gian lần này - thời gian của số phiếu lần trước
.............
các công thức bạn nhập vào một cells nào đó. Sau đó dùng

Msgbox " Số phiếu lĩnh xăng: " & range("A1").value & range("A2").value & .....,vb...,"Thông báo!"

 

[hoangtuankhanh]

Em cảm ơn bác trước. Cái quan trọng là khi lưu sẽ hiện ra thông báo như kiểu cái thông báo hỏi có muốn lưu ko của em ấy. Nhưng mà em muốn thông báo các thông số của người lái xe lấy xăng như: Ngày lấy phiếu lĩnh xăng trước đây gần nhất, lượng xăng lĩnh lần đó và tổng lượng xăng đã lĩnh từ đầu tháng. Em ko hiểu Msgbox lắm nên chưa dùng được, có gì bác làm hộ em luôn nhé. Thank bác

 

[huuthang_bd]

Chào các anh chị, lẽ ra em muốn hỏi các anh chị tại diễn đàn dành cho thành viên mới tham gia nhưng mà hình như nó bị khóa rồi thì phải.
Các bác xem hộ em file xuất xăng của em rồi giúp em tạo thông báo khi tiến hành lập chứng từ mới với. Cái file cũ của em cũng đủ dùng nhưng mà chưa hoàn chỉnh theo yêu cầu quản lý của sếp nên fảii cải tiến đi chút. Các bác hộ em chút nhé.
Chân thành cảm ơn GPE

Bạn xem file thử được chưa.
Lưu ý: Không nên sử dụng Merge Cell với những cell dùng để tính toán

 

[yeudoi]

Bạn xem file thử được chưa.
Lưu ý: Không nên sử dụng Merge Cell với những cell dùng để tính toán

Mình thấy với những người mới làm quen với VBA thì nên làm các công thức thông báo trên cell sau đó đưa vào code
VD: đếm số dòng để chèn dữ liệu vào dòng cuối có thể
Cell A1 = Counta("A2:A565536")
Làm như vậy vừa đơn giản với người mới bắt đầu vừa dễ hiểu.

 

[hoangtuankhanh]

Hay quá, cảm ơn các bác nhiều lắm. em sẽ phát triển sang các phiếu xuất kho khác. Mà cái msgbox này của các bác hnay em mới biết. Chắc sẽ ứng dụng được nhiều. Thank cả nhà nhe