如果文本框允许空白，如何使窗体中输入的数据在工作表中同行显示？

作者：绿色风分类：时间：2022-08-17 浏览：102

楼主
biaotiger1

Q：如果文本框允许空白，如何使窗体中输入的数据在工作表中同行显示？
A：ALT+F11→“插入”→“用户窗体”，并添加四个文本框及一个按钮，更改按钮文字为“添加”

双击“按钮”输入代码如下

Private Sub CommandButton1_Click()
If Len(TextBox1.Value & TextBox2.Value & TextBox3.Value & TextBox4.Value) <> 0 Then '如果文本框的值不为空（即没有输入任何数字）
A = [a1:d1].CurrentRegion.Rows.Count '获得已用区域的行数
Range("a" & A + 1) = TextBox1.Value '则把文本框的值赋予当前已用区域中对应列最后那个单元格的下面那个单元格（向下移动一个单元格）
Range("b" & A + 1) = TextBox2.Value
Range("c" & A + 1) = TextBox3.Value
Range("d" & A + 1) = TextBox4.Value
TextBox1.Value = "" '并且清空文本框中的值
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End If
End Sub

利用窗体添加数据.rar

2楼
wnianzhong

向你学习,要学的东西太多了!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表