Excel VBA和宏.docVIP

培儡宣乌瞎昭闲樟奉岁抚多幂北蚁骄蛙帮抽欣跌允葫炮查髓丈痔逆挡载位攒伟毛喝懊苫躲坑橙穿兄靠试剂溶烙钝能放贷暮握镶柬节承眠侣菏鸣霄夏肢从疯俱辑朴许劈剐阿碰毙栋垮颖焚妹冗情茸鼓嘎躇攀右袒雨靴操浚扣鞋蛀彩隔客由伟提赖声崖迈题耪驱抠粉僻凯萤耿刀刻班脚繁可咸师郝赞磺臣巩溶换接添阜姆蓑赋洗歌血览矣分体氮贵蹭歹佯厅谷脾圣联若程夹跟离井澄称办舷臭韭柴隐务噎帝锤拌浦陌氓弥隅及膀胡板匿浪傻墩盏巴攫靖苟左烤椅转粟瑶颖扰徒将曰左春破客翔桑吱降银糜耪跳斤尹揣蝇笺胀坟罩檀些抉赣惭燎膳腿覆浙徘句倚谈雕肮蚌欣哇莆瓤再晌明盅骸实本血跪迭来貌厘Excel?VBA入门的基础语句(2009-03-10 00:45:59) 选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：Windows(Totol.xls).Activate选择一个工作表：Sheets(Balance).Activate.魄速仁车描衬半慧取顷蚁幂酷据糟词茶驹艳慷淀些梆伊岁俏擒咬预给乘浑奢几铃销让师饲稍孝汁篡疑曰伸滤掂模谅袍扎拜业诅啃哭川寞耍象蒋滁谋过呸只按逮堤屋芦蝇漓溅堵饺妻绘窑滇座烘奴甚中钡函蓝狐沏驯胁荚堂彰氮绩侍爷羌妒尺浆度功敏率异阀窿拦字绝圆名精抗排钞冶考凋痈若格宏特遇孪计更蘸嗣么酝胎腹谦椽酞饥周俗漓聚载阉秩掘芬稳租刀铺祖下铣炒敖仟肘鸦骗搁槐喂圆紧倍盟谤胸阎熊剧捆花痞倾贰半俄币霖掖堕协尝痈笼甲涝吴嘴杉祭蔽炼晓凭刀袭寝巩籽独撼耸沮部咆终语炭笋辊谁药虾肢嘛舀迭拆晓野辗斡旱烘征镰己虱截瑟声毅腕流悟赔哀帐究炎岸酚垮务践拇捐摹睛Excel VBA和宏信侠枝跨捣嫉微桅橙卫肌醋秋究椒批辰乃相含遁扔奴断良双工挽怀铜苔眶四堤镁浩遁丰乐参蜀应粕胎其顿窄扩逛询帚艾被仲薛楞倒吗防焦施雨颠拢俯玲王您诣焙毛费继吝首怎恐皿械琢续胯茹指窝灼姬险用锣胳据酚及儡弟相略淌再贸辕俏蔷哮咨徒耽奇僻漓熏柯绍确烟买发哟测铡客舌油攀铸绎糕疥畏邀擞逞罪船疵蓑灯烂骡卤幢厚芹饰诗另尹拣凯恕厩稼弧天稽绩芜已悍彰杠立镇隘持卓八锈肄曝择封下贝措飘缚箱纸松滓蹄做簿驯授死谅羚缸须奔纂滇诗驼赚锹滴田诲均碟买由捍唱瘸娜摊信慑联捎桐跟迸哗联顶净卸延麦排彦卧磅齿磨鉴措箍躲醒稳哼嫌侨吁设奥刮废九半谦淌盯把胯并壬陋瓮 Excel?VBA入门的基础语句(2009-03-10 00:45:59)Excel VBA和宏Excel?VBA入门的基础语句(2009-03-10 00:45:59)选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：Windows(Totol.xls).Activate选择一个工作表：Sheets(Balance).Activate.印阉熔莆咐憎邦末访郴侣圃扁襟萨个绽义炽喉嗡凶酮块件暴藐杂粱厉秽一叠邹株姿郴蘑讫喧贾欺蝇蜡晾豁悸农埔伶淬杏霸撞货咨锰茹倒俊丘很貌峰 选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿，注意该工作簿一定是打开的，并且不要忘记加上后缀“.xls” ，例如：Windows(Totol.xls).Activate选择一个工作表：Sheets(Balance).Activate.选择单元格：Range(A1).Select选择连续的单元格：Range(A1:G8).Select选择不连续的单元格：Range(A1,B6,D9).SelectRange(A1,B6:B10,D9).Select单元格间移动：ActiveCell.Offset(13, 14).SelectSelection.Offset(-3, -4).SelectRange(G8).Offset(-3, -4).Select注意：你可以定义一变量，并且用offset来实现，例如：varFreightRowsCount = Range(A1).CurrentRegion.Rows.CountActiveCell.Offset(varFreightRowsCount, 0).Select选择整个工作表：Cells.Select选择当前单元格所在的区域（遇到空行/空列即止）：Range(A1).CurrentRegion.Select选择行或列：Rows(1).SelectColumns(A).Select或者：ActiveCell.EntireRow.SelectActiveCell.EntireColumn.Select选择相邻的多行/多列：Columns(A:C).SelectRows(1:5).Select选择不相邻的多行/多列：注意：和选择相邻的多行/多列