TẠO HỘP THƯ THÔNG BÁO THỜI HẠN

[hungvu0106]

Xin chào mọi người,
Hiện tại em đang làm file quản lý thiết bị máy móc, Nhờ các anh chị giải đáp giúp em có cách nào khi mình mở file lên thì hộp thông báo sẽ hiện lên sắp đến thời hạn bảo dưỡng máy nào được không ạ.
VD: máy 1 thời hạn bảo dưỡng là ngày 20/1/2024 thì khoảng từ 2,3 ngày trước khi đến thời hạn khi mình mở file lên nó sẽ hiện thông báo cho mình biết.
Nhờ các anh chị hỗ trợ giải đáp giùm em.

 

[Dongka_81]

Bạn xem thử đúng ý chưa nha

Bài đã được tự động gộp: 15/1/24

Bạn xem thử đúng ý chưa nha

 

[hungvu0106]

Bạn xem thử đúng ý chưa nha

Bài đã được tự động gộp: 15/1/24

Bạn xem thử đúng ý chưa nha

cảm ơn bạn. Nhưng mình muốn nó hiện dạng hộp thư báo luôn ấy bạn. để khi mở file lên nó tự hiện nhắc nhở cho mình luôn.Như file của bạn làm thì mình phải dò kéo. Tại vì file này của mình nó sẽ rất dài kéo lên xuống v thì nó dễ bị nhầm ấy bạn

 

[HUONGHCKT]

Xin chào mọi người,
Hiện tại em đang làm file quản lý thiết bị máy móc, Nhờ các anh chị giải đáp giúp em có cách nào khi mình mở file lên thì hộp thông báo sẽ hiện lên sắp đến thời hạn bảo dưỡng máy nào được không ạ.
VD: máy 1 thời hạn bảo dưỡng là ngày 20/1/2024 thì khoảng từ 2,3 ngày trước khi đến thời hạn khi mình mở file lên nó sẽ hiện thông báo cho mình biết.
Nhờ các anh chị hỗ trợ giải đáp giùm em.

Xem file và tham khảo code.
Hy vọng đúng ý:

 

[cantl]

báo

cho 10 máy, cứ rất gần và rất xa. Code dùng hàm của excel nên dù không thích vẫn phải dùng, vì tớ không biết code sao cho ra.

Option Explicit
Private Sub Workbook_Open()
zzz
End Sub

Option Explicit
Option Base 1
Sub zzz()
Dim ArrVung, ArrNgay
Dim i&, k&, l&, Thongbao$
ArrVung = [B4:F13].Value
ArrNgay = [F4:F13].Value2
ReDim ArrMayVaNgay(1 To 10, 1 To 2)
For i = 1 To 10 Step 1
    k = Application.Small(Application.Index(ArrNgay, 0, 1), i)
    l = Application.Match(k, Application.Index(ArrNgay, 0, 1), 0)
ArrMayVaNgay(i, 1) = ArrVung(l, 1)
ArrMayVaNgay(i, 2) = ArrNgay(l, 1)
Thongbao = Thongbao & vbCrLf & "May " & ArrMayVaNgay(i, 1) & "              " & CDate(ArrMayVaNgay(i, 2)) & vbCrLf
Next
MsgBox Thongbao
End Sub

 

[hungvu0106]

Bạn xem thử đúng ý chưa nha

Bài đã được tự động gộp: 15/1/24

Bạn xem thử đúng ý chưa nha

Xem file và tham khảo code.
Hy vọng đúng ý:

rất đúng ý của mình, mình cảm ơn bạn rât nhiều nhé. bạn cho mình hỏi ở cột ghi chú ví dụ mà quá thời gian bảo dưỡng sẽ tự động hiện lên chữ quá hạn được k ạ

 

[VetMini]

Thệt là GPE quá nhiệt tình cho nên các người hỏi bài lười sử dụng các giải pháp căn bản. Họ biết là vòi code rất dễ, và tự động thì khỏe thân.

Vấn đề này đáng lẽ phải dùng Conditional Formatting.

 

[hungvu0106]

Bạn xem thử đúng ý chưa nha

Bài đã được tự động gộp: 15/1/24

Bạn xem thử đúng ý chưa nha

Xem file và tham khảo code.
Hy vọng đúng ý:

rất đúng ý của mình, mình cảm ơn bạn rât nhiều nhé.

Thệt là GPE quá nhiệt tình cho nên các người hỏi bài lười sử dụng các giải pháp căn bản. Họ biết là vòi code rất dễ, và tự động thì khỏe thân.

Vấn đề này đáng lẽ phải dùng Conditional Formatting.

CẢM ƠN CHIA SẺ TỪ BẠN. MÌNH ĐÃ HƯỚNG ĐẾN SỬ DỤNG Conditional Formatting rồi, Nhưng file mình làm sẽ đưa cho những người sửa máy trong sản xuất theo dõi. Đa phần công ty mình họ sử dụng máy tính tệ, Họ không thể tự cập nhập hoặc xem được nên mình mới phải dùng đến cách thông báo cho họ bạn ạ.

 

[cantl]

Conditional Formatting

Nếu 1000 máy thì cũng khó bác ạ.

 

[Hoàng Tuấn 868]

Thệt là GPE quá nhiệt tình cho nên các người hỏi bài lười sử dụng các giải pháp căn bản. Họ biết là vòi code rất dễ, và tự động thì khỏe thân.

Vấn đề này đáng lẽ phải dùng Conditional Formatting.

Nếu dùng Conditional Formating thì lại không được "bấm một phát" anh ơi.

 

[cantl]

bấm một phát

Bài này phải 2 phát, doubo click.

 

[VetMini]

Nếu dùng Conditional Formating thì lại không được "bấm một phát" anh ơi.

Bộ ghiền bấm sao?
Dùng Conditional Formatting thì khỏi bấm phát nào !!!

 

[Hoàng Tuấn 868]

Bộ ghiền bấm sao?
Dùng Conditional Formatting thì khỏi bấm phát nào !!!

Thừa về độ tiện lợi, nhưng e rằng lại thiếu về độ "Hoành tráng" anh ạ.

 

[cantl]

Conditional Formatting

Bác cho em cái công thức với, ban đầu em định làm thế nhưng không biết công thức đặt kiểu gì.
Vì ô đầu nhỏ nhất nên bị trắng, thế nên em bỏ qua cách này.

 

[VetMini]

Bác cho em cái công thức với, ban đầu em định làm thế nhưng không biết công thức đặt kiểu gì.
Vì ô đầu nhỏ nhất nên bị trắng, thế nên em bỏ qua cách này.
...

Chọn màu khác nhau, ví dụ:
>= 20 ngày : đỏ
>= 10 ngày : cam hoặc hồng
>= 5 ngày: xanh
>= 1 ngày: xanh nhạt