Hiện tên sheet đang active trên thanh status bar (1 người xem)

[Achye]

Em thấy một số phần mềm dự toán, mỗi khi ta click vào 1 sheet thì nó sẽ hiện tên sheet đó ( hay 1 dòng text giới thiệu theo ý mình ) dưới thanh status bar.
Mấy anh có thể cho em xin code đó được không ạ ?
Em xin cảm ơn trước.

 

[ndu96081631]

Em thấy một số phần mềm dự toán, mỗi khi ta click vào 1 sheet thì nó sẽ hiện tên sheet đó ( hay 1 dòng text giới thiệu theo ý mình ) dưới thanh status bar.
Mấy anh có thể cho em xin code đó được không ạ ?
Em xin cảm ơn trước.

Thí nghiệm thế này nhé:
1> Chèn 1 module, cho code dưới đây vào:

Sub StatusBarReset()
  Application.StatusBar = vbNullString
End Sub

Sub StatusBarShow()
  Application.StatusBar = ChrW(272) & "ây là sheet " & """" & ActiveSheet.Name & """"
End Sub

2> Cho code dưới đây vào Thisworkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  StatusBarShow
  Application.OnTime Now + TimeSerial(0, 0, 3), "StatusBarReset"
End Sub

Giờ chuyển sang sheet khác rồi nhìn xuống Statusbar xem thử
Ẹc... Ẹc...

 

[Achye]

Dạ em cảm ơn thầy ndu. Em làm được rồi.

 

[haonlh]

Đọc anh NDU thấy hay hay. Nhất là dùng OnTime để thực hiện 1 sub.

Nếu còn có các cách khác áp dụng OnTime thì comment nha.
Cảm ơn.

Nhân đây nói thêm
+ Với Word thì cứ di chuyển điểm nháy là Status tự xóa
+ Trong Excel, trong mã trên
Sub StatusBarReset()
Application.StatusBar = vbNullString
End Sub
thay vbNullString bằng False thì sẽ hiện các thông báo bình thường của Excel ( như Ready...).