vba代码的中文解释 vba所有代码大全及语法

dim d, arr, i&, myr&, m& '定义变量 d,arr,i&,myr&,m& set d = createobject(＂scripting.dictionary＂) '设定 d=(＂scripting.dictionary＂) arr = sheet2.[a1].currentregion 'arr= sheet.

一,Range(＂b2:f5＂).Interior.ColorIndex = xlNone Range是区域对象,Range(＂b2:f5. 所以这行代码就是清除区域Range(＂b2:f5＂)里的填充色.二,Cells(x, y).Interior..

Set d = CreateObject(＂Scripting.Dictionary＂) '设置字典d Set d1 = CreateObject(＂Scripting.Dictionary＂) '设置字典d1 Arr = Sheet1.[a1].CurrentRegion '当前区域赋值到数组arr For i = 2 To UBound(Arr) '循环 d(Arr(i, 2)) = d(Arr(i, 2)) & i & ＂,＂ '数据叠加 Next For i = 1 To UBound(Arr, 2) - 2 d1(Arr(2, i)) = i '赋值

因为sheets(2)是第二个sheet,包含工作表、图表等在内的.如果确定是第二个工作表,可以用worksheets(2),或者直接用名字sheets(＂sheets2＂).再不然可以用sheets(2).codename看看工作表的名称然后直接用sheetx(不是name属性,是(名称)属性)

Close #1'关闭文件 If x = 1 Then'如果变量x的值等于1就执行下面的语句 ThisWorkbook.Sheets(＂原比对结果＂).Range(＂2:1000＂).Delete'删除【原对比结果】表的2~1000行 ThisWorkbook.Sheets(＂分型结果＂).Range(＂2:4000＂).Delete'类似上面 ThisWorkbook.Sheets(＂多序列排布结果＂).Range(＂2:4000＂).Delete'类似上面 End If'结束条件判断,前面的语句是否执行由前面的x值决定,此后的语句与此无关 每句都来打字解释可能真的没必要,哪句不懂的单独指出来吧,最好一次一两句

Option ExplicitDim Data(10000, 3) As StringDim DataRow As IntegerPrivate Sub GetData() '读取数据 Dim Exl As Excel.Application '定义一个excel对象 Set Exl = .

设置变量,Set myRange = Range(＂J＂ & i) '引用J列的第4行单元格 其实这里. 说实话,代码可以改为: Sub 文本框4_单击() Dim i As Long Dim myRange As .

apibeep(1100, 100) 这是一个程序,具体不清楚是什么功能,估计是要出啥声音的. 整个程序的意思是,在a列的第7 行开始,如果数据改变,那么触发这个程序,如果a列7行以下,这个改变的单元格和上面任一单元格内容有相同的,那么就会触发这个apibeep程序,而且是多次触发,并且最后有一个警告消息框出现.

Dim ivariant '定义ivariant变量 For i = [a1048576].End(3).Row To 2 Step -1 ' [a1048576].End(3).Row是A列里不为空的最后一个单元格的行数,这一句的意思是从A列的第2行到最后一行(不为空的)循环 If Cells(i, 1).Value Cells(i - 1, 1).Value Then Rows(i).Insert '如果A列的下一单元格不等于上一个单元格的值,那就插入一行 Next i '对应上面的for..next 循环

全称visual basic for application.vb是指visual basic,一种计算机语言,application是应用的意思.vba是指vb这种语言的可应用于实际的派生语言,一般在办公软件上都可以用到vba.vba是vb的延伸.vba语法与vb相同,vba功能比vb强大.