1.Excel中“视图”,工具栏,控件工具箱。可以从控件工具中拖入各种VBA控件。
2.打开“工具“,宏,Visual Basic编辑器,可以对控件进行编程。(表格中的按钮双击后即可进入VBA代码编辑界面).
3.表格的Range属性和Cells属性使用示例:
本示例将 Sheet1 上 A1 单元格的值设置为 3.14159。
Worksheets("Sheet1").Range("A1").Value = 3.14159
本示例在 Sheet1 的 A1 单元格中创建一个公式。
Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
本示例在 Sheet1 的单元格区域 A1:D10 上进行循环。如果某个单元格的值小于 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”的区域上进行循环,并显示该区域中空白单元格的个数。
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 中单元格区域 A1:C5 上的字体样式设置为斜体。本示例使用 Range 属性的语法2。
Worksheets("Sheet1").
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
本示例将 Sheet1 中单元格 C5 的字体大小设置为 14 磅。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
本示例清除 Sheet1 上第一个单元格的公式。
Worksheets("Sheet1").Cells(1).ClearContents
本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。
With Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With
本示例在 Sheet1 上的单元格区域 A1:J4 中循环,将其中小于 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
本示例将设置一行的背景色
Excel.ActiveSheet.Rows(1).Interior.Color = vbRed
本示例把Sheet1中6行5列的区域中单元格值全为0的那些行标红。
1.Excel中“视图”,工具栏,控件工具箱。可以从控件工具中拖入各种VBA控件。
2.打开“工具“,宏,Visual Basic编辑器,可以对控件进行编程。(表格中的按钮双击后即可进入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
posted on 2006-10-29 12:26
小言身寸 阅读(1192)
评论(0) 编辑 收藏 所属分类:
软件应用