|
cells所有单元格 activesheet sheets(n) 对象.属性="值" workbooks("").sheets("").range().value="red" 对象.方法 对象.方法 参数名称:=参数值 range().copy destination:=range() sheets("sheet2").move before:=sheets("sheet3") 判断：if range()<>"" or range()<>"" then多条件判断 if then elseif elseif end if（逐次判断，后面的判断都在前面的条件被否定的请提下）比如说前面<1000判断了，那后面就直接<3000，不需要写<1000 select case 对象（不适用数组） case is 条件式 结果 case is 'case 1 to 10 case else end select
sub 判断3() if range("a3")<"G" then msgbox "a-g" end if for x =2 to 10 range("d"&x)=range("b"&x)*range("c"&x) next dim rg as range'变量是单元格 for each rg in range("d2:d18") for each rg in range("d2:d18.c2:c8")多个不相邻的区域用逗号隔开 if rg=0 then rg="我" rg=rg.offset(0,-1)*rg.offset(0,-1) next rg cells(x,4)=cells(x,3)*cells(x,5) set rg=range("")区域赋予对象 set arr=range("")区域赋予数组 dim arr(1 to 10) as integer,x as integer for x = 1 to 10 arr(x)=x next end sub $string字符串 option explicit 强制声明 set a =nothing 释放内存 函数使用方法 cells(x,4)="="b"&x&"*c"&x 字符串和变量连接 range("c9").formulaarray="=sum(b2:b6*c2:c6)"如果遇到单引号加倍为双引号 range("d13")=evaluate("=sum(b2:b6*c2:c6)") range("d8").application.worksheetfunction.sum(range("a1:a8,b7:b8")) vba方法range("c20")=vba.instr(range(""a20),"e") find倒 自定义函数：function wn() wn=application.caller.parent.name end function 模块： debug.print "第"&x&"次 空格 _ for x =1 to 10 k=k+cells(x,1)'累加 if k>26 then stop end if next end sub 因为只是自己学习的记录，所以看出来内容不是很全。但仔细去研究，还是能看懂的，呵呵 |