Excel实现窗口式数据输入2

到空白区域中。РPrivate Sub UserForm_Initialize()РComboBox1.AddItem "砖混"Р'代码表示在复合框中添加相应的下拉选项РComboBox1.AddItem "框架"РComboBox1.AddItem "框混"РComboBox1.AddItem "道路"РComboBox1.AddItem "桥梁"РComboBox1.AddItem "框剪"РComboBox1.AddItem "其他"РEnd SubР输入完成后,关闭VBA窗口,返回到工作表编辑窗口。Р设计数据录入按钮Р第一步:在Excel工作表中,执行“视图→工具栏→控件工具箱”命令,打开“控件工具箱”工具栏,如图4所示。Р第二步:单击工具栏上的“命令按钮”,然后在工作表中拖拉出一个命令按钮来,调整好命令按钮的大小,将其定位在工作表的合适位置上。Р第三步:右击此命令按钮,打开“属性”对话框(类似图3),将“Caption”选项后面的字符修改为“数据录入”,关闭对话框返回。Р第四步:双击此命令按钮,再次进入VBA编辑状态,将下述代码输入到空白区域中。РPrivate mandButton1_Click()РUserfrom1.ShowРEnd SubР第五步:输入完成后,关闭VBA窗口,返回到工作表编辑窗口,按一下工具栏上的“退出设计模式”按钮,退出设计状态。Р需要录入数据时,只要单击一下“数据录入”按钮,系统弹出如图1所示的窗体,将相应的数据填入(或选择填入)到对应文本框中,检查无误后,按下“添加”按钮,即可将数据添加到工作表的尾部。完成录入工作后,按下“退出”按钮,关闭输入窗口。Р小提示Р为了使宏能够顺利运行,需要将宏的安全性设置为“中”。执行“工具→宏→安全性”命令,打开“安全性”对话框,在“安全级”选项卡中,将宏安全级设置为“中”选项,按“确定”按钮返回即可。