plaodj 发表于 2019-5-8 01:03:02

更改Excel标题状态栏代码

更改Excel标题状态栏代码

Private Sub Workbook_Activate()
On Error Resume Next
Application.Caption = "让高效办公流行起来" '改变EXCEL左上标题
Sheets("首页").Select '并定位在窗口上。。。。。。
Application.StatusBar = "本系统登录时间: " & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & "(" & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & ")" & " 〓★〓
End Sub
页: [1]
查看完整版本: 更改Excel标题状态栏代码