計算選中單元格的數目

昨天發佈的單元格操作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 單元格 數目