vanthinh3101
Thành viên tích cực
- Tham gia
- 24/1/15
- Bài viết
- 1,119
- Được thích
- 1,456
- 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 Aut
pen_()
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
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 Aut
pen_()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
