Giúp code trả lại tên em trong Application.Caption

Chia sẻ bởi:hands

★★★★★

‹ Giúp Code: lấy số liệu từ Sheet... Bỏ dòng trống trong List Validation trong... ›

Quảng cáo

Em chào Thầy cô & anh chị!
Em có đọan code đặt trong ThisWorkbook
Private Sub Workbook_Open()
Application.Caption = " H" & ChrW(244) & "m nay: " & Format(Now(), "dddd, dd-mm-yyyy") & " *  *"
End Sub
Mỗi khi mở File này thì trên thanh Window (?!) có dòng chữ "Hôm nay:……….."
Khi Close File thì dòng chữ này vẫn tồn tại
Giúp em Remove dòng chữ này khi đã Close File!
Em cảm ơn!

Thử vầy coi sao nhé. Về lý thuyết thì khi mình cho nó Empty thì tự động sẽ là Microsoft Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub

www.giaiphapexcel.com/diendan/threads/gi%C3%BAp-code-tr%E1%BA%A3-l%E1%BA%A1i-t%C3%AAn-em-trong-application-caption.74401/

Nếu cách của anh quanhai mà ko đặt yêu cầu thì bạn có thể tạo lưu code bạn thành 1 file add-in mới, khi càn sử dụng thì kích nó lên, khi đóng của sổ được kích dòng lệnh của bạn cũng kết khúc, đồng thời khi mở 1 cửa sổ mới nó cũng không có ảnh hưởng.

Em viết thế này không biết có OKIE không ạ? 😀
Private Sub Workbook_Open()
Application.Caption = " Hom nay em yeu anh nhieu hon hom qua :))"
End Sub
=============================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub

:)) :)) :)) :)) :))
(Xì pam cuối tuần :D)