|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！
您需要 登录 才可以下载或查看，没有账号？注册
x
- Public Sub 技巧1_012()0 t) l, `; H" ?& ]
- Dim myState As String+ B( l; G: i0 L! {1 P5 g9 t3 O& m
- myState = Application.WindowState2 X) z' d7 K" h' a1 r! F
- If myState = xlMaximized Then* |) A1 @5 u0 v0 h( H5 L
- MsgBox "Excel窗口最大化", vbInformation
' Z+ {: r7 k8 `) { - ElseIf myState = xlMinimized Then
$ o) f! _9 u. B - MsgBox "Excel窗口最小化", vbInformation$ M0 }0 u; M6 g) G. W( c4 s$ } ?
- ElseIf myState = xlNormal Then
% {4 ^: b. N% v- m - MsgBox "Excel窗口一般显示", vbInformation
* o, \3 c1 |6 W3 j: i, W+ O. ~ - End If* Z( x6 ]/ o L) e* y4 C7 J
- End Sub
|
|
[复制链接]
狗仔卡
发表于 2018-11-22 10:38:44
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