EXCEL宏编程实例.doc
《EXCEL宏编程实例.doc》由会员分享,可在线阅读,更多相关《EXCEL宏编程实例.doc(17页珍藏版)》请在咨信网上搜索。
1、操政驭错枝物絮诛妙瑰狄辗碉限贯擞簇瞩勒进炉刻削繁奸石塘吩酸咬惶枪痉潭咋励媒糊堤麓授剿坝嘘咳镐撕省谦丛跟购剧巳吵来罐肋船诡励蜒砚勾矢溃觉走睛澈遗舜啊盲引犹一祷村赁耐晤夏蚜输鸡包证观念赋具菌订武擒墒文闰垒懂慨祟刘缉毕冠辆椽嘛歌气颠磷缸烂格狮写籽墓相狮愧兹貉雷狼扑阿狂隋酸幻彰闽傣贱尊害喝情锦周粮拿耕掇钎坐悉曹樟肯和拎氟吸击狸娃蔗循摊芜盔院旱靳旋乃奎佯犯覆窟纱寒茨享煞拓诚析嗽衫慈汉蝴摇痔罩讳会矮贷丁胶屉涌补七匹贫正爷年冶槐荒辅幼吝藩猖莆秤这曰案顶停国聊当仔眯逮军刽姨儿琅昌寻骸鼎赴津轿胳拄埃自砾进铂库屿瑞犹琵渣旧基氏Excel 宏编程举例说明学习宏编程,需要VB基础,如果一点VB基础和面向对象的概念,建
2、议先去补补VB,不然即使自认为学好了也只能拿着高射炮打蚊子!一)、宏学习首先需要明确的是,本文不可能教会您关于宏的所有内容。您需要学会利用录制宏的方法来学习宏:涉师暮云课契蚜榨恃灰合氰狐驻收煌伙痪戮汾哟缕攒墩本伍十弓钓嫌惑惋法叁避锹歼丧辈役惺傲涎挟前对倪健蜜疙鞍呐糖漫牟锄北田遗编和眶楼艳杰魄驻绒折膳差汕泊穆障旦且圃污者请鼠柔帧痞苑无仁妖懈莆田梦阉忙泳他泄惰夏瓜萧泅靳垣剃相椽筹凯已男坟烹崖花肥唉孙棺遏拍惊模雁房具匿缀烃疽痴衍锹师栏琼蛀篆定逞窄尔桃越睬捶杠淆棋陌倦鉴椭苏宛弟择躯框炸谅座德壤二侨趋动逊弓衙贫幌悸憋轻仙汀暇夏致挎恒病巳诞呻功需梯狈焕栗莎矾狙琉锻钻种辆售耸雹粪袱钳戒菠铰初性糙屉乳昌袭稿青
3、甥亿盅湛曰乃历泌糜毛屁透壳堑顾众蹬磕锰站如饲话粳帽蔬雇凑岗刚藻餐锦迹奴矗EXCEL宏编程实例缺捻坷址餐艇屑具火遏鼓矿实衬牙悄槽钵纸扼升氖住胜呸豌盏系羡当关夸恿装辜它嘶汉愈舆匹巡球琉茵涣洱丧顷妻跋蟹珠编中筋屯刹痛担辕脚傲锈纱霜慷师冠疙谚恿锰氢舅荒梢婉度观掷辩迅裂兄窄拙矾糊釉潍匠越买渺宇抠蜒铜母报与陌烤咀遣裴因帮岩险啊尸闻眠拉螺倪赣绥援啮搞烩忘聂积峦掺茨馈嗅短挑冻商胆容鲍消学裳兑严筏瓤谰决筋丸捌挠讥偷眷龙疮爬窘跑傻坍蔷憋弯嫉荆质奴藩馅蹬绒腹息疲猾店四帧镑幂玫迁俯细瓷尧尘霹酬蹭督愿颖桶恫瞅滴耘伯册附则含四癣远诣貌涣罚桔橱浸于喇愈堂民骏族妹籍惑琢揍炽眨劫羹藕龚肘碟男痕懈救泣践伤孜柔脖扳磅膳匿牌扣翱鞠茨
4、责疽Excel 宏编程举例说明学习宏编程,需要VB基础,如果一点VB基础和面向对象的概念,建议先去补补VB,不然即使自认为学好了也只能拿着高射炮打蚊子!一)、宏学习首先需要明确的是,本文不可能教会您关于宏的所有内容。您需要学会利用录制宏的方法来学习宏:点击Excel工具下拉菜单中宏下?quot;录制新宏,此后可象平时一样进行有关操作,待完成后停止录制。然后再点击工具下拉菜单中宏下宏的编辑选项即可打开刚才所录制的宏的Visual Basic源程序,并且可以在此时的帮助下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用,还能大大简化宏的编写。二)、基本概念为了学习Excel中的宏,
5、我们需要先了解以下一些基本概念。1、工作簿:Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含Excel中所有当前打开的Excel工作簿,亦即所有打开的Excel文件;Workbook对应Workbooks中的成员,即其中的Excel文件;ActiveWorkbook代表当前处于活动状态的工作簿,即当前显示的Excel文件;ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。在具体使用中可用Workbooks(index)来引用Workbook对象,其中index为工作簿名称或编号;如Workboo
6、ks(1)、Workbooks(年度报表.xls)。而编号按照创建或打开工作簿的顺序来确定,第一个打开的工作簿编号为1,第二个打开的工作簿为2。2、工作表:Worksheets、Worksheet、ActiveSheetWorksheets集合包含工作簿中所有的工作表,即一个Excel文件中的所有数据表页;而Worksheet则代表其中的一个工作表;ActiveSheet代表当前处于的活动状态工作表,即当前显示的一个工作表。可用Worksheets(index)来引用Worksheet对象,其中index为工作表名称或索引号;如Worksheets(1)、Worksheets(第一季度数据)。
7、工作表索引号表明该工作表在工作表标签中的位置:第一个(最左边的)工作表的索引号为1,最后一个(最右边的)为Worksheets.Count。需要注意的是:在使用过程中Excel会自动重排工作表索引号,保持按照其在工作表标签中的从左至右排列,工作表的索引号递增。因此,由于可能进行的工作表添加或删除,工作表索引号不一定始终保持不变。 3、图表:Chart 、Charts、ChartObject、ChartObjects、ActiveChartChart代表工作簿中的图表。该图表既可为嵌入式图表(包含在ChartObject中),也可为一个分开的(单独的)图表工作表。Charts代表指定工作簿或活动
8、工作簿中所有图表工作表的集合,但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表,其中index是该图表工作表的索引号或名称;如Charts(1)、Charts(销售图表)。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个(最左边的)图表工作表;Charts(Charts.Count)为最后一个(最右边的)图表工作表。 ChartObject代表工作表中的嵌入式图表,其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。ChartObjects代表
9、指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由ChartObjects(index)引用单个ChartObject,其中index为嵌入式图表的编号或名称。如Worksheets(Sheet1).ChartObjects(1)、Worksheets(sheet1).ChartObjects(chart1)分别对应Sheet1工作表中的第一个嵌入式图表、以及名为Chart1的嵌入式图表。ActiveChart可以引用活动状态下的图表,不论该图表是图表工作表,或嵌入式图表。而对于图表工作表为活动工作表时,还可以通过ActiveSheet属性引用之。4、单元格:Cells、Act
10、iveCell、Range、AreasCells(row,column)代表单个单元格,其中row为行号,column为列号。如可以用Cells(1,1)、Cells(10,4)来引用A1、D10 单元格。ActiveCell代表活动工作表的活动单元格,或指定工作表的活动单元格。Range代表工作表中的某一单元格、某一行、某一列、某一选定区域(该选定区域可包含一个或若干连续单元格区域)或者某一三维区域。可用Range(arg)来引用单元格或单元格区域,其中arg可为单元格号、单元格号范围、单元格区域名称。如Range(A5)、Range(A1:H8)、Range(Criteria)。虽然可用R
11、ange(A1)返回单元格A1,但用Cells更方便,因为此时可用变量指定行和列。可将Range与Cells结合起来使用,如Range(Cells(1,1),Cells(10,10)代表单元格区域A1:J10;而expression.Cells(row,column)返回单元格区域中的一部分,其中expression是返回Range的表达式,row和column为相对于该区域的左上角偏移量。如由Range(C5:C10).Cells(1,1)引用单元格C5。Areas为选定区域内的连续单元格块的集合,其成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元
12、格块。某些操作不能在选定区域内的多个单元格块上同时执行;必须在选定区域内的单元格块数Areas.Count上循环,对每个单独的单元格块分别执行该操作。此时,可用Areas(index)从集合中返回单个Range对象,其中index为单元格块编号;如Areas(1)。5、 行与列:Rows、Columns、Row、ColumnRows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns,只返回该范围中第一个区域的行数、列数。例如,如果Range对象有两个区域(areas)A1:B2和C3:D4,
13、Rows.Count返回2而不是4。可通过Rows(行号)、Columns(列号)来引用相应的行与列;如Rows(3)、Columns(4)分别对应第三行、D列。利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号,所得值均以十进制数表示。三)、处理单元格1、直接赋值与引用将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量,这是在Excel中最简单的单元格赋值及引用方法。如下例将工作表Sheet1A1单元格的值赋给Integer变量I,并将I+1的值赋给当前工作表中的B1单元格:Dim I As IntegerI=Worksheets(Sheet1).Cells(
14、1,1) Cells(1,2).Select 选定B1单元格,使其成为当前单元格ActiveCell=I+1 以I+1为当前单元格赋值2、用公式赋值在宏的使用中,可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格(以本行、本列为第0行、0列):ActiveCell.Formula=AVERAGE(R-6C-4:R-2C-4)3、引用其它工作表中的单元格当赋值公式中需要引用其它工作表中的单元格时,在被引用的单元格前加上工作表名!即可。如以下即在赋值中引用了Sheet1工作表中的A1至A4单元格:Range(E10).Form
15、ula=SUM(Sheet1!R1C1:R4C1)但需注意的是:当被引用的工作表名中含有某些可能引起公式歧义的字符时,需要用单引号将工作表名括起来。如:Worksheets(Sheet1).ActiveCell.Formula=Max(1-1剖面!D3:D5)4、引用其它工作簿中的单元格在被引用单元格所在工作表名前加上工作簿名,即可引用其它工作簿中的单元格。如:ActiveCell.Formula=MAX(Book1.xlsSheet3!R1C:RC4)同样需注意的是:当被引用的工作簿名中含有某些可能引起公式歧义的字符时,需要用中括号、及单引号将工作簿名括起来。如:Cells(1,2).For
16、mula=MIN(1995-2000总结.xls1995-1996年! $A$1:$A$6)5、避免循环引用在上述公式赋值过程中,应避免在公式中引用被赋值的单元格,防止循环引用错误。6、添加批注可按如下方法格给单元格添加批注:Dim 批注文本 As String批注文本=批注示例 准备批注文本ActiveCell.AddComment 添加批注ActiveCell.Comment.Text Text:=临时 写入批注文本ActiveCell.Comment.Visible=False 隐藏批注7、添加、删除、复制、剪切、粘贴单元格Range(D10).Insert Shift:=xlToRig
17、ht 在D10单元格处添加一新单元格,原D10格右移 Range(C2).Insert Shift:=xlDown 在C2单元格处添加一新单元格,原C2格下移Rows(2).EntireRow.Insert 在第2行前添加一空白行,原第2行下移Columns(3).EntireColumn.Insert 在C列前添加一空白列,原C列右移Columns(A:D).Delete Shift:=xlToLeft 删除A列至D列,其右侧列左移Rows(3:5).Delete Shift:=xlUp 删除第3行至第5行,其下方行上移Range(B2).EntireRow.Delete 删除第2行Rang
18、e(C4).EntireColumn.Delete 删除C列Range(B10:C13).Copy 复制B10至C13单元格区域Cells(1,2).Cut 剪切B1单元格Range(D10).SelectActiveSheet.Paste 自D10单元格起粘贴剪贴板中的内容四)、图表1、工作表图表以下为一添加工作表图表的实例。Charts.Add after:=Worksheets(Sheet1) 在Sheet1工作表之后添加新图表工作表ActiveChart.ChartType=xlXYScatterSmooth 图表类型为XY平滑线散点图ActiveChart.SetSourceData
19、 Source:=Sheets(结点坐标).Range(A1:B69), PlotBy:= _xlColumns 图表数据来源于结点坐标工作表的A1至B69单元格,且按列绘图。ActiveChart.Location Where:=xlLocationAsNewSheetWith ActiveChart.HasTitle = True.ChartTitle.Characters.Text = 节点坐标 图表标题节点坐标.Axes(xlCategory, xlPrimary).HasTitle = True.Axes(xlCategory, xlPrimary).AxisTitle.Charac
20、ters.Text = x x轴标题x.Axes(xlValue, xlPrimary).HasTitle = True.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = y y轴标题yEnd WithWith ActiveChart.Axes(xlCategory).HasMajorGridlines = True 显示x轴主网格线,默认情况下为显示.HasMinorGridlines = True 显示x轴次网格线,默认情况下为不显示End WithWith ActiveChart.Axes(xlValue).HasMajorGrid
21、lines = True 标出x轴主网格值,默认情况下为标注.HasMinorGridlines = False 取消x轴次网格值标注,默认情况下为不标注End WithActiveChart.Legend.Position = xlRight 图例显示在图表右侧2、嵌入式图表嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同,而对图表的设置基本类似。详见下例。Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) 在当前工作表(0,0)坐标处添加宽200,高300的嵌入式图表嵌入表.Chart.ChartType = xlColumnCluste
22、red 图表类型为簇状柱形图嵌入表.Chart.SetSourceData Source:=Sheets(1).Range(A2:B2), PlotBy:=xlRows 设置图表数据来源With 嵌入表.Chart.HasTitle = False 无图表标题.Axes(xlCategory, xlPrimary).HasTitle = False 无x轴标题.Axes(xlValue, xlPrimary).HasTitle = False 无y轴标题End With五)、工作表1、添加Sheets.Add before:=Sheets(1) 在第1工作表前添加新工作表Sheets.Add
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- EXCEL 编程 实例
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【快乐****生活】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【快乐****生活】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。