二维码 购物车
登录 |  注册 | 
我的购物车
部落窝在线教育欢迎您!
  • 图文教程 >
  • 电脑与办公教程 >
  • EXCEL >
  • 别怕,宏其实很简单!VBA入门教程之元素篇!

别怕,宏其实很简单!VBA入门教程之元素篇!

 

作者:赋春风来源:部落窝教育发布时间:2022-02-16 17:21:29点击:1222

分享到:
0
收藏    收藏人气:0人
版权说明: 原创作品,禁止转载。

编按:

当今信息时代,会电脑的人基本上都在用Excel,对于更深的Excel高级技巧(宏),知道的人很多,掌握的却寥寥,今天就来给大家介绍一下宏程序的元素,因为只有掌握了宏程序的基本元素,用起来才能得心应手。

 

一、对象与集合介绍

1、何为对象

“对象”代表应用程序中的“元素”。如果在宏模块中输入语句“Range(“A1”)=2022”,则表示在A1单元格中输入“2022”的数据,换句话说,“Range(“A1”)”即表示A1单元格。“Range(“A1”) ”就是对象。

 

 

再举个例子,工作簿为Workbook对象,工作表为Worksheet对象,单元格为Range对象,所有的操作目标都是对象。最初的“Range(“A1”)=2022”是对A1单元格的Range对象输入了“2022”的数值。

 

 

2、何为集合

集合是一种特殊的对象,它是一个包含多个同类对象的对象容器。比如,工作表是以Worksheet这个对象来表示,但是,大部分的工作簿中都包含有多个工作表,因此位于同一个工作簿中的所有工作表便以Worksheets来表示。像这样由多个对象组成,称为集合。

表示对象时,有的会以“集合中的1个”来进行指定。

例如,聚集多个单张工作表(Worksheet)的集合为Worksheets,在指定其中的“Sheet2”这个特定的工作表时,就会使用像“Worksheets(“sheet2”)”这种表示方法来记录。



如果要是表示工作表中的一个单元格,就指定工作表及其单元格两个部分。例如工作表Sheet2A1单元格应指定成“Worksheets(“Sheet2”).Range(“A1”)”。注意,要在两者之间加上“.”来表示。

当执行下面的宏,在工作表Sheet2A1单元格中就会输入“新春快乐”。

 

 

二、属性介绍

1、何为属性

如果假设“对象”为小狗,则“属性”即为小狗的“重量”、“颜色”等。直接通过一个小例子来介绍“属性”,下面是“把A1单元格的列宽设置为40”的宏代码。


 

这里,“Range("A1")”表示的是A1单元格,而“ColumnWidth”则用来表示列宽。类似于“ColumnWidth”这种对“对象”的设置,便称为属性。属性还有很多,如,“RowHeight”表示“行高”的属性,“Value”表示“值”的属性。

 

属性要写在对象的后面,要在两者之间加上“.”。也就是“对象.属性”这样的形式。同样如果编辑器中输入“Range("A1"). RowHeight=40”就会将A1单元格的行高设置为40

 

之前我们写过“Range(“A1”)=2022”,就是将数据“2022”输入到A1单元格中,但像这样直接将数据输入到对象的做法本来是不允许的。正确写法是“Range(“A1”). Value=2022”。但是, Excel中有把“Range(单元格)”作为“Range(单元格).Value”来处理的规则,因此,就算省去了 “Value”属性也能顺利运行。

 

2、实际练习

下面,让我们通过设置字体和颜色来巩固一下 “对象”、“属性”的相关知识吧!

 

要求:将“A1:I1”单元格区域的字体大小设置为12,颜色设置为红色。需要说明“ColorIndex”为设置“颜色”的属性,“Size”为设置“大小”的属性。

 

1.分析

