带你入门VBA---不懂的代码快点贴过来

兰色幻想 · 发表于 2006-6-21 13:03

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

兰色幻想 · 发表于 2006-6-21 13:03

WebBrowser1.Document.writeln "<HTML>"是什么意思?WebBrowser ：是WEB浏览器控件 Split(ActiveCell.EntireColumn.Address(, False), ":")中间的(,false)是代表什么?注：ADDRESS用法： ADDRESS（行是否绝对引用，列是否绝对引用），如果值为TRUE则为绝对引用，为FALSE则为相对引用

兰色幻想 · 发表于 2006-6-21 13:03

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

rivate Sub CommandButton1_Click() h = Sheets("sheet2").Range("A65536").End(xlUp).Row + 1 Range("d1:f2").Copy Worksheets("sheet2").Range("A" & h) End Subd1:f2我设有公式,但复到2表以后,公式也一同过去了,我不想公式复制过去,应该使用什么样的属性...........................以下为解释............................................ Range("d1:f2").Copy Worksheets("sheet2").Range("A" & h) 可以改为 Worksheets("sheet2").Range("A" & h)=Range("d1:f2").VALUE 用等号赋值的方法也可以达到复制的效果

兰色幻想 · 发表于 2006-6-21 13:04

ublic 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是什么意思?

兰色幻想 · 发表于 2006-6-21 13:04

终于找到一位好老师了。请教兰老师如下代码的注释。 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-21 13:04

IsNull是什么意思‘ ************************以下为解释内容**************** IsNull指出表达式是否不包含任何有效数据 IsNull 函数示例 本示例使用 IsNull 函数检查变量值是否为 Null。 Dim MyVar, MyCheck MyCheck = IsNull(MyVar) ' 返回 False。 MyVar = "" MyCheck = IsNull(MyVar) ' 返回 False。 MyVar = Null MyCheck = IsNull(MyVar) ' 返回 True。

兰色幻想 · 发表于 2006-6-21 13:05

r1=range("b1").end(xldown).row set rng=range("h1:h"& r1) 这里什磨区域 ************说明*************************** r1=range("b1").end(xldown).row：‘是B列最后一个空单元格（数据区域中不含空行） Range("区域左上角单元格，区域右下角单元格") 来表示一个连续的区域。 range("h1:h"& r1）中把右下角的单元格行数作为一个变量。range("h1:h"& r1）即表增B列现有的数据区域。且随着B列数据的添加而自动扩展。

兰色幻想 · 发表于 2006-6-21 13:05

Sub Lbx_更改() Dim rg As Range, arr$()''定义一个Range对象变量和一个动态数组 Set rg = ActiveCell'设置对象为活动单元格 If Application.Intersect(rg, Range("C6:C9")) Is Nothing Then Exit Sub' 如果活动单元格不在范围中则退出过程 ActiveSheet.Shapes("Lbx").Select'选中图形,根据以下判断应该是ListBox arr = Split(Range(Selection.ListFillRange).Cells(Selection.Value), "_")'将列表框中列表范围中列表框的值所指向的单元格内容以"_"为分隔符取得一个数组赋值给arr rg.Resize(1, 4).ClearContents'清空从活动单元格开始向右的四个单元格内容 rg.Resize(1, UBound(arr) + 1) = arr'用数组给范围赋值 rg.Select']选中活动单元格 End Sub

兰色幻想 · 发表于 2006-6-21 13:07

CSTR()是什么意思 以下引自帮肋文件: CStr 返回值 如果 expression 是CStr 返回 Boolean 含有 True或 False 的字符串 Date 含有系统中短日期格式日期的字符串 Null 一个运行时错误 Empty 一个零长度字符串 ("") Error 包含单词 Error 以及错误号的字符串 其他数值含有数值的字符串

兰色幻想 · 发表于 2006-6-21 13:07

请问红色文字是什么意思？

rivate Sub UserForm_Activate() Dim rng As Range Dim i As Integer With ListView1 .Gridlines = True '显示表格线 LabelEdit = lvwManual 'LabelEdit的值确定是否可以编辑在 ListView 控件中的 ListItem 对象的标签。当为lvwManual 时手动的。BeforeLabelEdit 事件只发生在调用 StartLabelEdit 方法时。 .FullRowSelect = True '可以整行选取 .GetFirstVisible 'ListView 控件可包含的 ListItem 对象数目比在其内部区域中可视的 ListItem 对象数目多。可以使用由 GetFirstVisible 方法返回的引用决定在列表或在报表视图中的第一个可视的 ListItem 对象。 .FlatScrollBar = True '设置滚动条的外观 .FullRowSelect = True .View = lvwReport '样式为报表格式 With .ColumnHeaders .Add Text:="编号", Width:=ListView1.Width / 4 .Add Text:="名称", Width:=ListView1.Width / 4 .Add Text:="规格", Width:=ListView1.Width / 4 .Add Text:="颜色", Width:=ListView1.Width / 4 End With Set rng = Range("A2:D12") For i = 1 To rng.Rows.Count With .ListItems.Add(Text:=rng.Cells(i, 1) '在ListView控件中添加新的记录,标签(第1列标题)为rng.Cells(i, 1) 的值 .SubItems(1) = rng.Cells(i, 2) '设置ListView控件第2列内容 .SubItems(2) = rng.Cells(i, 3) '设置ListView控件第3列内容 .SubItems(3) = rng.Cells(i, 4) '设置ListView控件第4列内容 End With Next Set rng = Nothing End With End Sub

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

[问题] 带你入门VBA---不懂的代码快点贴过来