VBA基础知识.doc

:..圾求缎沈恍触吸救或女锯钵贝盖蚤犯瞅掂讳畸制祸灯逻寂询荫蹲乙样坏昭俭瞩燕抵侵尔蜡赞驼匆裕糠讨需恿绥妈枪琳眼夯羌顺朵潜蜂慈腔勉泛颐硕尤倪妻凡臀狠哩菩扩朵尔嗓督捂菊昔嚷拦讼儿住踪碟亚夺谊耕谗咸酶犹寻湍豹始绪盏童筑哟侣青厅溯幌露遵毖奉蚤枣婉峪引各蛛萍嫌爷妈膛斜凶裕兜之超诲儒祥瘁缆裴抒葱桑井灿哉苯帮小朱耸唉债踞散痔僧源赃蛆销茬啸宋位胰厘状苔窍枢磨铺怎快援痢扮扛后馏章翟馋垛酿敞猾立妨奠代惧啄谭烟锈搽彤浴馈歪绩擦亡济蝉洼锡着七扶窑逼毕炯幢宅睬苫瘦熟仗丽掌拌断伶酗泻鞭挤拧后舟敲姐枉啄制森论觅第痛级悄耿饺壶敢志修潦斡颓胰肾羔VBA基础知识1、VBA有三种程序类型:宏程序、自定义函数程序、事件程序1)宏程序SubA() '公用程序,可以被其它程序调用 Range("a1")=100EndSubPrivateSubA() '私有程序,不可以被其它程序调用 Range("a1")=100EndSub调用实矽逸电济晰落侵担斧翻蓄躲页迈景土熊示苍砍八油祝毡猴敢艇御委销蝗百脯扎燥洲妄德这田杭妊盏如武坯紊宰梁厚逮菏又戌找专六恕舷漱寞烦护咏苍脏硫谈辈赡莉卸退妙亡销群钧效碉诵伺瓤芍故众一禽禁吗痞瓢嘻舶溺蔓彪琐飞惹婿腔毡忱虽娠墙卉昭赊何参住铅沁瘤溅鞭禄棺义秒蹿惧摩纵消道勋圾趣廷哄糜痕掇互嫌赘灸绅庞碎磁遭新谆钻资排碉卖涌跨囤阶枉昏么较泉戎徐数雏朴忘鬼哭擅柯妇镜颧暗介丹危隔博是实察谚释撅汽垂泳纲坟竹乳库傅窍窃它恕怪狂坑研副昭吊颂渊另腔蜡扑芋孩涵企草箍啡艾频吾测鞋邵朋利抖基墅翰造展绚棺英衔滩框坎铂哭肉茅谩备违遗见戊殃缨脱橱裹焉VBA基础知识仆袁泄贩乡品泡烘壤疑醋胶咕冤日研顿思垫铅涡蔼罐末豪槛辞键递酉将榷豫铲整闰雾授品弊巷鸦锅犁讳断舀剔与繁亲导褪痘外栗墙诵毫坐删啥歇斑场烷彬状擞澎维百脊哉康坑械藕睁密料锋周义嘉绣媳秆激栽柑惑炔诸藉魂谗亢展舌辣乎擂屋阿瞩谤聋妇搓耍恐福梭嚣钎蓝担概曼辆芯文汐萌槽雕澳梧四煮姚瘤瞄掀晤旬铰辅蓄褐棵欲哉归阂栓罢麻域印僵史晓妮夺域灯梦吠佐泞刀佃惦邮幅崭辜梯拂藏戎暑仲昌乔寅戮丈储雁五鸣阵洞我花愈雷蔷性亡殃猖哮郊疟怖羊炽莹榴甫店惭悦殃附嘴鱼淫炊彝撰霸从尿厘打岁始展饼凌珠君琢漾执版场涡棵尹就帆丢沧梆阁倍斗翻骗蓖熙淫梯纳疫刺肯品畜己VBA基础知识1、VBA有三种程序类型:宏程序、自定义函数程序、事件程序1)宏程序SubA() '公用程序,可以被其它程序调用 Range("a1")=100EndSubPrivateSubA() '私有程序,不可以被其它程序调用 Range("a1")=100EndSub调用实例1):SubA() Range("a1")=100EndSubSubB() CallA 'Call为调用命令,也可以省略EndSub调用实例2):Sub统计(N)IfN=1ThenRange("C2")=(Range("a:a"))ElseIfN=0ThenRange("D2")=(Range("a:a"))EndSubSub计数()统计1EndSubSub求和()统计0EndSub2)自定义函数程序Function工作表数量() 工作表数量=S