本示例將 Sheet1 上 A1 單元格的值設(shè)置為 3.14159。
Worksheets("Sheet1").Range("A1").Value = 3.14159

本示例在 Sheet1 的 A1 單元格中創(chuàng)建一個(gè)公式。
Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

本示例在 Sheet1 的單元格區(qū)域 A1:D10 上進(jìn)行循環(huán)。如果某個(gè)單元格的值小于 0.001，則此代碼將用 0（零）來取代該值。
For Each c in Worksheets("Sheet1").Range("A1:D10")
??? If c.Value < .001 Then
??????? c.Value = 0
??? End If
Next c

本示例在名為“TestRange”的區(qū)域上進(jìn)行循環(huán)，并顯示該區(qū)域中空白單元格的個(gè)數(shù)。
numBlanks = 0
For Each c In Range("TestRange")
??? If c.Value = "" Then
??????? numBlanks = numBlanks + 1
??? End If
Next c
MsgBox "There are " & numBlanks & " empty cells in this range"

本示例將 Sheet1 中單元格區(qū)域 A1:C5 上的字體樣式設(shè)置為斜體。本示例使用 Range 屬性的語法2。
Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

本示例將 Sheet1 中單元格 C5 的字體大小設(shè)置為 14 磅。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

本示例清除 Sheet1 上第一個(gè)單元格的公式。
Worksheets("Sheet1").Cells(1).ClearContents

本示例將 Sheet1 上所有單元格的字體設(shè)置為 8 磅的“Arial”字體。
With Worksheets("Sheet1").Cells.Font
??? .Name = "Arial"
??? .Size = 8
End With

本示例在 Sheet1 上的單元格區(qū)域 A1:J4 中循環(huán)，將其中小于 0.001 的值替換為 0（零）。
For rwIndex = 1 to 4
??? For colIndex = 1 to 10
??????? With Worksheets("Sheet1").Cells(rwIndex, colIndex)
??????????? If .Value < .001 Then .Value = 0
??????? End With
??? Next colIndex
Next rwIndex

本示例將設(shè)置一行的背景色
Excel.ActiveSheet.Rows(1).Interior.Color = vbRed


本示例把Sheet1中6行5列的區(qū)域中單元格值全為0的那些行標(biāo)紅。

1.Excel中“視圖”，工具欄，控件工具箱。可以從控件工具中拖入各種VBA控件。

2.打開“工具“，宏，Visual Basic編輯器，可以對控件進(jìn)行編程。(表格中的按鈕雙擊后即可進(jìn)入VBA代碼編輯界面).

3.輸入代碼
Private Sub CommandButton1_Click()
? ? Dim allIsZero As Boolean
? ? For rwIndex = 1 To 6
? ? allIsZero = True
? ? For colIndex = 1 To 5
? ?? ???With Worksheets("Sheet1").Cells(rwIndex, colIndex)
? ?? ?? ?? ?If .Value > 0 Then allIsZero = False
? ?? ???End With
? ? Next colIndex
? ? If allIsZero = True Then Worksheets("Sheet1").Rows(rwIndex).Interior.Color = RGB(255, 0, 0)
? ? Next rwIndex
End Sub