计算选中单元格的数目

昨天发布的单元格操作01，有网友回复如下：

今天我们就讲一下，如何获取选中单元格的数目。 使用Range对象的count的属性可以确定单元格区域中包含单元格的数目。 代码如下：

Sub 获取单元格的数量()

num = Sheet1.Range("A1048576").End(xlUp).Row '最后一列的行号

MsgBox ("本次选中了" & Range("a1:a" & num).Count & "个单元格")

End Sub

代码演示如下：

获取整个表格的单元格代码如下：

Sub 获取当前活动区域()

num = Sheet1.Range("A1048576").End(xlUp).Row

col = Sheet1.Range("XFD1").End(xlToLeft).Column

a = num * col

MsgBox ("本次选中了" & a & "个单元格")

End Sub

代码演示的结果就不上传了，有兴趣的话，可以复制在VBA窗口，看一下结果。

说明：由于获取的列编号在VBA里面直接反馈的是数值，所以这里用偷巧的方式，直接获取了表格的数量。实际上应该用函数把获得列号转化成数值的。

单元格的复制与粘帖

在实际操作中，经常需要复制指定的单元格区域到另外一个单元格区域。要复制指定单元格区域到其他位置，使用Range对象的Copy方法。

代码如下：

Sub RangeCopy()

Application.DisplayAlerts = False

Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")

Application.DisplayAlerts = True

End Sub

代码演示如下：

注：1：Range的CurrentRegion的属性返回当前的指定区域，当前区域是一个边缘是任意空行和空列组合成的范围。 2：本例的复制、粘帖代码使简写。

• 单元格的格式设置

1. 单元格字体设置
2. 在VBA中可以对单元格的字体格式进行各种设置，如下面的代码所示。

Public Sub RngFont() With Range("A1").Font '对A1单元格进行字体设置 .Name = "华文彩云" 'Name属性返回或设置对象的名称 .FontStyle = "Bold" 'FontStyle属性返回或设置字体样式。设置为"Bold" 加粗字体，设置为"Italic"倾斜字体 .Size = 18 'Size属性返回或设置字体大小 .ColorIndex = 3 'ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号 .Underline = 2 'Underline属性返回或设置应用于字体的下划线

End With

End Sub

代码演示如下：

Underline的常量

閱讀更多 浮雲Excel分享 的文章

關鍵字: Excel 单元格 数目