如果以“Range(“A1:E1”).Size”来设置适当的值,似乎就能简单的更改字体大小,实际上仅仅这样操作就会发生错误。属性并非对任何对象都能设置。不能直接对“Range”对象设置“Size”属性。要对“Font”对象设置 “Size”属性。“Font”是表示字体属性的的对象。“Font”对象位于“Range”对象的下一级。因此,将“A1:I1”单元格区域的字体大小设置为12的语句为“Range("A1:E1").Font.Size = 12” 。同样,使用“ColorIndex”为设置颜色编号的属性,其颜色编号与颜色的对照为,黑色代码为1,白的代码为2,红色代码为3,绿色代码为4,蓝色代码为5,黄色代码为6,紫色代码为7,青色代码为8,将“A1:I1”单元格区域的字体颜色设置为红色的语句为“Range("A1:E1").Font.ColorIndex = 3” 。

 

2.具体步骤

①单击“开发工具”选项卡下的“代码”选项组中的“Visual Basic”按钮。

②打开“Visual Basic”窗口,选择“插入”、“模块”选项,弹出“工作簿-模块1”窗口。

③将以下代码输入或复制到“工作簿-模块1”窗口中。

Sub 更改字体()

Range("A1:I1").Font.Size = 12

Range("A1:I1").Font.ColorIndex = 3

End Sub”

其中,Sub是宏过程,End Sub是结束宏过程,一个过程就是执行某项动作的一套指令,Sub过程不返回运行的结果,在这个过程中需要执行的代码放在中间。

④编写完宏后,选择“文件”、“关闭并返回到Microsoft Excel”选项,即可关闭窗口。

⑤在“开发工具”选项卡下“代码”选项组中的“宏”按钮上单击,在弹出的快捷菜单中选择“执行”命令。即可运行宏。


 

三、方法介绍

1.何为方法

所谓“方法”就是指针对“对象”所进行的处理,以“清除”和“删除两个为例来说明“方法”的应用。在清除单元格区域时,要对“Range”对象使用“Clear”方法,例如清除单元格区域“D1:D10”时,就可执行“Range("D1:D10").Clear”的宏。这个宏表示对Range("D1:D10")对象执行“Clear”方法。在编写时,对象和方法之间也要加上“.”。


 

刚才的“清除”是用来清除设置在单元格中的值,但单元格还会被保留下来,下面来学习“删除”操作的宏,该操作会将单元格本身整个删除。因此,单元格被删除后,其工作表中的单元格结构也会发生变化。删除单元格区域的方法为“Delete”,下面的宏会删除单元格区域“D1:D10”。执行“Range("D1:D10").Delete”的宏。这个宏表示对Range("D1:D10")对象执行“Delete”方法。在编写时,对象和方法之间也要加上“.”。


 

2.方法的参数

在方法中设置细节的工作便成为“参数”。比如以“Delete”方法删除的移动方向也能由用户自行指定,下面让其删除后向上移动的设置,“Range("D4:D7").Delete xlShiftUp”,输入方法“Delete”后空一格再输入“xlShiftUp”,就可以当“D4:D7”被删除后“D8:D10”单元格自动向上移动。


 

OK,今天春风通过浅显易懂的语言,为小伙伴们介绍了宏中涉及到的“对象”、“属性”、“方法”,希望大家下次遇到这些元素时对他们不再陌生。

 

本文配套的练习课件请加入QQ群:902294808下载。

Excel高手,快速提升工作效率,部落窝教育 《一周Excel直通车》视频和 《Excel极速贯通班》直播课全心为你!

扫下方二维码关注公众号,可随时随地学习Excel

IMG_256

相关推荐:

将excel中的数据按照指定数量进行重复,非得用VBA才能实现吗?

如何在特定位置批量插入空行等12种实用办公技巧

4种删除excel重复值的小妙招,速收藏

Power Query的数据替换技巧比Excel函数更万能!

版权申明:

本文作者赋春风;同时部落窝教育享有专有使用权。若需转载请联系部落窝教育。

 

上一篇:小白学WPS表格③——边框和底纹调整
下一篇:如何批量将数据透视表的计数字段更改为求和呢?

