带你入门VBA系列之：不懂的代码快点贴过来

兰色幻想 · 发表于 2006-6-8 12:03

在学习VBA的过程中，最大的障碍之一就是理解代码和一串串陌生的单词和语句。为了方便会员学习，所以才专门开辟此贴。当你在看到书上或他人编写的代码不明白时，就贴到本贴中。在这里会尽量会让你得到满意的解释。注： 1、可以贴生词，也可以贴整句的代码。 2、此贴专为VBA新手开辟。请不要贴海量的代码。尽量何持在10句之内。 3、因为这是一个学习贴，所以尽量不要贴解决问题的贴，可以另外单独发贴提问。希望有更多的新手提问，有更多的高手参与回答。

[此贴子已经被作者于2006-6-8 12:10:19编辑过]

plxmm · 发表于 2006-6-8 12:09

好，响应一下。

chen7806 · 发表于 2006-6-8 12:35

好消息,我终于有机会了,向老师至敬!

yuhongpu · 发表于 2006-6-8 12:53

WebBrowser1.Document.writeln "<HTML>"

是什么意思?

WebBrowser ：是WEB浏览器控件

Split(ActiveCell.EntireColumn.Address(, False), ":")

中间的(,false)是代表什么?

注：ADDRESS用法： ADDRESS（行是否绝对引用，列是否绝对引用），如果值为TRUE则为绝对引用，为FALSE则为相对引用

[此贴子已经被兰色幻想于2006-6-8 14:49:13编辑过]

chen7806 · 发表于 2006-6-8 13:01

我的一个问题,如何复制过去的数字不带格式.比如:

Private Sub CommandButton1_Click()
h = Sheets("sheet2").Range("A65536").End(xlUp).Row + 1
Range("d1:f2").Copy Worksheets("sheet2").Range("A" & h)
End Sub

d1:f2我设有公式,但复到2表以后,公式也一同过去了,我不想公式复制过去,应该使用什么样的属性.

..........................以下为解释............................................ Range("d1:f2").Copy Worksheets("sheet2").Range("A" & h) 可以改为 Worksheets("sheet2").Range("A" & h)=Range("d1:f2").VALUE 用等号赋值的方法也可以达到复制的效果

[此贴子已经被兰色幻想于2006-6-8 14:14:48编辑过]

yuhongpu · 发表于 2006-6-8 13:03

这段是plxmm写的

Public Sub Display() Dim start As Single '定义单精度浮点型变量 Dim NI As Single ' start = Timer '从午夜开始到现在经过的秒数。 NI = Me.Interval / 1000 '时间类的每一秒变化给变量NI赋值 Do '做Do循环 If Timer > start + NI Then '如果从午夜开始到现在经过的秒数大于前面的satart+NI的值的判断。 DoEvents '交出系统控制权 RaiseEvent Timer '重新引发系统计算从午夜开始到现在经过的秒数 If Not Me.Enabled Then Exit Sub '如果类的实例不可见，则退出本显示过程 NI = NI + Me.Interval / 1000 '继续对NI赋值 End If Loop End Sub

是什么意思?

注释由plxmm版主添加

[此贴子已经被兰色幻想于2006-6-8 15:09:32编辑过]

yuhongpu · 发表于 2006-6-8 13:05

可以用复制粘贴值

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

332211 · 发表于 2006-6-8 13:09

终于找到一位好老师了。请教兰老师如下代码的注释。 ActiveWorkbook.Names.Add Name:="Mcl", RefersToR1C1:="=Sheet1!R1C1:R" & i & "C1" '定义名称Mcl 的区域为Sheet1!R1C1:R" & i & "C1" With Sheet1.Range("A1:A" & i) '用WITH语句,好处在处在后面使用到WITH后的对象时可以用"."代替 Set Tem = .Find(Target, LookIn:=xlValues) '在Sheet1.Range("A1:A" & i) 区域中查找单元内容为Target单元格内容的值.(这段程序应是从事件程序中摘出的吧) If Not Tem Is Nothing Then '如果没找到符合条件的单元格 End With

[此贴子已经被兰色幻想于2006-6-9 12:17:51编辑过]

yuhongpu · 发表于 2006-6-8 13:17

老师你快给我们死回来

liusjie · 发表于 2006-6-8 13:22

兰老师总能别出心裁的让我们新手有学习的好地方

谢谢兰老师

[em22][em23][em22][em23]

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