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

adau

Sheet2.Range("a2:e1000").ClearContents

iRow = Sheet1.Cells(1, 4).End(xlDown).Row

Arr = Sheet1.Cells(2, 4).Resize(iRow - 1, 2)

不明白用法及意思,请指教!!!

shewoyu

If Target.Column < 14 And Target.Row > 16 And Target.Row < 32 Then '单元格操作在A~M列之中，行数17～～31之中有效 If Target.Column = 1 And Target.Row > 16 And Target.Row < 32 Then '单元格操作在第1列之中，行数17～～31之中有效 能帮我解释这两句的意思吗？

[此贴子已经被plxmm于2006-6-16 16:58:37编辑过]

lhy19870822

我是新手，请大家指教 1. Dim m%, n%, p%, a 这里的变量后面加％表示什么？（整形变量的另一种写法）a没有定义类型，系统会认为a是什么类型？（万用类型） 2.Do While WorksheetFunction.CountIf(Range("a1", Cells(m, 1)), Cells(m, 1)) > 1 WorksheetFunction.CountIf是什么意思？（工作表CountIf函数） 3. Range("a1:a" & p).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("e1"), Unique:=True AdvancedFilter Action是什么意思？（高级筛选） 4.Dim m%, n%, p%, a p = [a65536].End(xlUp).Row p代表什么？（A列最后有数据的行数）

[此贴子已经被plxmm于2006-6-19 16:19:48编辑过]

HSQ8888

If Target.Column = 1 Or Target.Column > 3 Then Exit Sub

含义是什么？谢谢了

如果所选单元格在第一列或者在大于第三列的前提下，退出程序。

[此贴子已经被plxmm于2006-6-19 16:21:58编辑过]

5454440

Dim CNN As New ADODB.Connection
Dim RST As New ADODB.Recordset
With CNN
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"extended properties='Excel 8.0;hdr=no';" & _
"data source=e:\book10.xls"
.Open
.Execute "update [sheet1$a8:e9] set f2='Your Pleasure'"
.Execute "insert into [sheet1$a1:f10] (f1,f2) values (9,'mine')"
End With
RST.Open "select * from [sheet1$i11:i11]", CNN, 1, 3
Debug.Print RST.RecordCount
Debug.Print RST.Fields.Count
RST.Fields(0) = "My ADO"
RST.Update
RST.Close
CNN.Close

请问红色部分是什么意思?

HSQ8888

谢谢 plxmm 再请教1下 Private Sub Worksheet_Change(ByVal Target As Range) 工作表的单元格内容改变事件

[此贴子已经被plxmm于2006-6-20 9:11:50编辑过]

爱歌学习

以下是引用[I]5454440[/I]在2006-6-19 17:26:17的发言：
    Debug.Print RST.RecordCount
    Debug.Print RST.Fields.Count
    

请问红色部分是什么意思?

Debug.Print    在“立即窗口”显示，打开立即窗口：VBE下菜单“视图”－立即窗口
RST.RecordCount 记录个数
RST.Fields.Count 字段个数

[此贴子已经被作者于2006-6-21 12:22:13编辑过]

chen7806

老师好.我今天看到了这个程序,真的很好用,但看不懂,请教了.

Private Sub CommandButton1_Click()
Set x = CreateObject("ADODB.Connection")
x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
Sql = "select 型号规格,sum(需用量) from [随机工具$h:k] where 型号规格 is not null group by 型号规格"
Set yy = x.Execute(Sql)
Sheet1.[a2:b65536].ClearContents
Sheet1.[a2].CopyFromRecordset yy
Set yy = Nothing: Set x = Nothing
End Sub

爱歌学习

不知道这里能不能看懂？ http://club.excelhome.net/dispbbs.asp?boardid=2&id=160847&star=1#355541

ayang

以下是某位高人写的库存管理范例,"IN_摘要"是指录入单中摘要栏 主要是 DoWrite "IN", IIf(Range("IN_摘要") = "", "入库", Range("IN_摘要")) 这一句看不懂,IN好像即不是定义的名称,也没有找到N这个Sub,到底是怎么回事呢? 谢谢（这是查找 单元格以 IN 打头的字符操作） ayang:不好意思,还是不明白,Dowrite是什么?怎么用?IN打头应该是查找以IN打头的名称吧? 那么程序是怎么把单据录入中的数据存入到库存变动清单中的呢? 谢谢PLXMM的帮助,已明白Dowrite是自定义的过程 -------------------------------------     Select Case Range("IN_库单别")     Case 1        ' 入库数量写入库存变动清单:DoWrite(操作别，摘要)         DoWrite "IN", IIf(Range("IN_摘要") = "", "入库", Range("IN_摘要"))         ' 清空数据表         DoClear     Case 2         DoWrite "OUT", IIf(Range("IN_摘要") = "", "出库", Range("IN_摘要"))         ' 出库数量写入库存变动清单         DoClear     Case 3         DoWrite "OUT", "转到：" & Range("IN_进货仓")                 ' 调出         DoWrite "IN", "转自：" & Range("IN_出货仓")                  ' 调入         DoClear     Case Else         ' DoNothing     End Select Exit_Here:     Exit Sub

ykRiT7kA.rar (246.28 KB, 下载次数: 20)

2006-6-21 11:41 上传

点击文件名下载附件

[此贴子已经被作者于2006-6-21 14:54:23编辑过]