蓝色幻想VBA

兰色幻想VBA80集第1集：宏与VBA 2兰色幻想VBA80集第2集：VBA中的语句、对象、方法与属性 4兰色幻想VBA80集第3集：循环语句 5兰色幻想VBA80集第4集：判断语句 7兰色幻想VBA80集第5集：VBA变量DimmAsInteger 8兰色幻想VBA80集第1集：宏与VBA'VBA中的对象其实就是我们操作的具有方法、属性的excel中支持的对象'Excel中的几个常用对象表示方法'1、工作簿'Workbooks代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第N个工作簿'Workbooks("工作簿名称")'ActiveWorkbook正在操作的工作簿'ThisWorkBook'代码所在的工作簿'2、工作表''Sheets("工作表名称")'Sheet1表示第一个插入的工作表,Sheet2表示第二个插入的工作表....'Sheets(n)表示按排列顺序，第n个工作表'ActiveSheet表示活动工作表，光标所在工作表'worksheet也表示工作表，但不包括图表工作表、宏工作表等。'3、单元格'cells所有单元格'Range("单元格地址")'Cells(行数,列数)'Activecell正在选中或编辑的单元格'Selection正被选中或选取的单元格或单元格区域'一、VBA属性'VBA属性就是VBA对象所具有的特点'表示某个对象的属性的方法是'对象.属性=属性值Subttt()Range("a1").Value=100EndSubSubttt1()Sheets(1).Name="工作表改名了"EndSubSubttt2()Sheets("Sheet2").Range("a1").Value="abcd"EndSubSubttt3()Range("A2").Interior.ColorIndex=3EndSub'二、VBA方法'VBA方法是作用于VBA对象上的动作'表示用某个方法作用于VBA的对象上，可以用下面的格式：Subttt4()牛排.做熟的程度:=七成熟Range("A1").CopyRange("A2")EndSubSubttt5()Sheet1.Movebefore:=Sheets("Sheet3")EndSub兰色幻想VBA80集第2集：VBA中的语句、对象、方法与属性'VBA语句'一、宏程序语句'运行后可以完成一个功能Subtest()'开始语句Range("a1")=100EndSub'结束语句'二、函数程序语句'运行后可以返回一个值Functionshcount()shcount=Sheets.CountEndFunction'三、在程序中应用的语句Subtest2()CalltestEndSubSubtest3()Forx=1To100'fornext循环语句Cells(x,1)=xNextxEndSub兰色幻想VBA80集第3集：循环语句Sub判断1()'单条件判断IfRange("a1").Value>0ThenRange("b1")="正数"ElseRange("b1")="负数或0"EndIfEndSubSub判断2()'多条件判断IfRange("a1").Value>0ThenRange("b1")="正数"ElseIfRange("a1")=0ThenRange("b1")="等于0"ElseIfRange("B1")<=0ThenRange("b1")="负数"EndIfEndSubSub多条件判断2()IfRange("a1")<>""AndRange("a2")<>""ThenRange("a3")=Range("a1")*Range("a2")EndIfEndSubselect判断Sub判断1()'单条件判断SelectCaseRange("a1").ValueCaseIs>0Range("b1")="正数"CaseElseRange("b1")="负数或0"EndSelectEndSubSub判断2()'多条件判断SelectCaseRange("a1").ValueCaseIs>0Range("b1")="正数"CaseIs=0Range("b1")="0"CaseElseRange("b1")="负数"EndSelectEndSubSub判断3()IfRange("a3")<"G"ThenMsgBox"A-G"EndIfEndSub判断范围Subif区间判断()IfRange("a2")<=1000ThenRange("b2")=0.01ElseIfRange("a2")<=3000ThenRange("b2")=0.03ElseIfRange("a2")>3000ThenRange("b2")=0.05EndIfEndSubSubselect区间判断()SelectCaseRange("a2").ValueCase0To1000Range("b2")=0.01Case1001To3000Range("b2")=0.03CaseIs>3000Range("b2")=0.05EndSelectEndSub兰色幻想VBA80集第4集：判断语句Subt1()Range("d2")=Range("b2")*Range("c2")Range("d3")=Range("b3")*Range("c3")Range("d4")=Range("b4")*Range("c4")Range("d5")=Range("b5")*Range("c5")Range("d6")=Range("b6")*Range("c6")EndSubSubt2()DimxAsIntegerForx=10000To2Step-3Range("d"&x)=Range("b"&x)*Range("c"&x)NextxEndSubSubt3()DimrgAsRangeForEachrgInRange("d2:d18")rg=rg.Offset(0,-1)*rg.Offset(0,-2)NextrgEndSubSubt4()DimxAsIntegerx=1Dox=x+1Cells(x,4)=Cells(x,2)*Cells(x,3)LoopUntilx=18EndSubSubt5()x=1DoWhilex<18x=x+1Cells(x,4)=Cells(x,2)*Cells(x,3)LoopEndSubSubs1()DimrgAsRangeForEachrgInRange("a1:b7,d5:e9")Ifrg=""Thenrg=0EndIfNextrgEndSubSubs2()DimxAsIntegerDox=x+1IfCells(x+1,1)<>Cells(x,1)+1ThenCells(x,2)="断点"ExitDoEndIfLoopUntilx=14EndSub兰色幻想VBA80集第5集：VBA变量'变量'一、什么是变量？'所谓变量，就是可变的量。就好象在内存中临时存放的一个小盒子，这个小盒子放的什么物体不固定。Subt1()DimXAsInteger'x就是一个变量ForX=1To10Cells(X,1)=XNextXEndSub'二、小盒子里可以放什么？'1放数字'如t1'2放文本Subt2()DimstAsStringDimXAsIntegerForX=1To10st=st&"Excel精英 培训 焊锡培训资料ppt免费下载焊接培训教程 ppt 下载特设培训下载班长管理培训下载培训时间表下载 "NextXEndSub'3放对象Subt3()DimrgAsRangeSetrg=Range("a1")rg=100EndSub'4放数组Subt4()Dimarr(1To10)AsInteger,XAsIntegerForX=1To10arr(X)=XNextXEndSub'三、变量的类型和声明'1变量的类型'详见帮助文件'2为什么要声明变量'3声明变量'dimpublic'四、变量的存活周期'1过程级变量:过程结束，变量值释放'如t1'2模块级变量:变量的值只在本模块中保持，工作簿关闭时随时释放'例5Subt6()m=1EndSubSubt5()MsgBoxmm=7EndSub'3全局级变量:在所有的模块中都可以调用，值会保存到EXCEL关闭时才会被释放。'public变量Subt7()MsgBoxqqEndSub'五变量的释放'一般情况下，过程级变量在过程运行结束后就会自动从内存中释放，而只有一些从外部借用的对象变量才需要使用set变量=nothing进行释放。兰色幻想VBA80集第6集：函数与公式'一、在单元格中输入公式'1、用VBA在单元格中输入普通公式Subt1()Range("d2")="=b2*c2"EndSubSubt2()DimxAsIntegerForx=2To6Cells(x,4)="=b"&x&"*c"&xNextxEndSub'2、用VBA在单元格输入带引号的公式Subt3()Range("c16")="=SUMIF(A2:A6,""b"",B2:B6)"'遇到单引号就把单引号加倍EndSub'3、用VBA在单元格中输入数组公式Subt4()Range("c9").FormulaArray="=SUM(B2:B6*C2:C6)"EndSub'二、利用单元格公式返回值Subt5()Range("d16")=Evaluate("=SUMIF(A2:A6,""b"",B2:B6)")Range("d9")=Evaluate("=SUM(B2:B6*C2:C6)")EndSub'三、借用工作表函数Subt6()Range("d8")=Application.WorksheeFunction.CountIf(Range("A1:A10"),"B")EndSub'四、利用VBA函数Subt7()Range("C20")=VBA.InStr(Range("a20"),"E")EndSub'五、编写自定义函数Functionwn()wn=Application.Caller.Parent.NameEndFunction兰色幻想VBA80集第7集：VBE编辑器'一、VBE的窗口'1、工程窗口'A显示工作簿工作表对象'B窗体'C模块'D类模块'range("a1")=10'对应工程窗口的对象和模板，显示其所具体的一些特征。'3、代码窗口'A注释文字的设置'B代码缩进的设置'C代码强制转行的设置'D代码运行和调试'逐句运行'设置断点'E对象列表框和过程列表框'4、立即窗口'立即窗口可以把运行过程中的值立即显示出来，主要用于程序的调试Subd()DimxAsInteger,stAsStringForx=1To10st=st&Cells(x,1)Debug.Print"第"&x&"次运行结果:"&stNextxEndSub'5、本地窗口'在本地窗口中可以显示运行中断时对象信息、变量值、数组信息等。Subd1()DimxAsInteger,kAsIntegerForx=1To10k=k+Cells(x,1)NextxEndSub