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

在项目上右键,选择添加->现有项,然后找到这个文件,打开即可

我的建议是你去看看视频教程，ado.net数据操作，对你的帮助很大。
前台：
<asp:GridView ID="gvlist" runat="server" AllowPaging="True" AutoGenerateColumns="False" CellPadding="0" DataKeyNames="new_Id" GridLines="Horizontal" Width="95%" OnPageIndexChanging="gvlist_PageIndexChanging" ShowFooter="True" PageSize="2">
<FooterStyle CssClass="hsctrbiaoti" />
<EmptyDataRowStyle BackColor="#56B8E7" />
<Columns>
<asp:TemplateField HeaderText="序号">
<ItemStyle HorizontalAlign="Center" Width="5%" Wrap="False" />
<ItemTemplate>
<asp:Label ID="Labelid" runat="server" Text="<%# this.gvlist.PageIndex * this.gvlist.PageSize + this.gvlist.Rows.Count + 1%>"></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField DataNavigateUrlFields="new_ID" DataNavigateUrlFormatString="News_Detail.aspx?id={0}"
DataTextField="new_Title" DataTextFormatString="{0:c}" HeaderText="主标题" Target="_blank">
<ItemStyle HorizontalAlign="Left" Width="30%" Wrap="False" VerticalAlign="Middle" />
</asp:HyperLinkField>
<asp:BoundField DataField="pb_type" HeaderText="栏目">
<ItemStyle HorizontalAlign="Center" Width="10%" Wrap="False" VerticalAlign="Middle" />
</asp:BoundField>
<asp:BoundField DataField="opname" HeaderText="编辑人">
<ItemStyle HorizontalAlign="Center" Width="15%" Wrap="False" VerticalAlign="Middle" />
</asp:BoundField>
<asp:BoundField DataField="pb_isvalid" HeaderText="状态">
<ItemStyle HorizontalAlign="Center" Width="7%" Wrap="False" VerticalAlign="Middle" />
</asp:BoundField>
<asp:TemplateField HeaderText="修改">
<ItemStyle Width="5%" HorizontalAlign="Center" VerticalAlign="Middle" />
<ItemTemplate>
<asp:LinkButton ID="LinkButton1" runat="server" PostBackUrl='<%#"News_Update.aspx?id="+Eval("new_ID") %>'>修改</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
<asp:LinkButton ID="btnAll" runat="server" OnClick="btnAll_Click">全选</asp:LinkButton>
</HeaderTemplate>
<FooterTemplate>
 
<asp:LinkButton ID="btnDel_All" runat="server" OnClick="btnDel_All_Click">删除所选</asp:LinkButton>
</FooterTemplate>
<ItemTemplate>
<asp:CheckBox ID="checkbx" runat="server" />
</ItemTemplate>
<ItemStyle HorizontalAlign="Center" VerticalAlign="Middle" Width="8%" />
<HeaderStyle Width="6%" />
</asp:TemplateField>
</Columns>
<PagerTemplate>
<table>
<tr>
<td style="color: #0067be; text-align: center;">
 <asp:Label ID="lblindex" runat="server"><% ="第 " + (gvlist.PageIndex + 1) + " 页"%></asp:Label>
<asp:Label ID="lblall" runat="server"><% ="共有 " + gvlist.PageCount + " 页"%></asp:Label>
[ 
<asp:LinkButton ID="lbnfirst" ForeColor="#0067BE" runat="server" OnClick="lbnfirst_Click">首 页</asp:LinkButton>
 | 
<asp:LinkButton ID="lbnprev" ForeColor="#0067BE" runat="server" OnClick="lbnprev_Click">上一页</asp:LinkButton>
 | 
<asp:LinkButton ID="lbnnext" ForeColor="#0067BE" runat="server" OnClick="lbnnext_Click">下一页</asp:LinkButton>
 | 
<asp:LinkButton ID="lbnend" ForeColor="#0067BE" runat="server" OnClick="lbnend_Click">尾 页</asp:LinkButton>
 ] 到第<span class="wz19"><asp:TextBox ID="TbPgIndex" runat="server" Height="11px"
MaxLength="5" Style="text-align: center" Width="20px" Wrap="False"></asp:TextBox></span>页
<asp:ImageButton ID="IbnGo" runat="server" Height="18px" ImageAlign="Middle" ImageUrl="../BK_images/GO.jpg"
OnClick="IbnGo_Click" Width="36px" />
</td>
</tr>
</table>
</PagerTemplate>
<RowStyle CssClass="hsctr01" Height="22px" Wrap="False" />
<EmptyDataTemplate>
<table style="width: 100%; height: 25px">
<tr>
<td>
没有相关数据！
</td>
</tr>
</table>
</EmptyDataTemplate>
<PagerStyle CssClass="hscline01" Height="24px" HorizontalAlign="Center" />
<HeaderStyle CssClass="hsctrbiaoti" HorizontalAlign="Center" />
<AlternatingRowStyle BackColor="#D3EFFD" Height="22px" />
</asp:GridView>
后台：数据绑定。。。。

放置Picture控件
Picture1.PSet 画点
Picture2.Line 画线

详细用法可以查看MSDN或者直接百度,注意如果画笔太小的话,可能画出来的图像就很小很细,你可以适当的按比例放大.

Private Sub CommandButton1_Click()
Dim m As Integer
m = 1
While (Sheets("Sheet1").Cells(m, 1) <> 0)
m = m + 1
Wend
Sheets("Sheet1").Cells(m, 1) = TextBox1.Value
End Sub

用MSChart控件，就是跟Excel画图一样的

代码：
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

看来你写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