VBA编程及应用基础课件第6章 界面设计及应用

VBA程序设计用户界面的设计本讲内容窗体控件ActiveX控件用户窗体窗体控件&ActiveX控件

Why控件EXCEL开发中需要对一个问题有所概念，即：谁使用？

——这决定了程序的操作难度及界面感观窗体控件打开“开发工具”选项卡“控件”|“插入”|“表单控件”命令窗体控件窗体控件有12个控件，其中9个可放到工作表内标签：它用于表现静态文本分组框：它用于将其他控件进行组合按钮：用于执行宏命令复选框：它是一个选择控件，通过单击可以选择和取消选择，可以多项选择选项按钮：通常几个选项按钮组合在一起使用，在一组中只能选择一个选项按钮窗体控件列表框：用于显示多个选项并从中选择一个组合框：用于显示多个选项，可以选择其中的项目或者输入一个其它值滚动条：包括水平滚动条和垂直滚动条，是一种数值选择机制，如调节过渡色微调控件：是一种数值选择机制，通过单击控件的箭头来选择数值，如改变日期或时间示例ActiveX控件打开“开发工具”选项卡“控件”|“插入”|“ActiveX控件”命令ActiveX控件与窗体控件的区别不是靠建立与之相关的“宏”来使用的ActiveX控件有自己的属性和事件过程ActiveX控件隶属于具体的工作表ActiveX控件利用窗体控件实现eg1.xlsx中的Sheet1中的格式设置界面和相应的格式编辑功能？用户窗体UserForm用户窗体用户窗体(UserForm)，用以构成应用程序的用户界面部分，提供一个图形界面，供用户与程序进行交互用户窗体设计用户窗体右击工程资源管理器，“插入”|“用户窗体”从工具箱中选择控件为用户窗体添加界面元素在属性窗口内设置各对象属性用户窗体运行用户窗体装载窗体：为窗体分配内存并初始化，可通过调用窗体的Load方法实现窗体加载显示窗体：创建一个图形窗口显示给用户，显示窗体可以调用窗体的Show方法。如果调用Show方法时窗体还没有装载，则会首先自动装载窗用户窗体窗体的显示模式有2种：模式窗体(modal)和无模式窗体(modeless)

显示一个无模式窗体：

UserForm1.Show0

模式窗体显示代码为：

UserForm1.Show1相应的，可以通过Hide方法隐藏窗体，通过Unload方法来卸载(销毁)窗体用户窗体常用控件：标签(Label)文字框(TextBox)命令按钮(CommandButton)复选框(CheckBox)选项按钮(OptionButton)框架(Frame)列表框(ListBox)组合框(ComboBox)滚动条(ScrollBars)图像(Image)多页控件(MultiPage)用户窗体标签功能:

用于显示说明性的文字常用属性:

Caption

文本框功能:用于输入信息或显示信息，是一个常用的人机交互接口常用属性:Text命令按钮功能:用于启动或结束命令操作常用属性:Caption用户窗体复选框功能:

使用复选框可以在一组相关的项目中选择一个或多个项目常用属性:

Vlaue

(True或False)选项按钮功能:选项按钮在各个选项中只能互相排斥的选择某一项常用属性:Value(True或False)用户窗体列表框功能:用于显示一些值的列表，用户可以从中选择一个或多个值常用属性List:列表框的所有表项，以数组形式存放，使用形式是List(i)ListCount:列表框中表项的总数ListIndex:被选中表项的索引，[-1,ListCount-1]Selected:列表框表项的选中状态，以数组的形式存放，如：Selected(i)=True用户窗体列表框常用方法AddItemitem[,index]

将item添加到列表框的第index项RemoveItemindex

将列表框的第index项删除Clear

清除列表框所有表项用户窗体滚动条功能:实现数据输入常用属性 Min:滚动条所能表示的最小值Max:滚动条所能表示的最大值Value:表示滚动条的当前值SmallChange:单击滚动箭头时滚动条值的改变量LargeChange:单击滚动块与滚动箭头间的区域时滚动条值的改变量用户窗体滚动条常用事件Change:当滚动条的当前值(Value属性)改变时触发Scroll:在滚动条内拖动滚动块时连续触发Change事件和Scroll事件的区别

Change事件用于得到滚动条的最后值Scroll事件用于跟踪滚动条的动态变化实例2编写程序，在打开eg2.xlsx

工作簿时，弹出一个窗体显示本周即将(包括今日)要过生日的人员名单如何判断某个日期是在今天和周末之间的？几个日期函数Weekday(date,[firstdayofweek])返回一个整数，代表某个日期是其所在星期的第几天如：Weekday(Date,2)，把周一作为一个星期的第一天并返回今天是星期几DateValue(strDate)返回用字符串形式表达的日期对应的实际日期如：DateValue(“2013-6-1”) ，返回#2013-6-1#Year(date)、Month(date)、Day(date)分别返回一个日期的年份、月份、日子DateSerial(year,month,day)将year、month、day组合成一个日期几个时间函数TimeValue(strDate)返回用字符串形式表达的时间对应的实际时间如：TimeValue("18:35:17") 返回#18:35:17#Hour(time)、Minute(time)、Second(time)分别返回一个时间的小时、分钟、秒TimeSerial(hour,minute,second)将hour、minute、second组合成一个时间实例3设计一个程序，在eg3.xlsx的Sheet1中，若