填写表限格式

开篇：润墨网以专业的文秘视角，为您筛选了一篇填写表限格式范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

2008年第3期题目2挑战任务是填写表格，出于对格式的统一，需要对表格项中的所填内容进行限制。

想完成此挑战题目的要求，我们可以使用Word中的Visual Basic编辑器(以下简称VBA)。

如果系统中没有安装VBA程序，需要准备Office安装光盘并从中添加VBA程序:在Word中点击“工具宏Visual Basic编辑器”菜单项，再根据安装过程软件的提示，就可以完成VBA程序的安装了。

第一步:打开Word，根据具体需求，制作一表格，需要录入日期的单元格不填写任何内容(见图1)。

第二步:选择“工具宏Visual Basic编辑器”菜单项，然后选择“视图工具箱”，弹出“工具控件”浮动工具箱。鼠标右键单击“工具箱”空白处，选择“添加控件”，在“可用控件”列表中，找到并双击“Calendar Control 8.0”(日历控件8.0)，然后单击“确定”(见图2)。

第三步:选择“插入用户窗体”，VBA会自动填写一个空白用户窗体，如UserForm1，单击“工具箱”中的Calendar控件，用鼠标左键在此用户窗体中绘制出此日历控件的大小，放开鼠标左键即可完成在窗体中添加日历控件的操作。

小提示

在调整日历控件大小时，请注意调整窗体与控件的大小比例，使其更加美观。个人认为，可将控件大小与窗体大小设置成同样大小，并适当调整窗体的显示位置。

第四步:双击日历控件，VBA会弹出代码窗口，将如下代码录入到代码窗口中。

Private Sub Calendar1_Click()

Selection.Text = Calendar1.Value

End Sub

Private Sub UserForm_Activate()

Me.Calendar1.Value = Date

End Sub

第五步:双击模块1(若没有此模块，请选择“插入模块”项)，VBA会弹出代码窗口，将如下代码录入到代码窗口中(见图3)。

Sub ChooseDate()

UserForm1.Show

End Sub

最后，选择菜单中的“文件关闭”项，回到Word窗口。

第六步:在本例中，需要录入日期的单元格为“毕业日期”和“到职日期”。将光标置于“毕业日期”后的单元格，选择“插入域”，单击“域代码”，在“域名”列表中选择“Macrobutton”，在“宏名”列表中选择“ChooseDate”，在“显示文字”中写入“毕业日期”(不含引号)(见图4)，“确定”即可。对于“到职日期”的操作方法，可参照如上操作，只需将显示文字部分改为“到职日期”即可。

上述操作完毕后，当鼠标单击“毕业日期”时，文字背景显示为灰色。而用鼠标双击“毕业日期”，Word会自动弹出“日历控件”对话框，选择年、月和日期后，单击“关闭”按钮即可完成日期的录入过程。因为无需手工录入，所以避免了内容格式不一致而对工作造成的麻烦。

小提示

只有在VBA程序中，向工具箱中添加“Calendar Control 8.0”后，在Word 的域代码部分才可以查找ChooseDate项目，否则不会显示此项目。