Application.Version 显示Excel的版本号
Application.UserName 显示当前用户的用户名
Application.StatusBar = "状态栏" 状态栏显示内容
Application.StatusBar = False 状态栏不显示内容
Application.Wait Now() + TimeValue("00:00:01") DoEvents 暂停
Application.UserName 显示当前用户的用户名
Application.StatusBar = "状态栏" 状态栏显示内容
Application.StatusBar = False 状态栏不显示内容
Application.Wait Now() + TimeValue("00:00:01") DoEvents 暂停