多语言展示
当前在线:1237今日阅读:84今日分享:32

VBA—对象举例1

对象应用举例:Sub  ObjectvarExample()Dim WorkingRange  As RangeSet WorkingRange=Workbooks('Hour8').Worksheets('Sheet1').Range('A1:D1')WorkingRange.Font.Bold=TrueWorkingRange.Font.Italic=TrueWorkingRange.Font.Name='Courier'End Sub如果需要输入同样的对象的名字全称两次以上,就创建一个对象变量以节省输入时间。
方法/步骤
1

Workbooks和Worksheets是集合,一个集合是指一组相似的对象。所有集合的一个共有特点是可以添加项目。通过添加可以在集合中创建新的元素。要添加一个新的工作簿,可以使用如下代码:Workbooks.Add集合支持一个非常有用的名叫Count的属性。Count属性保存集合中元素的数目。如果希望知道一个工作簿中包括多少张工作表,可以使用如下代码:Dim iWSCount As IntegerIWSCount=Worksheets.Count

2

Application对象应用程序级的设置与选项:Application.screenupdating=false用于设置程序执行完后再显示更改结果。Application.displaystatusbar=false用于隐藏状态栏。Application.displayalerts=false用于隐藏屏幕提示。Application还可以使用函数:sngAnswer=Application.Average(Worksheets('Sheet1').Range('A1:A4'))sngAnswer=Application.Sum(Worksheets('Sheet1').Range('A1:A4'))

3

ActiveWorkbook返回当前活动的工作簿。•ActiveSheet返回当前活动的工作簿中活动的工作表。返回的工作表可以是Excel支持的任何工作表类型,包括工作表和图表工作表。•ActiveCell返回当前活动的工作簿中活动的工作表中活动的单元格。•ThisWorkbook返回正在执行的过程所驻留的工作簿。•MailSystem返回本系统所采用的邮件系统。当进行邮件自动化时本属性非常有用。•MailSession用于检测用户是否登录了电子邮件。•OperatingSystem当开发由Windows和Mac用户使用的VBA应用程序时,这个属性非常有用。可以用这个属性来决定所使用的操作系统,并且做出必要的改变。•Selection用于决定当前选中了什么,可以是单元格、图表、图形对象等等。InputBox。InputBox方法可以显示一个输入框,并且可以指定返回值的数据类型。•MailLogon和MailLogoff和MailSystem和MailSession属性配合使用,这两个方法可以登录和退出电子邮系统。•Quit用于退出Excel。•Run用来执行Excel4.0宏。

推荐信息