VBA入门第三讲问题集中提问与解答贴

兰色幻想 · 发表于 2007-11-21 22:20

大家把问题发上来吧

hong4777 · 发表于 2007-11-21 22:24

请问兰版，学委的答疑中定义变量是这样的，也看到很多高手都是这样的。Dim i As Integer    Dim k As Integer     Dim TongJi As Integer那可以这样简写吗？Dim i,k,Tongji as Interger如果不行或不好，为什么？

兰色幻想 · 发表于 2007-11-21 22:27

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用hong4777在2007-11-21 22:24:00的发言： 请问兰版，学委的答疑中定义变量是这样的，也看到很多高手都是这样的。Dim i As Integer    Dim k As Integer     Dim TongJi As Integer那可以这样简写吗？Dim i,k,Tongji as Interger如果不行或不好，为什么？</div>需要这样定义才行:  Dim i as Interger,k as Interger,Tongji as Interger

hhzjxss · 发表于 2007-11-21 22:33

辛苦兰版了！

youke333 · 发表于 2007-11-21 22:34

Sub t4() Dim x As Integer For x = 1 To 20 Step 1 Rows(x).Insert Next x End Sub 兰老师，为什么这样写空行全部插在了一行前面了呢，看不懂这个程序的意思哦

huaich · 发表于 2007-11-21 22:40

Sub t3() Dim X As Integer For X = 20 To 1 Step -1 Range("B" & X) = X Next X End Sub还是从1-20的顺序

夏天里的凉风 · 发表于 2007-11-21 22:41

Sub E() Dim X% For X = 20 To 1 Step -1 Range("A" & X) = X Next X Rows(X).Insert End Sub 兰校长，为什么我这个不行呢。运行出现的结果就是应用程序或对象定义错误

兰色幻想 · 发表于 2007-11-21 22:41

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用youke333在2007-11-21 22:34:00的发言： Sub t4() Dim x As Integer For x = 1 To 20 Step 1 Rows(x).Insert Next x End Sub 兰老师，为什么这样写空行全部插在了一行前面了呢，看不懂这个程序的意思哦</div>当x=1时,会在第1行前面插入一空行, 表格前有一行空行 当x=2时,会在第2行前插入一空行,第二行是什么呢,是第一个含内容的行,运行到2的结果是数据表前插入了2行空行. 当x=3时,会在第3行前插入一空行，由于前面有了两行空行，所以第三行是第一个含数据的行，在第一个含数据的行前面插入空行，当然的结果是数据表前面有三行空行。 。。。。。。。。。 循环结束的结果是，空行全部插入到数据表的前面。

黄鹤楼 · 发表于 2007-11-21 22:41

按 F8 执行，你就会发现顺序的

黄鹤楼 · 发表于 2007-11-21 22:46

执行插入行的代码时，你可以在A1：A20中输入1，然后按 F8 执行代码，试试看

		自动登录	找回密码
密码			注册