第十一章
对工作簿的Open事件编写代码时,可以建立临时自定义工具栏并使其可见,在工具栏上添加按钮,并指定要执行的过程。( )。
答案:对
Set tbar = Application.CommandBars.Add(Temporary:=True) tbar.Visible = True上述代码段的功能是:建立临时自定义工具栏tbar,并设置其他属性为可见。( )
答案:对
Set butt1 = tbar.Controls.Add(Type:=msoControlButton) With butt1 .Caption = "课程学时" .Style = msoButtonCaption .OnAction = "calc" End With上述代码段的功能是:在tbar工具栏上添加命令按钮butt1,按钮标题为“课程学时”,指定要执行的过程为“calc”。( )
答案:对
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "统计表" Then Application.SendKeys "%x{F6}" Else Application.SendKeys "%h{F6}" End IfEnd Sub上述代码段的功能是:对工作簿的SheetActivate事件编写代码,激活需要的选项卡。如果当前工作表为“统计表”时,激活功能区的“加载项”选项卡,否则激活“开始”选项卡。( )
答案:对
hs = Range("A4").End(xlDown).Row上述代码段的功能是:求数据区A4到数据最后的有效行行数。( )
答案:对

温馨提示支付 ¥3.00 元后可查看付费内容,请先翻页预览!
点赞(0) dxwkbang
返回
顶部