-vb excel 源码,vb的实例源码

一、先百建立一个窗口
1、新建一工作表。
2、点击“工具→宏→Visual Basic编辑器”。
3、点击“插入→用户窗体”。
4、在窗体上添加1个“文字框”（用来输入要搜索度的数字）；2个“命令按钮”（1个为搜索按钮，1个为删除回按钮）。

二、编写代码
1、搜索A列是不是存在数字框的数字，如下：

Private Sub 搜索_Click()

If TextBox1 = "" Then
MsgBox "请输入要搜索的数字。"
Exit Sub
End If

Set r = ActiveSheet.Range("A:A").Find(TextBox1)
If r Is Nothing Then
MsgBox "在A列没有找到要搜索的数字。"
Exit Sub
End If

ActiveSheet.Range(r.Address).Select
MsgBox "在" & r.Address & "发现要搜索的数字“" & TextBox1 & "”，若要删除此行请答点击“删除”。"

End Sub

2、搜到的哪一行删除，如下：

Private Sub 删除_Click()
Selection.Rows.Delete
End Sub