【原】VBA案例精选 获取当前工作表用户名

代码运行结果：

代码截图：

代码文本：

Public Sub 获取窗口高度和宽度()

    Dim myHeight As Double, myWidth As Double

    myHeight = Application.Height

    myWidth = Application.Width

    MsgBox "Excel主应用程序窗口的高度和宽度分别为：" _

        & vbCrLf & "高度：" & myHeight _

        & vbCrLf & "宽度：" & myWidth, vbInformation

End Sub

注释：

在VBA中我们常用到的变量类型有数字型（Byte、Integer、Long、Single、Double）、文本型（String）、布尔型（Boolean）、日期型（Data）、对象、数组等。

我们用Dim语句创建变量(声明变量)，Dim语句的基本语法如下：Dim 变量名 AS 数据类型。此处数据类型：Double为双精度浮点数值。