VBA Dev Notes - 2 - 以前写的例子

新建并显示一个WorkBook
****************************************
Sub BuildWorkbook()
Dim objExcel as Application
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add
objExcel.Visible = True
End Sub
****************************************


给单元格赋值
****************************************
Sub addDatas()
  Dim objExcel As Application
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(1, 1).Value = "小猫"
objExcel.Cells(1, 2).Value = "小狗"
objExcel.Cells(1, 3).Value = "小兔"
objExcel.Cells(1, 4).Value = "小猪"
End Sub
****************************************


设置字体格式
****************************************
Sub Setformat()
  Dim objExcel As Application
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(1, 1).Value = "My Workbook"
objExcel.Cells(1, 1).Font.Bold = TRUE
objExcel.Cells(1, 1).Font.Size = 24
objExcel.Cells(1, 1).Font.ColorIndex = 3
objExcel.Cells(1, 1).Font.Italic = TRUE
objExcel.Cells(1, 1).Font.Name = "Times New Roman"
End Sub
****************************************


ColorIndex 的色彩索引显示
*************************************************
Sub TestColor()
  Dim objExcel As Application
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
Dim i As Integer
For i = 1 to 56
objExcel.Cells(i, 1).Value = i
objExcel.Cells(i, 1).Interior.ColorIndex = i
Next
End Sub
*************************************************


Range选中范围
*************************************************
Sub TestSel()
Dim objExcel As Application
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(1, 1).Value = "Name"
objExcel.Cells(1, 1).Font.Bold = True
objExcel.Cells(1, 1).Interior.ColorIndex = 30
objExcel.Cells(1, 1).Font.ColorIndex = 2
objExcel.Cells(2, 1).Value = "小猫"
objExcel.Cells(3, 1).Value = "小狗"
objExcel.Cells(4, 1).Value = "小兔"
objExcel.Cells(5, 1).Value = "小猪"
Dim objRange As Range
Set objRange = objExcel.Range("A1", "A5")
objRange.Font.Size = 14
Set objRange = objExcel.Range("A2", "A5")
objRange.Interior.ColorIndex = 36
End Sub
*************************************************


Range1 要创建包含单个单元格的范围：
*************************************************
Set objRange2 = objExcel.Range("A1")
*************************************************
Range2 要创建包含整个列的范围：
*************************************************
Set objRange = objExcel.ActiveCell.EntireColumn
*************************************************
Range3 正如您所期望的，有相似的命令来创建包含整个行的范围：
*************************************************
Set objRange = objExcel.Range("E5")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireRow
*************************************************
Range4 要创建包含一组单元格的范围：
*************************************************
Set objRange = objExcel.Range("A1:C10")
*************************************************
Range5 要创建包含所有数据的范围：
*************************************************
Set objCell = objExcel.Range("A1").SpecialCells(11)
*************************************************


Sort 排序
*************************************************
Dim objRange2 As Range
Set objRange2 = objExcel.Range("A1")
objRange.Sort objRange2,,,,,,,1
*************************************************


下面是在我们的示例代码中解释排序参数 objRange2,,,,,,,1 的方式：
*************************************************
参数  说明
objRange2按第一列进行排序。在我们的例子中，这是包含单元格 A1 的范围。
, 第一列的排序次序。我们不使用这个参数，所以将其保留为空。
, 按第二列进行排序。我们不使用这个参数，所以将其保留为空。
, 不用于脚本。将其保留为空。
, 第二列的排序次序。我们不使用这个参数，所以将其保留为空。
, 按第三列进行排序。我们不使用这个参数，所以将其保留为空。
, 第三列的排序次序。
1指示将要进行排序的数据有标题行。
*************************************************


激活表单
*************************************************
Sub Activate()
Worksheets(3).Activate
Sheet(1).Activate
End Sub
*************************************************