Xin giúp làm hiện các thông báo khi mở file và mở từng SHEET

Liên hệ QC

vanthinh3101

Thành viên tích cực
Tham gia
24/1/15
Bài viết
1,112
Được thích
1,435
Giới tính
Nam
Nghề nghiệp
Finance
Kính gửi mọi người,

Hiện tại, em đang làm 1 bảng theo dõi việc định giá lại Tài sản. Ngoài ra với ô tô còn phải theo dõi hết hạn bảo hiểm, hết hạn đăng kiểm.

Nhờ có Conditional Formatting, em đã đặt được lệnh đổi màu cho các trường hợp đến hạn trong 30 ngày tiếp theo so với hiện tại.
Em đã biết lệnh khi mở ra hiện thông báo như sau:
Sub Auto_Open_()
Dim rng As Range
Dim i As Integer
For Each rng In Sheet4.Range("L2:L103")
If rng < Date + 30 Then
rng.Font.Bold = True
i = i + 1
Else
rng.Font.Bold = False
End If
Next
MsgBox "Co : " & i & " tai san can dinh gia lai trong 30 ngay toi"
End Sub

Em muốn nhờ mọi người giúp em làm lệnh để khi mở từng sheet đều hiện ra thông báo, riêng đối với Sheet ô tô, hiện ra thông báo là: "Co ... tai san can dinh gia lai; ... tai san het han bao hiem; ... tai san het han dang kiem trong 30 ngay toi"

Em gửi file đính kèm.
Mọi người giúp em nhé! Em xin cám ơn
 

File đính kèm

  • Theo doi TSBD.xls
    125 KB · Đọc: 4
Web KT
Back
Top Bottom