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

林万程

发布于 2018-06-21 17:09:20

1.5K0

发布于 2018-06-21 17:09:20

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

本文参与腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2017.03.01 ，如有侵权请联系 cloudcommunity@tencent.com 删除

vba