Tổng Hợp

Học VBA Excel – Cách tạo nhắc nhở cảnh báo sắp hết hạn trong Excel với VBA




Hướng dẫn cách vận dụng VBA Excel để thiết lập cách nhắc nhở, cảnh báo với thời gian cho trước trong Excel

Đây là một trong những ứng dụng mà VBA Excel có thể làm được, và dĩ nhiên là vô số các ứng dụng khác.
Việc tạo các bảng nhắc nhở, thiết lập đối với Excel đôi khi khá khó khăn nếu chúng ta chỉ sử dụng hàm, và đây là lúc thay đổi cách nghĩ của chúng ta.

Chúc các bạn học tập thành công!!!

————————————————————
Người hướng dẫn
VÕ MAI SANG
Tel: 0909756601
Email: sangvo2211@gmail.com
Facebook:
Youtube:

-~-~~-~~~-~~-~-
Please watch: “Hàm Excel cơ bản và nâng cao – Xóa khoảng trắng với hàm TRIM và kết hợp TRIM MATCH”

-~-~~-~~~-~~-~-

Nguồn: https://sspv-bishop.org/

Xem thêm bài viết khác: https://sspv-bishop.org/tong-hop/

Tổng Hợp
Nghiệm thu vật liệu đầu vào: Các căn cứ pháp lý | Nghiệm thu vật liệu trước khi đưa vào sử dụng
Tổng Hợp
Học Excel Cơ Bản 64 | Hướng dẫn tìm kiếm và lọc dữ liệu siêu tốc
Tổng Hợp
HIỆP SĨ MẶT NẠ OOO : QUÁI VẬT SƯ TỬ – SIÊU NHÂN ĐỒNG XU | KR Battride War II
  • quá hay luôn bạn ơi!, cảm ơn bài học của bạn!


  • Hay và bổ ích, mình muốn nó tự động chứ đã viết ra mà mỗi lần cứ phải click vào button như thế thấy nó không có đặc biệt lắm, mình muốn nó tự động để đỡ mất chút thời gian. (Công việc luôn tay luôn 🙁 )


  • a dạy code VBA trèn ảnh trong hồ sơ đi ạ ???


  • Mình đã làm theo hướng dẫn tuy nhiên dòng lastrow = Sheets("Canh bao").Cells(Rows.Count, 5) cứ bị bôi màu vàng. Hơn nữa khi ấn chữ canh bao nó không hiện ra gì cả.
    bảng excel của mình có cả thời gian bắt đầu, thời gian kết thúc, ngày hoàn thành.


  • Cám ơn bạn. Bạn có
    Thể chia sẻ code dc ko


  • Cho hỏi chút mình cũng tạo đúng như vậy sao báo lỗi ở dòng Cells(i, 3).Value = Cells(i, 2) – a
    Sub taocanhbao()
    Dim i As Long, Lastrow As Long, a As Integer
    Lastrow = Sheets("Canh Bao").Cells(Rows.Count, 1).End(xlUp).Row
    a = 3
    For i = 2 To Lastrow
    Cells(i, 3).Value = Cells(i, 2) – a
    If Cells(i, 3) – Date <= a Then
    Cells(i, 3).Interior.ColorIndex = 3
    Cells(i, 3).Font.ColorIndex = 2
    Cells(i, 4).Value = "gui c?nh báo"
    Else
    Cells(i, 3).Interior.ColorIndex = vbBlack
    Cells(i, 3).Font.ColorIndex = 2
    Cells(i, 4).Value = ""
    End If
    Next

    End Sub


  • Cảm ơn, video hay


  • Hay quá anh, hi vọng dc theo dõi hết các seri về vba của anh


  • Add cho em hỏi, sau khi lưu file đã thiết lập VBA, khi em nhấp vào "cảnh báo" trong ô màu xanh thì nó hiện lên hộp TB "Cannot run the macro "KE HOACH.xlsm'!taocanhbao'. The macro may not be avaiable in this workbook or all macros may be disabled" Vậy là sao add?
    Mong add hỗ trợ cách xử lý


  • Rất hay, bạn có thể giúp mình không ạ


  • cho hoi minh muon lien lac hoi rieng v bạn có fb ko ? mình nhấp vào ko đc


  • Bạn ơi cho mình hỏi??
    Có cần lưu ý về thời gian cài trong máy vs thời gian trong bảng excel để cho nó tương thích hay không ? Nếu có thì chỉnh như thế nào cho chuẩn ??
    Cảm ơn bạn


  • Mình muốn thông báo công việc sắp đến hạn và hết hạn bạn có thể giúp mình đc ko ạ, nếu làm được báo trên màn hình thì càng tốt. Rất mông được bạn giúp đỡ


  • CMAR ƠN BẠN RẤT HAY, CHO MÌNH XIN COS ĐỂ LÀM VỚI


  • Hay lắm, mong ad tiếp tục ra các video tiếp theo


  • Anh ơi a có thể hỗ trợ e phần cảnh báo này được không ạ


  • có cách nào vừa mở file excel là excel hiện message box cảnh báo luôn không anh? giống như cài lịch trong outlook ấy?


  • Quá hay tks


  • anh ơi, anh có thể hướng dẫn em báo hiệu qua mail ko a