Excel会计信息化教学课件 作者 刘曜 第5章VBA自定义函数、窗体及设计技巧.pptVIP

Else KCSL = 商品品种代号错 如果未找到(Found 仍为 False),那么,显现商品品种代号错字样. End If End Function 图5-2km与图5-5KCSL俩函数变量取值区别： KCSL函数变量值A10201在函数中直接给出 km函数变量值由单元格给出 演示： 打开会计核算系统文件，通过对话框自动输入科目编号，观察设计窗体的特殊作用 本章教学建议： 5.2节略讲,只介绍设计自定义窗体的意义，至于如何设计直接安排第2次上机练习 5.2.3 在窗体上安装按钮 在窗体上设置按钮，步骤如下： （1）在工具箱里单击命令按钮图标，然后，将光标移至窗体下方适当位置，显现小十字“＋”  （2）在窗体的合适位置选择起始点并按下鼠标左键 （3）保持鼠标按键并拖动鼠标，出现一个矩形框 （4）当矩形框大小合适时，释放鼠标键  完成以上步骤后，窗体上就出现了一个命令按钮CommandButton1 修改按钮提示文字，其步骤如下： （1）用鼠标右键单击窗体按钮，在弹出的对话框中选属性，显现按钮属性窗口 （2）在按钮属性窗口中选择Caption属性，输入：确定 编写按钮程序代码，步骤如下： （1）双击“确定”按钮，显现会计核算系统.xls-KEMU模块表 （2）在模块表中输入如下代码Private Sub CommandButton1_Click() ActiveCell = ListBox1.Text 当前单元格输入列表框ListBox1指定项目. KEMU.Hide 隐藏KEMU窗体.End Sub 类似地可以安装“取消”按钮。 “取消”按钮的代码为：Private Sub CommandButton2_Click() KEMU.HideEnd Sub 5.2.4 设置调用窗口快捷键步骤如下： （1）在会计核算系统.xls-模块1模块表中输入如下代码： Sub 科目编号表() KEMU.Show 显示KEMU窗体 End Sub （2）选择菜单栏[文件/关闭并返回到Microsoft Excel]命令，切换到工作表 （3）选择菜单栏[工具/宏/宏]命令，显现“宏”对话框，在对话框中指定“科目编号表”宏 （4）单击对话框右下方“选项”按钮，显现“宏选项”对话框，在“快捷键：Ctrl+”后的小方框中输入Z，然后单击“确定”按钮 * 第5章VBA自定义函数、窗体及设计技巧 5.1 VBA自定义函数设置及更新函数值的技巧 5.1.1 设置自定义函数自定义函数格式： Function 函数名(变量) … End function目的：满足特殊需要  自定义函数一当设置，可以像Excel的内置函数一样使用。 1．自动产生科目名称 示例：教材P52  设计思路： 第一步 在“会计科目表”工作表的第1列（“科目编号”栏）查找科目编号，确定其所在行t  第二步 将“会计科目表”工作表坐标为(t, 2)单元格的值（科目编号对应的科目名称）赋于km函数 Function km(科目编号)Function km(科目编号)表示这是一个名称为km的函数,变量为科目编号. Found = False 设定Found为False. If 科目编号 = “ ” Then km = “ ” ‘执行以上2行程序,如果科目编号为空,即用户未输入科目编号,那么km函数值为空. Else 否则,执行以下程序. x = 1 Do While Not (IsEmpty(Sheets(“会计科目表).Cells(x, 1).Value)) x = x + 1 Loop For t = 2 To x - 1 If 科目编号 = Sheets(“会计科目表).Cells(t, 1) Then Found = True Exit For End IfNext t 以上10行代码,在会计科目表工作表的第1列查找输入的科目编号.如果找到了,Found就由False变为True. If Found = True Then km = Sheets(会计科目表).Cells(t, 2) km函数值为会计科目表工作表坐标为(t, 2)单元格的值,即科目编号