Thông báo khi nhập phiếu chi quỹ =0 (1 người xem)

[nhungdoahoaphudung]

Chào cả nhà, em có 1 danh sách:sheet1 tổng hợp thu, sheet2 tổng hợp chi. nếu nhập vào ô tiếp theo danh sách chi nếu quỹ tồn (= chi- thu)=0, thì hiện thông báo: quỹ hết tiền, ko cho nhập số tiền nữa (như Validation), em đã thử với validation nhưng cái cột đầu tiên thì nhập vô tư (vd: thu 1.000 chi 2000 như vậy quỹ sẽ hiện âm 1.000 nhưng cột đầu vẫn nhập được số 1.000, chỉ từ cột sau mới không cho nhập).
Gửi kèm file mong cả nhà giúp code cho e với. Cảm ơn

 

[nhungdoahoaphudung]

cả nhà ơi giúp em với

 

[vu_tuan_manh_linh]

Bạn chọn vùng từ G4 đến G1503. Sau đó vào Data --> Validation--> Thẻ Setting chọn Allow là Custom, Formula đặt công thức =$J$7>=0. Thẻ Error Aler chọn Style là Stop, Còn Title và Error Message thì đặt là gì tùy bạn!!! (có thể đặt Title là Cảnh báo!!!, Message là Số dư quỹ đã hết, không thể chi tiếp!!)

 

[Ngoai Thanh]

cả nhà ơi giúp em với

Thêm một phương án nữa cho bạn. Mình dùng sự kiện Worksheet_Activate() nên khi J7 <=0 thì bạn chuyển sang sheet khác rồi quay lại . Cột G của sheet"Chi" sẽ được khóa lại không nhập liệu được nữa . Muốn mở khoá chỉ cần nhập thêm số liệu tại sheet "thu" hoặc mở pass : 1234 . Nếu muốn đổi pass bạn ấn All+F8 vào code đổi theo ý mình .
Mình xoá file do hết quota