[VB编程小程序.docVIP

新建excel表 Private Sub CommandButton2_Click() Set NewBook = Workbooks.Add With NewBook .Title = All Sales .Subject = Sales .SaveAs Filename:=汇总.xls‘文件名 End With End Sub Private Sub CommandButton3_Click() Sheets.Add End Sub 打开工作表 Sub OpenUp() Workbooks.Open(C:\MyFolder\MyBook.xls) End Sub 可使用 Range 属性来引用 A1 引用样式中的单元格或单元格区域。下述子程序将单元格区域 A1:D5 的字体设置为加粗。 Sub FormatRange() Workbooks(Book1).Sheets(Sheet1).Range(A1:D5).Font.Bold = True End Sub 通过使用行列编号，可用 Cells 属性来引用单个单元格。该属性返回代表单个单元格的 Range 对象。下例中，Cells(6,1) 返回 Sheet1 上的单元格 A6，然后将 Value 属性设置为 10。 Sub Enter