搜索
宏的运用(本教材只使用VBA语言和EXCEL自带函数组合,不使用VB专业编程语言）:一.宏的录制可以将重复的工作变得更简单；示范一个例子：看到了?可以将一些重复的工作录制下来，以后只需要执行宏就可以了。按ALT+F11进入编辑框,或在宏--查看宏--编辑.今天只重点介绍如何录制和学会看VBA语言，如何组合VBA．以下所有语句符号,都需要输入法在英文字符状态.练习录制宏二.注意事项:1.将日常工作录制成宏,工作表名称需固定,单元格位置也需固定.2.其实不固定行不行?行,是可以的,但需要另行编程,懂VBA语言,同时对函数要相当熟悉．3.返回上一次函数培训教程,重点说明下,将EXCEL分开做成数据表和查询表,利于宏的录制和运用.4.宏程序用SUB程序名()表示开始,ENDSUB表示结束,每一个命令行表示一个指令三.VBA常用语句1.选择单元格:表示方法一:Range(A2).Select同EXCEL单元格一样表示方法二:Cells(3,1).Select(即选择A3单元格)(行,列)坐标表示法,使用更自由,一般用于编程自动读取数据时用. 返回上期函数教程，再次讲解下单元格(平面)坐标.练习：当前活动的单元格表示方法:ActiveCell2.工作表选择:Sheets(工作表名称).Select或Sheets(顺序数字).Select3.文件选择:Windows(文件名称).Select或Windows(顺序数字).Select4.信息提示对话框:Msgbox(信息内容,vbYesNo+vbInformation,信息框名称)可以只有VBYES一个确定框．5.条件语句:ifthen...Elseif...Else...endif同IF函数原理一样,返回函数教程,进一步讲解流程图的绘制.6.循环语句:ForX=0ToANext例:从0-100次循环ForX=0To100Next7.Dim声明一个变量,例:DimA,B,C,D(声明4个变量)8.Run运行另一个行程,Goto跳到另一个程序9.使用Application执行EXCEL函数 经常运用的命令例:Application.CountIf(sheets(d9).Range(A:A),S)执行的是CountIf统计函数四.示范制作一个每月固定工作的宏五.总结:1.录制和制作宏,先设计出流程图,即将工作划分为12345,结合条件函数,组合而成.2.平时多录制宏,然后查看原代码,看多了就明白.3.初学者可录制简单的工作,一个复杂的工作可分步录制,然后组合起来.今天只重点介绍如何录制和学会看VBA语言，如何组合VBA．以下所有语句符号,都需要输入法在英文字符状态.表示方法二:Cells(3,1).Select(即选择A3单元格)(行,列)坐标表示法,使用更自由,6.循环语句:ForX=0ToANext例:从0-100次循环ForX=0To100Next料号类型类型总额F001輔料8,418.56F014輔料31,234.87A002生產原料79,772.00AH015生產原料169,732.69F018輔料5,782.76F016輔料10,628.10F011輔料21,934.54AH017生產原料67,547.11F015輔料12,729.97F003輔料7,236.00FH001輔料84,839.05AH014生產原料97,725.63F005輔料9,417.00AH006生產原料61,352.51F006輔料3,352.00AH022生產原料2,766.02AH004生產原料149,388.35AH001生產原料57,543.03AH007生產原料9,891.53AH010生產原料6,980.50AH011生產原料16,994.63AH003生產原料18,416.83F013輔料1,810.00AH002生產原料29,349.23AH020生產原料1,058.40F008輔料884.70AH008生產原料2,002.07AH018生產原料1,253.32F002輔料1,320.00F007輔料645.00料号类型类型总额F001輔料8418.56F014A002AH015F018F016F011AH017F015F003FH001AH014F005AH006F006AH022AH004AH001AH007AH010AH011AH003F013AH002AH020F008AH008AH018F002F007日期領料單號物料代碼物料名稱2006-05-04SOUT000869F001.0009雙面膠2006-05-04SOUT000868F001.0003高溫牛皮膠紙2006-05-04SOUT000862F014.0002木卡板2006-05-04SOUT000874F001.0004透明封箱膠紙2006-05-04SOUT000863A002.0001301天那水2006-05-04SOUT000873A002.0001301天那水2006-05-04SOUT000870F014.0003木卡板2006-05-04SOUT000865F014.0004木卡板2006-05-04SOUT000864AH015.0002380膠水-膠水2006-05-04SOUT000861F014.0016環保卡板2006-05-04SOUT000864AH015.0003927膠水-膠水2006-05-04SOUT000881AH015.0003927膠水-膠水2006-05-04SOUT000869F018.0002白光布碎(KG)2006-05-04SOUT000876F014.0007消毒木板2006-05-04SOUT000879F016.0003鋼沖模-五金配件2006-05-04SOUT000871F011.00021.5MM銅版2006-05-04SOUT000873AH017.0003HPP536裱膠油-白膠漿2006-05-04SOUT000877F015.0030油漆2006-05-04SOUT000867F003.0006汽泡膜2006-05-04SOUT000860FH001.0008透明PVC膠袋-PVC膠袋2006-05-04SOUT000866AH014.0010紅黃蘭綠四色籌碼(音樂遊戲盒套裝)2006-05-04SOUT000871F011.00071.5MM擊凸樹脂版2006-05-04SOUT000872F016.0004外發磨刀模2006-05-04SOUT000875F005.0028傳真紙2006-05-04SOUT000880F015.0061活動扳手2006-05-04SOUT000878AH006.0007模具2006-05-05SOUT000839F006.0006復印機粉盒2006-05-05SOUT000842F015.0059軸承2006-05-05SOUT000841F015.0060砂輪2006-05-05SOUT000845F016.0002維修回馬達2006-05-05SOUT000838FH001.0008透明PVC膠袋-PVC膠袋2006-05-05SOUT000836FH001.0008透明PVC膠袋-PVC膠袋2006-05-05SOUT000837FH001.0008透明PVC膠袋-PVC膠袋2006-05-05SOUT000853AH022.0001白色布紋紙-充皮紙2006-05-05SOUT000850F003.0006汽泡膜2006-05-05SOUT000846AH017.0003HPP536裱膠油-白膠漿2006-05-05SOUT000854AH004.0013強力磁膠2006-05-05SOUT000857F011.00021.5MM銅版2006-05-05SOUT000855F011.00021.5MM銅版2006-05-05SOUT000847F015.0006高彈力拖鞋膠2006-05-05SOUT000840AH001.0012黃色YO蛇仔2006-05-05SOUT000844AH007.0003黃色尼龍繩2006-05-05SOUT000840AH001.0013黃色蛇仔直徑為3/82006-05-05SOUT000848AH007.0005黃色橡筋繩2006-05-05SOUT000851AH006.0001雞眼2006-05-05SOUT000844AH007.0007藍色橡筋繩-尼龍繩2006-05-05SOUT000848AH007.0007藍色橡筋繩-尼龍繩2006-05-05SOUT000848AH007.0007藍色橡筋繩-尼龍繩2006-05-05SOUT000840AH001.0020蘭色蛇仔-雙線圈2006-05-05SOUT000840AH001.0021蘭色蛇仔-雙線圈2006-05-05SOUT000843AH015.0001216膠水-膠水2006-05-05SOUT000858AH015.0005特級萬能膠-白膠漿2006-05-05SOUT000852AH010.0005海棉-海棉2006-05-05SOUT000858F015.0010粘合劑2006-05-05SOUT000846A002.0001301天那水2006-05-05SOUT000856F001.0004透明封箱膠紙2006-05-06SOUT000831F001.0007透明雙面膠2006-05-06SOUT000816A002.0001301天那水2006-05-06SOUT000817F014.0003木卡板2006-05-06SOUT000821F014.0004木卡板2006-05-06SOUT000835AH004.0002同性磁膠-磁膠2006-05-06SOUT000824AH006.0004銀色撞釘-五金配件2006-05-06SOUT000835F018.0002白光布碎(KG)2006-05-06SOUT000823F003.0004五分特級機打帶2006-05-06SOUT000826F003.0004五分特級機打帶2006-05-06SOUT000834AH015.0003927膠水-膠水2006-05-06SOUT000835AH015.0003927膠水-膠水2006-05-06SOUT000828AH015.0003927膠水-膠水2006-05-06SOUT000820AH006.0002銀色雞眼-五金配件2006-05-06SOUT000827AH014.0006騎釘線-五金配件2006-05-06SOUT000833AH011.0002鍍鋅鐵片-五金配件2006-05-06SOUT000817F014.0022消毒木板2006-05-06SOUT000819F015.0057發熱電阻絲2006-05-06SOUT000818AH003.0040透明不可移貼紙2006-05-06SOUT000825AH003.0041透明貼紙直徑15MM2006-05-06SOUT000832F015.0058鋸條2006-05-07SOUT000883AH007.0003黃色尼龍繩2006-05-07SOUT000883AH007.0007藍色橡筋繩-尼龍繩2006-05-08SOUT000805F015.0013熱熔膠條2006-05-08SOUT000812AH007.0003黃色尼龍繩2006-05-08SOUT000804F003.0004五分特級機打帶2006-05-08SOUT000811F018.0002白光布碎(KG)2006-05-08SOUT000807AH015.0002380膠水-膠水2006-05-08SOUT000810F014.0003木卡板2006-05-08SOUT000809F013.0001木條2006-05-08SOUT000811F001.0004透明封箱膠紙2006-05-08SOUT000814F015.0056