《VBA之Excel应用》(版权©️10178983)是非常经典的,是我推出的第七套教程,定位于初级,目前是第一版修订。这套教程从简单的录制宏开始讲解,一直到窗体的搭建,内容丰富,实例众多。大家可以非常容易的掌握相关的知识,这套教程共三册,十七章,都是我们在利用EXCEL工作过程中需要掌握的知识点,希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第四章第七节:单元格区域的整行或整列扩展(Entire Rows and Columns)
【分享成果,随喜正能量】255人不争,一身轻松,事不比,一路畅通,心不求,一生平静。一杯清茶足以。过度的清醒,会让人觉得薄凉冷漠,过度的沉醉,又会让人感到浮浅迷离,所以,完美的人生,当是留一半清醒,留一半醉意。。
第四章 单元格(Range)对象大家好,我们这章开始学习单元格对象。单元格(Range)对象是Excel VBA中最重要的对象之一。本章概述了Range对象的属性和方法,包括如何声明一个单元格对象,如何选择单元格对象,以及对行、列的操作,还讲解了如何对单元格进行复制、粘贴、清除、计数,以及对当前区域CurrentRegion的讲解,还涉及到单元格的联合与交叉等。通过这章的学习,大家会更清楚地看到VBA的结构,以及在实际工作中VBA的综合利用。
第七节 单元格区域的整行或整列扩展(Entire Rows and Columns)大家好,我们在上节讲解了用Resize属性来调整单元格区域的大小,这讲我们讲解单元格的整行或整列的扩展方法。单元格区域的扩展是一块非常重要的内容,我们要认真掌握。
1 Range.EntireRow 属性这个属性返回一个Range对象, 该对象代表包含指定区域的整行 (或多行)。 此为只读属性。
语法:expression.EntireRow
其中 expression 一个表示 Range 对象的变量
2 Range.EntireColumn 属性这个属性返回一个Range对象, 该对象代表包含指定区域的整列 (或多列)。 此为只读属性。
语法:expression.EntireColumn
其中 expression 一个表示 Range 对象的变量
3 行和列的一般选择方法1)下面的代码将选择整个工作表
Cells.Select
2)下面的代码将选择整个第二个工作表
Worksheets(2).Activate
Worksheets(2).Cells.Select
3)下面的代码将选择第二列
Columns(2).Select
4)下面的代码将选择第五行
Rows(5).Select
5)下面代码将选择五到七行
Rows("5:7").Select
6)下面代码将选择B到E列
Columns("B:E").Select
4 EntireRow和EntireColumn的应用实例1)我们先选择一个单元格,然后利用下面代码就可以选择这个单元格所在的整行:
ActiveCell.EntireRow.Select
2) 我们先选择一个单元格,然后利用下面代码就可以选择这个单元格所在的整列:
ActiveCell.EntireColumn.Select
3) 实例应用:选择任意一个单元格,然后将值2输入到包含这个活动单元格的列的第一个单元格中。
ActiveCell.EntireColumn.Cells(1).Value = 2
4)实例应用:选择任意一个单元格,然后将值2输入到包含活动单元格的行下面的第一个单元格中。
ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = 2
5)实例应用:
点击任意一个单元格,在整个行输入“NZ”,在整个列输入“VBA”,在活动单元格的行下面的行中第一个单元格中输入“欢迎”。
我们看下面的代码,代码是写在了Worksheet_SelectionChange事件中:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearContents
ActiveCell.EntireRow.Value = "NZ"
ActiveCell.EntireColumn.Value = "VBA"
ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = "欢迎"
End Sub
代码截图:
代码的讲解:Cells.ClearContents 是先清空整个工作表。其余的就不再多讲了。
代码的实现效果:
今日内容回向:
1) 单元格的EntireRow和EntireColumn属性意义是什么,有什么作用?
2) 如何实现整行下一行单元格区域的定位?
3) 单元格的EntireRow和EntireColumn属性的返回值是什么?
本讲内容参考程序文件:工作簿04.xlsm
我20多年的VBA成果全在下面的资料中: