更改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]