办公技能在Excel中做灵活多样表单——VBA窗体嘉为科技.docx

在 Excel 中做灵活多样表单—— VBA 窗体 作者 :毛颖 【摘要】 Excel 中如果想突破传统的表格填写，那么就可以使用 VBA 中的窗体功能来进行特殊的填 写和表单格式设定。 一、 创建表单 UserForm 的增加和设置属性 按 Alt+F11 进入编辑界面，然后在左边右键增加一个用户窗体 控件设置属性 选择下面的属性窗口对窗体进行编辑和设置，如下图可以修改窗体的名称 在前面引用一个按钮调用表单窗体 在 Excel中添加一个按钮，进行窗体调用，双击按钮后，在代码中写一句话。 Private Sub CommandButton1_Click() UserForm1.Show End Sub 二、 在表单窗体中添加控件 DATA1 DATA2 DATA3 单独的设置表单控件的值填写到单元格，可以编写如下代码： Range(“ a1” ).value= Textbox1.value 但如果内容太多，怎样用循环来填写一串文本框的内容，编写如下代码： For x=1 to n Cells(x,1).value= Controls(TextBox x).Value. 把窗体的内容填写到单元格中 怎样查找到表中的最后一行，不停的向下填写内容 Private Sub CommandButton1_Click() Dim i As Integer Dim y As Integer Worksheets(Sheet2).Visible = False y = Worksheets(Sheet2).Cells(1048576, 1).End(xlUp).Row For i = 1 To 3 Worksheets(Sheet2).Cells(y + 1, i) = Controls(Textbox i).Value Worksheets(Sheet2).Cells(y + 1, 4) = Date Time Debug.Print Cells(1, i).Column Next End Sub 三、 结论 用 VBA 可以实现很特别的表单填写，灵活的规定客户的填写形式，并最终实现动态收集， 是风的细语、是雨的柔顺、斑驳了一道道古老的忧伤，刻在了灯火阑 珊处 ? 是桥的沧桑、是石的痕迹、流年了一首首陈旧的诗韵，铭在了秋月三 更天 ? 海棠红袖添香，墨迹染血苍凉。安静中，晨曦相伴花香，展一笺前世 的千秋歌遥 ; 清雨深巷幽笛，挥洒寒月银装。情浓处，夕阳西落桃源，留一篇今生 的婉艳霓裳。 挽轻风拂墨，泼洒一秋雨红，拨开海棠的花事，聆听花瓣细语呢喃， 深情里，香醉十里桃花，溪留百亩婉蓝。 摇曳的风铃，恍惚的倩影。沉月入水禅心未改，凝霜了一夜烟波的伤 梦。灵润如玉的杏花黄似菊染的丝雨，阵阵飘莹、落琴弦瑟。 拂墨轻风， 笔尖莹绕了一圈年轮， 轻轻的描出了圆圆的印迹， 淡色中， 雅致的轻雨，穿巷飘过，留下了一串串流香的诗花。模糊的撇捺、不清的 横竖，送走着残血的时光。 摘一支轻雨，铺一笺墨迹，在灯火阑珊处窥探一叶棂窗，熟悉的倩影 淡淡一笑，倾城了岁月的柔情，暖雨中蜜意了情侣的梦香。 一杯轻风，半壶墨迹。捧着安静的角落，独饮墨香，留韵素白。轻风 拂过，开满了一园禅意，一片樱花。 轻风缓缓，墨香袭袭。长长的倩影里，柔软了风韵的味律，洒脱的静 悟中遥远变成了传说，把爱定格在一瞬间。 这第一段似乎是着重描摹春的美丽，可起首有“多事的东风”一句，暗示着有人恼春，于是有个人物忽悠地闪了一下，桃红“醉依在封姨的臂弯里” ，一下子就不见了。但“多事”里隐蕴着的 愠意，因封姨的出现有了着落。春天写足了，那位对春天怀着恨意的人物便在作者的笔下十分不情愿地亮相了。 “只有一个孤独的影子，她，倚在栏杆上， ”这就是封姨了，她“才从青春之梦 醒过来”，茫然不解这眼前发生的一切。作者笔下的她原来是一个芳华已失的女人！眼前的春天只是她过去的影子。