Question

高分求一些EXCEL中VB的实用代码

首先帮我解决一下：
1，就是EXCEL中插入一个命令按钮，然后点击后就出现“打开”就，与ctrl+0的效果一样的
2，按钮2代码：删除制定区域的数据
好了，如果你人好的话，你可以免费赠送我其他的实用代码、
要求：你给我的代码直接复制粘贴就可以用的，我是新手
回答满意者再送分回报，谢谢

Answer 1

Private Sub commandbutton1_Click() '这段是打开文件的代码,
Dim filename
Dim filt
Dim openfile
filt = "所有文件(*.*),*.*"
filename = Application.GetOpenFilename(FileFilter:=filt, Title:="文件选择对话框") '指定文本文件名
If filename = False Then
Exit Sub
Else
Dim shBook As Excel.Workbook, shSheet As Excel.Worksheet
Set shBook = Workbooks.Open(filename) '打开文件
Set shBook = Nothing
End If
End Sub
Private Sub commandbutton2_Click() '这是清除内容的代码
Selection.Clear
End Sub

Answer 2

1、打开
1）在工作表中插入一个艺术字命名为“打开”（艺术字将成为按钮）。
2）右击艺术字→指定宏→新建。
3）复制以下代码，点击艺术字就会出现与ctrl+0的一样的效果。

Sub 艺术字1_单击()
SendKeys "^O"
End Sub

2、删除
1）在工作表中插入一个艺术字命名为“删除”（艺术字将成为按钮）。
2）右击艺术字→指定宏→新建。
3）复制以下代码，点击艺术字就可删除当前选定区域的数据。

Sub 艺术字2_单击()
SendKeys "{DEL}"
End Sub

----------
正如上所诉“SendKeys”，就是一个实用命令，它可将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。

Answer 3

用宏录制，看看代码。然后，画窗体，在按钮的单击事件，参考刚刚生成的代码来编写。我也没用过VBA，不知道语句。