-
计算选中单元格的数目昨天发布的单元格操作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. 单元格字体设置
在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的常量常量 | 数字| 描述
---|---|---
xlUnderlineStyleNone |-4142| 无
xlUnderlineStyleSingle |2| 单下划线
xlUnderlineStyleDouble| -4119| 双下划线
xlUnderlineStyleSingleAccounting| 4| 会计用单下划线
xlUnderlineStyleDoubleAccounting|5|会计用 双下划线
网友评论