Excel VBA -单元格的操作（02）

• 计算选中单元格的数目昨天发布的单元格操作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|会计用 双下划线