77家的会客2010

日归档: 2008年03月05日 | 记录数: 4
工作表(Worksheet)基本操作应用示例
Weather:晴转阴,南风3-4级转北风3-4级,(1~8)℃

在编写代码时,经常要引用工作表的名字、知道工作表在工作簿中的位置、增加工作表、删除工作表、复制工作表、移动工作表、重命名工作表,等等。下面介绍与此有关及相关的一些属性和方法示例。
 


[示例04-01]增加工作表(Add方法)
Sub AddWorksheet()
   MsgBox "在当前工作簿中添加一个工作表"
   Worksheets.Add
   MsgBox "在当前工作簿中的工作表sheet2之前添加一个工作表"
   Worksheets.Add before:=Worksheets("sheet2")
   MsgBox "在当前工作簿中的工作表sheet2之后添加一个工作表"
   Worksheets.Add after:=Worksheets("sheet2")
   MsgBox "在当前工作簿中添加3个工作表"...

工作簿(Workbook)基本操作应用示例(一)
Weather:晴转阴,南风3-4级转北风3-4级,(1~8)℃

Workbook对象代表工作簿,而Workbooks集合则包含了当前所有的工作簿。下面对Workbook对象的重要的方法和属性以及其它一些可能涉及到的方法和属性进行示例介绍,同时,后面的示例也深入介绍了一些工作簿对象操作的方法和技巧。
 


示例03-01:创建工作簿(Add方法)
[示例03-01-01]
Sub CreateNewWorkbook1()
   MsgBox "将创建一个新工作簿."
   Workbooks.Add
End Sub...

Range对象基本操作应用示例
Weather:晴转阴,南风3-4级转北风3-4级,(1~8)℃

Range对象可能是VBA代码中最常用的对象,Range对象可以是某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域。下面介绍Range对象的一些属性和方法。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

[示例05-01] 赋值给某单元格
[示例05-01-01]
Sub test1()
Worksheets("Sheet1").Range("A5").Value = 22
MsgBox "工作表Sheet1内单元格A5中的值为" _
& Worksheets("Sheet1").Range("A5").Value...
Excel Application对象及其常用方法基本操作应用示例
Weather:晴转阴,南风3-4级转北风3-4级,(1~8)℃

Application对象代表整个Microsoft Excel应用程序,带有175个属性和52个方法,可以设置整个应用程序的环境或配置应用程序。

 示例01-01:体验开/关屏幕更新(ScreenUpdating属性)
Sub 关闭屏幕更新()
   MsgBox "顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2,先开启屏幕更新,然后关闭屏幕更新"
   Worksheets(1).Select
   MsgBox "目前屏幕中显示工作表Sheet1"
   Application.ScreenUpdating = True