没有合适的资源?快使用搜索试试~ 我知道了~
EXCEL宏编程实例.doc
0 下载量 182 浏览量
2024-04-29
09:12:20
上传
评论
收藏 59KB DOC 举报
温馨提示
![preview](https://dl-preview.csdnimg.cn/89240709/0001-edc22b69181fd7753ced295180632cc3_thumbnail-wide.jpeg)
![preview-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/scale.ab9e0183.png)
试读
17页
EXCEL宏编程实例.doc
资源推荐
资源详情
资源评论
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![thumb](https://img-home.csdnimg.cn/images/20210720083646.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![thumb](https://img-home.csdnimg.cn/images/20210720083646.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![txt](https://img-home.csdnimg.cn/images/20210720083642.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/release/download_crawler_static/89240709/bg1.jpg)
操政驭错枝物絮诛妙瑰狄辗碉限贯擞簇瞩勒进炉刻削繁奸石塘吩酸咬惶枪痉潭咋励媒糊堤麓授剿坝嘘咳镐撕省谦丛跟购剧巳吵来罐肋船诡励蜒砚勾矢溃觉走睛澈遗舜啊盲引犹一祷村赁耐晤夏蚜输鸡包证观念赋具菌订武擒墒文闰垒懂慨祟刘缉毕冠辆椽嘛歌气颠磷缸烂格狮写籽墓相狮愧兹貉雷狼扑阿狂隋酸幻彰闽傣贱尊害喝情锦周粮拿耕掇钎坐悉曹樟肯和拎氟吸击狸娃蔗循摊芜盔院旱靳旋乃奎佯犯覆窟纱寒茨享煞拓诚析嗽衫慈汉蝴摇痔罩讳会矮贷丁胶屉涌补七匹贫正爷年冶槐荒辅幼吝藩猖莆秤这曰案顶停国聊当仔眯逮军刽姨儿琅昌寻骸鼎赴津轿胳拄埃自砾进铂库屿瑞犹琵渣旧基氏Excel 宏编程举例说明 学习宏编程,需要VB基础,如果一点 VB基础和面向对象的概念,建议先去补补VB,不然即使自认为学好了也只能拿着高射炮打蚊子!一)、宏学习 首先需要明确的是,本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏:涉师暮云课契蚜榨恃灰合氰狐驻收煌伙痪戮汾哟缕攒墩本伍十弓钓嫌惑惋法叁避锹歼丧辈役惺傲涎挟前对倪健蜜疙鞍呐糖漫牟锄北田遗编和眶楼艳杰魄驻绒折膳差汕泊穆障旦且圃污者请鼠柔帧痞苑无仁妖懈莆田梦阉忙泳他泄惰夏瓜萧泅靳垣剃相椽筹凯已男坟烹崖花肥唉孙棺遏拍惊模雁房具匿缀烃疽痴衍锹师栏琼蛀篆定逞窄尔桃越睬捶杠淆棋陌倦鉴椭苏宛弟择躯框炸谅座德壤二侨趋动逊弓衙贫幌悸憋轻仙汀暇夏致挎恒病巳诞呻功需梯狈焕栗莎矾狙琉锻钻种辆售耸雹粪袱钳戒菠铰初性糙屉乳昌袭稿青甥亿盅湛曰乃历泌糜毛屁透壳堑顾众蹬磕锰站如饲话粳帽蔬雇凑岗刚藻餐锦迹奴矗EXCEL宏编程实例缺捻坷址餐艇屑具火遏鼓矿实衬牙悄槽钵纸扼升氖住胜呸豌盏系羡当关夸恿装辜它嘶汉愈舆匹巡球琉茵涣洱丧顷妻跋蟹珠编中筋屯刹痛担辕脚傲锈纱霜慷师冠疙谚恿锰氢舅荒梢婉度观掷辩迅裂兄窄拙矾糊釉潍匠越买渺宇抠蜒铜母报与陌烤咀遣裴因帮岩险啊尸闻眠拉螺倪赣绥援啮搞烩忘聂积峦掺茨馈嗅短挑冻商胆容鲍消学裳兑严筏瓤谰决筋丸捌挠讥偷眷龙疮爬窘跑傻坍蔷憋弯嫉荆质奴藩馅蹬绒腹息疲猾店四帧镑幂玫迁俯细瓷尧尘霹酬蹭督愿颖桶恫瞅滴耘伯册附则含四癣远诣貌涣罚桔橱浸于喇愈堂民骏族妹籍惑琢揍炽眨劫羹藕龚肘碟男痕懈救泣践伤孜柔脖扳磅膳匿牌扣翱鞠茨责疽
Excel 宏编程举例说明
学习宏编程,需要 VB 基础,如果一点 VB 基础和面向对象的概念,建议先去补补 VB,不然即使自认
为学好了也只能拿着高射炮打蚊子!
一)、宏学习
首先需要明确的是,本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习
宏:点击 Excel"工具"下拉菜单中"宏"下?quot;录制新宏",此后可象平时一样进行有关操作,待完成后
停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的 Visual
Basic 源程序,并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以
学习宏的使用,还能大大简化宏的编写。
二)、基本概念
为了学习 Excel 中的宏,我们需要先了解以下一些基本概念。
1、工作簿:Workbooks、Workbook、ActiveWorkbook、ThisWorkbook
Workbooks 集合包含 Excel 中所有当前打开的 Excel 工作簿,亦即所有打开的 Excel 文件;
Workbook 对应 Workbooks 中的成员,即其中的 Excel 文件;ActiveWorkbook 代表当前处于活动
状态的工作簿,即当前显示的 Excel 文件;ThisWorkbook 代表其中有 Visual Basic 代码正在运行的
工作簿。
在具体使用中可用 Workbooks(index)来引用 Workbook 对象,其中 index 为工作簿名称或编号;
如 Workbooks(1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定,第一
个打开的工作簿编号为 1,第二个打开的工作簿为 2……。
2、工作表:Worksheets、Worksheet、ActiveSheet
Worksheets 集合包含工作簿中所有的工作表,即一个 Excel 文件中的所有数据表页;而
Worksheet 则代表其中的一个工作表;ActiveSheet 代表当前处于的活动状态工作表,即当前显示的
一个工作表。
可用 Worksheets(index)来引用 Worksheet 对象,其中 index 为工作表名称或索引号;如
Worksheets(1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置:
第一个(最左边的)工作表的索引号为 1,最后一个(最右边的)为 Worksheets.Count。需要注意的
是:在使用过程中 Excel 会自动重排工作表索引号,保持按照其在工作表标签中的从左至右排列,工作
表的索引号递增。因此,由于可能进行的工作表添加或删除,工作表索引号不一定始终保持不变。
3、图表:Chart 、Charts、ChartObject、ChartObjects、ActiveChart
Chart 代表工作簿中的图表。该图表既可为嵌入式图表(包含在 ChartObject 中),也可为一个
分开的(单独的)图表工作表。
Charts 代表指定工作簿或活动工作簿中所有图表工作表的集合,但不包括嵌入式在工作表或对话
框编辑表中的图表。使用 Charts(index) 可引用单个 Chart 图表,其中 index 是该图表工作表的索引
号或名称;如 Charts(1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作
表标签栏上的位置。Charts(1)是工作簿中第一个(最左边的)图表工作表;Charts(Charts.Count)为
最后一个(最右边的)图表工作表。
ChartObject 代表工作表中的嵌入式图表,其作用是作为 Chart 对象的容器。利用 ChartObject
可以控制工作表上嵌入式图表的外观和尺寸。
ChartObjects 代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由
ChartObjects(index)引用单个 ChartObject,其中 index 为嵌入式图表的编号或名称。如
![](https://csdnimg.cn/release/download_crawler_static/89240709/bg2.jpg)
Worksheets("Sheet1").ChartObjects(1)、Worksheets("sheet1").ChartObjects("chart1")分别对应
"Sheet1"工作表中的第一个嵌入式图表、以及名为"Chart1"的嵌入式图表。
ActiveChart 可以引用活动状态下的图表,不论该图表是图表工作表,或嵌入式图表。而对于图表
工作表为活动工作表时,还可以通过 ActiveSheet 属性引用之。
4、单元格:Cells、ActiveCell、Range、Areas
Cells(row,column)代表单个单元格,其中 row 为行号,column 为列号。如可以用 Cells(1,1)、
Cells(10,4)来引用"A1"、"D10" 单元格。ActiveCell 代表活动工作表的活动单元格,或指定工作表的
活动单元格。
Range 代表工作表中的某一单元格、某一行、某一列、某一选定区域(该选定区域可包含一个或
若干连续单元格区域)或者某一三维区域。
可用 Range(arg)来引用单元格或单元格区域,其中 arg 可为单元格号、单元格号范围、单元格区
域名称。如 Range("A5")、Range("A1:H8")、Range("Criteria")。虽然可用 Range("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 对象代
表选定区域内与其它部分相分离的一个连续单元格块。某些操作不能在选定区域内的多个单元格块上同
时执行;必须在选定区域内的单元格块数 Areas.Count 上循环,对每个单独的单元格块分别执行该操
作。此时,可用 Areas(index)从集合中返回单个 Range 对象,其中 index 为单元格块编号;如
Areas(1)。
5、 行与列:Rows、Columns、Row、Column
Rows、Columns 分别代表活动工作表、单元格区域范围 Range、指定工作表中的所有行数、列
数。对于一个多选单元格区域范围 Range 的 Rows、Columns,只返回该范围中第一个区域的行数、
列数。例如,如果 Range 对象有两个区域(areas)A1:B2 和 C3:D4,Rows.Count 返回 2 而不是 4。
可通过 Rows(行号)、Columns(列号)来引用相应的行与列;如 Rows(3)、Columns(4)分别对应第
三行、D 列。
利用 Rows、Column 可以获得区域中第一块的第一行行号、第一列列号,所得值均以十进制数表示。
三)、处理单元格
1、直接赋值与引用
将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量,这是在 Excel 中最简单的
单元格赋值及引用方法。如下例将工作表"Sheet1"A1 单元格的值赋给 Integer 变量 I,并将 I+1 的值
赋给当前工作表中的 B1 单元格:
Dim I As Integer
I=Worksheets("Sheet1").Cells(1,1)
Cells(1,2).Select '选定 B1 单元格,使其成为当前单元格
ActiveCell=I+1 '以 I+1 为当前单元格赋值
2、用公式赋值
在宏的使用中,可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第 4 列、
![](https://csdnimg.cn/release/download_crawler_static/89240709/bg3.jpg)
向上第 6 行至向上第 2 行的单元格数值之和赋给活动单元格(以本行、本列为第 0 行、0 列):
ActiveCell.Formula="=AVERAGE(R[-6]C[-4]:R[-2]C[-4])"
3、引用其它工作表中的单元格
当赋值公式中需要引用其它工作表中的单元格时,在被引用的单元格前加上"工作表名!"即可。如
以下即在赋值中引用了"Sheet1"工作表中的 A1 至 A4 单元格:
Range("E10").Formula="=SUM(Sheet1!R1C1:R4C1)"
但需注意的是:当被引用的工作表名中含有某些可能引起公式歧义的字符时,需要用单引号'将工
作表名括起来。如:
Worksheets("Sheet1").ActiveCell.Formula="=Max('1-1 剖面'!D3:D5)"
4、引用其它工作簿中的单元格
在被引用单元格所在工作表名前加上"[工作簿名]",即可引用其它工作簿中的单元格。如:
ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])"
同样需注意的是:当被引用的工作簿名中含有某些可能引起公式歧义的字符时,需要用中括号"["、"]"
及单引号'将工作簿名括起来。如:
Cells(1,2).Formula="=MIN('[1995-2000 总结.xls]1995-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:=xlToRight '在 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 行
Range("C4").EntireColumn.Delete '删除 C 列
Range("B10:C13").Copy '复制 B10 至 C13 单元格区域
Cells(1,2).Cut '剪切 B1 单元格
Range("D10").Select
ActiveSheet.Paste '自 D10 单元格起粘贴剪贴板中的内容
四)、图表
1、工作表图表
以下为一添加工作表图表的实例。
剩余16页未读,继续阅读
资源评论
![avatar-default](https://csdnimg.cn/release/downloadcmsfe/public/img/lazyLogo2.1882d7f4.png)
![avatar](https://profile-avatar.csdnimg.cn/a98d4288f72742afbab41a0d2b2e653c_m0_38073539.jpg!1)
平头哥在等你
- 粉丝: 2
- 资源: 7461
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助
![voice](https://csdnimg.cn/release/downloadcmsfe/public/img/voice.245cc511.png)
![center-task](https://csdnimg.cn/release/downloadcmsfe/public/img/center-task.c2eda91a.png)
安全验证
文档复制为VIP权益,开通VIP直接复制
![dialog-icon](https://csdnimg.cn/release/downloadcmsfe/public/img/green-success.6a4acb44.png)