最热教程

  • 像绿皮火车一样长像珠穆拉玛峰一样高的Excel表怎么操作才方便?
  • Power Query实战:按指定次数递增数据
  • 2019年全网最全—excel提取身份证信息合集!(建议收藏)-下篇
  • 明明没有重复,Excel却判定数据重复,这是怎么回事?
  • 文本格式的求和,及求和中最容易出现的问题解疑
  • 致命缺陷:不懂一维表!
  • 函数组合思维,你有吗?
  • 学会这2个公式,整理考勤数据只要一分钟
  • 就算被说是拍马屁也成,今天你应该这样发Excel报表……
  • 如何计算Excel单元格中的算式,四种求和方法请收好!

最新教程

  • 用LAMBDA自定义颜色求和函数
  • 用SUMIF错位求和多表求和与查找
  • BYROW和BYCOL函数用法详解
  • makearray函数用法6例
  • PDF转Excel表格的两种免费方法
  • Excel加PPT三步完成图片批量加水印
  • SCAN函数基本用法和典型应用
  • MAP函数如何使用?有何意义?
  • 简单6步完成Excel气泡地图
  • 如何理解和使用REDUCE函数?

资讯网58免费影视大全申起名百家姓张起名好的网站设计公司教育seo培训谷姓女孩起名字吗seo优化服务公司战地4攻略长春胡须种植多少钱精彩人生伴你成长算命福七珠宝是品牌吗女孩子余姓起名乳山网站制作黑松露多元养生粉西安建设网站制作seo秒收录芳草萋萋鹦鹉洲周易起名字八字名字大全慈溪网站建设真正的免费的起名软件排行榜党的伟大成就心得体会在线商店起名海魂养生产品祥天集团最近上市新闻商城网站建设流程新年快乐祝福语巴威升级成强台风周公解梦梦到杀鸡及时雨男孩子起名姓莫少年生前被连续抽血16次?多部门介入两大学生合买彩票中奖一人不认账让美丽中国“从细节出发”淀粉肠小王子日销售额涨超10倍高中生被打伤下体休学 邯郸通报单亲妈妈陷入热恋 14岁儿子报警何赛飞追着代拍打雅江山火三名扑火人员牺牲系谣言张家界的山上“长”满了韩国人?男孩8年未见母亲被告知被遗忘中国拥有亿元资产的家庭达13.3万户19岁小伙救下5人后溺亡 多方发声315晚会后胖东来又人满为患了张立群任西安交通大学校长“重生之我在北大当嫡校长”男子被猫抓伤后确诊“猫抓病”测试车高速逃费 小米:已补缴周杰伦一审败诉网易网友洛杉矶偶遇贾玲今日春分倪萍分享减重40斤方法七年后宇文玥被薅头发捞上岸许家印被限制高消费萧美琴窜访捷克 外交部回应联合利华开始重组专访95后高颜值猪保姆胖东来员工每周单休无小长假男子被流浪猫绊倒 投喂者赔24万小米汽车超级工厂正式揭幕黑马情侣提车了西双版纳热带植物园回应蜉蝣大爆发当地回应沈阳致3死车祸车主疑毒驾恒大被罚41.75亿到底怎么缴妈妈回应孩子在校撞护栏坠楼外国人感慨凌晨的中国很安全杨倩无缘巴黎奥运校方回应护栏损坏小学生课间坠楼房客欠租失踪 房东直发愁专家建议不必谈骨泥色变王树国卸任西安交大校长 师生送别手机成瘾是影响睡眠质量重要因素国产伟哥去年销售近13亿阿根廷将发行1万与2万面值的纸币兔狲“狲大娘”因病死亡遭遇山火的松茸之乡“开封王婆”爆火:促成四五十对奥巴马现身唐宁街 黑色着装引猜测考生莫言也上北大硕士复试名单了德国打算提及普京时仅用姓名天水麻辣烫把捣辣椒大爷累坏了

资讯网 XML地图 TXT地图 虚拟主机 SEO 网站制作 网站优化