#第一篇文章挑战#

'整数：范围：-32,768 到32,767

Sub IntegerExample()Dim num As Integernum=10MsgBox '整数值为：'numEnd Sub' Long：范围：-2,147,483,648 到2,147,483,647

Sub LongExample()Dim num As Longnum=1000000000MsgBox '长整型值是：'numEnd Sub'Single：负范围：-3.402823E+38到-1.401298E-45正范围；1.401298E-45到3.402823E+38

Sub SingleExample()Dim num As Singlenum=3.14MsgBox '单精度浮点值是：' numEnd Sub'双精度浮点类型（Double）：负范围：-1.79769313486232E+308 到-4.94065645841247E-324 正范围4.9406564584124 7 E-324 至1.79769313486232E+308

Sub DoubleExample()Dim num As Doublenum=3.14159265358979MsgBox '双精度浮点值是：' numEnd 子字符串类型(String)：范围：0 到大约2 亿个字符

Sub StringExample()Dim text As Stringtext='Hello World'MsgBox '字符串值为：'textEnd Sub' 布尔值：范围：True 或False

Sub BooleanExample()Dim isTrue As BooleanisTrue=TrueMsgBox '布尔值是：'isTrueEnd Sub'日期类型（日期）：范围：100年1月1日到9999年12月31日

Sub DateExample()Dim dt As Datedt=DateMsgBox '当前日期：' dtEnd Sub'对象类型（对象）：范围：任何对象

Sub ObjectExample()Dim ws As WorksheetSet ws=ThisWorkbook.Sheets('Sheet1')MsgBox '对象类型为：'TypeName(ws)End Sub' 变体：范围：任何数据类型

Sub VariantExample()Dim var As Variantvar=100MsgBox 'Variant 值为：' var '，数据类型为：' VarType(var)End Sub' 一维数组类型(Array)： 范围：数组大小和类型

Sub ArrayExample()Dim arr(1 To 5) As IntegerDim i As IntegerFor i=1 To 5arr(i)=iNext iMsgBox '数组的值为：' Join(arr, ', ')End Sub' 2维数组类型（数组）：范围：取决于数组大小和类型

Sub ArrayExample()Dim arr(1 To 5, 1 To 6) As IntegerDim i As IntegerFor i=1 To uboundarr(i)=iNext iMsgBox '数组值为：' Join(arr, ', ') End Sub

以上是最基础的数据类型，接着就是关键的语法语句练习

''赋值语句：语法：变量名=值

'案例练习：

注意：在本例中，整数变量num 被赋值为10，结果显示在消息框中。

Sub testAssignment()Dim num As Integernum=10MsgBox 'Value is : ' numEnd Sub'If 语句（If 语句）： 语法：

' 如果条件那么

'如果条件为真，则运行此处的代码

'ElseIf 条件then

'如果前一个条件为假且此条件为真，则运行此处的代码

'除此之外

'如果前面的条件不成立，则运行此处的代码

'为了终止

'案例练习：

注意：在这种情况下，将根据变量num 的值显示不同的消息框。

Sub testIf()Dim num As Integernum=5If num 10 thenMsgBox '数字大于10'ElseIf num=10 thenMsgBox '数字等于10'ElseMsgBox '数字小于10'End IfEnd Sub'For 循环语句）： 句法：

'对于变量=初始值到最终值Step 步长

'本次循环执行的代码

'下一个变量

'案例练习：

注意：本示例使用For 循环来打印循环变量从1 到5 的值。

Sub testForLoop()Dim i As IntegerFor i=1 To 5MsgBox '值为： ' iNext iEnd 子例练习：遍历工作簿()For Each wb In WorkbooksMsgBox '工作簿名称为： ' wb.NameMsgBox '工作簿地址For : 'wb.FullNameNextEnd SubSub 重复工作表()对于SheetsMsgBox 中的每个sht '表格名称为： 'sht.NameNextEnd SubSub 重复单元格()对于ragne('A1:C3')MsgBox 中的每个rg '单元格为：' rgNextEnd Sub

'Do 循环语句： 语法：

'执行While条件

'本次循环执行的代码

'环形

'案例练习：

注意：本示例使用Do 循环来打印循环变量从1 到5 的值。

Sub testDoLoop()Dim i As Integeri=1Do While i=5MsgBox '值为：' ii=i + 1LoopEnd Sub' 跳出循环Sub testDoLoop()Dim i As Integeri=1Do While i=5MsgBox '值为： ' ii=i + 1DoLoopEnd 子句结束

'选择案例语句：语法：

'选择大小写表达式

'案例值1

'如果表达式等于值1，则运行此处的代码

'案例值2

'如果表达式等于值2，则运行此处的代码

“否则”

'如果表达式不等于任何值，则在此处运行代码

'结束选择

'案例练习：

Sub testSelectCase()Dim num As Integernum=2Select Case numCase 1MsgBox '数字为1'Case 2MsgBox '数字为2'Case ElseMsgBox '数字既不是1 也不是2'End SelectEnd Sub

版权声明：本文转载于网络，版权归作者所有。如有侵权，请联系本站编辑删除。