Excel VBA 基础教程——With和Parent的使用

Sub 过程名()

ThisWorkbook.Activate
'这个工作簿.激活

ThisWorkbook.Sheets("Sheet1").Select
'这个工作簿.工作表Sheet1.选择

ThisWorkbook.Sheets("Sheet1").Range("A1").Select
'这个工作簿.工作表Sheet1.单元格A1.选择

'等同于:

With ThisWorkbook.Sheets("Sheet1")

    .Parent.Activate
    '这个对象的父对象即ThisWorkbook.激活
    
    .Select
    '这个对象即ThisWorkbook.Sheets("Sheet1").选择
    
    .Range("A1").Select
    '这个对象的子对象Range("A1").选择
    'Range("A1")也可以写成[A1]
    
End With

'With就是为了把点前相同的内容写在一个位置方便修改与阅读

End Sub

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏卡少编程之旅

四个Vue的写法优化技巧

3046
来自专栏JadePeng的技术博客

Angular快速学习笔记(3) -- 组件与模板

1673
来自专栏HTML5学堂

2016.05 第四周 群问题分享

HTML+CSS 如何让正在运行的动画暂停 2016.05.23~2016.05.27 核心内容 animation-play-state属性 参考答案 ani...

3549
来自专栏Android干货

安卓开发中strings.xml的使用

1975
来自专栏葡萄城控件技术团队

如何将第三方控件嵌入ToolStrip控件,并提供Design-Time支持

最近研究了一下如何将第三方控件嵌入到ToolStrip控件中,并能提供Design-Time下的支持. 下面将详细讲解如何把系统的MonthCalendar控件...

1968
来自专栏along的开发之旅

ubuntu下sougou输入法候选词处乱码

982
来自专栏Coding01

推荐一款快速制作表单的微信小插件

今天又到分享微信小插件的时间了。只要你的小程序有提交信息的地方,你就避免不了使用「表单」功能。

1085
来自专栏偏前端工程师的驿站

WebComponent魔法堂:深究Custom Element 之 标准构建

前言  通过《WebComponent魔法堂:深究Custom Element 之 面向痛点编程》,我们明白到其实Custom Element并不是什么新东西,...

17610
来自专栏简书专栏

基于Excel2013的数据转换和清洗

数字可以被设成的格式有12种:常规、数值、货币、会计专用、日期、时间、百分比、分数、科学记数、文本、特殊、自定义

1212
来自专栏用户3211691的专栏

4、React组件之性能优化

优化并不嫌早。因为,对性能影响最关键的部分,往往涉及解决方案核心,决定整体的架构, 将来要改变的时候牵扯更大。

861

扫码关注云+社区