VBA中如何一次性清空窗体数据和添加表格当中的数据

Question

我用VBA设置窗体向EXCEL表格当中添加数据，当数据添加成功后，如何用“清除“键，一次性清除空窗体和EXCEL中的数据呢？

Answer 1

看来你写VBA没问题，我就不多说基本操作了。
要实现你的要求。你只需要给那个“清除”键的Click事件写一段代码，要清除Excel表中的数据只需要一句：

activesheet.cells.clear

要清除窗体中的数据，这需要有点前提条件，假设你对控件的命名很有规则，比如你全部是使用的TextBox来完成数据输入的，而这些TextBox控件的命名都是“txt***”，那么清除这些控件中内容就用以下代码：

Dim ct As Control
For Each ct In Me.Controls
if left(ct.name,3)="txt" then ct.value=""
Next

Answer 2

如文本框Text1，
用 Text1 =“”， 语句直接清除框中原来的内容
或用 clear 语句

Answer 3

代码：
Dim arr1()
Dim arr2()
'在本窗体中创建一个表格，表格内容可修改。
'===表格的属性设置：(这是手动设置和添加修改的)
'在本窗体中创建一个表格，表格内容可修改。表格有3列，行数不确定，因为数组的维数不确定。而且可以自行在下方添加行。如果行数过多，自动添加垂直滚动条。
'如果某表格中数据过长，最好设置为自动换行显示
Sub 数组赋值()
arr1 = Array("A", "B", "C", "D", "F", "G")
arr2 = Array("1", "2", "3", "4", "5", "6")
End Sub
Private Sub Form_Load()
Call 数组赋值
For i = LBound(arr1) To UBound(arr1)
Me.List1.AddItem arr1(i)
Next i
'======在窗体LOAD事件中实现以下功能=========
'第1行或者有个标题行是标题 分别为“序号”“数组1值”“数组2的值”(如果标题项可以表格设置时就设置了，就可以不用代码来实现)
'第1列，就是顺序号，从1开始依次往下。
第2列就自动导入数组arr1的值，第3列就自动导入数组arr1的值
End Sub