一、VB6,如何利用VB窗体中的按钮控制Excel中的按钮事件?

一定要先在VB中添加excel引用。

在工程中引用Microsoft Excel类型库： 从工程菜单中选择引用栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择确定。表示在工程中要引用EXCEL类型库。

调用excel的工作表中的命令按钮，代码如下：

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

Dim FileName, SheetName As String

FileName = e:\data.xls '打开的工作簿路径名称

SheetName = sheet1 '命令按钮所在的工作表名

Set xlApp = CreateObject(Excel.Application) '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表

'假设要调用的控件名称是CommandButton1

xlSheet.Shapes(commandbutton1).DrawingObject.object.Value = True '单击控件

xlBook.Close (True) '保存并关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

end sub

二、EXCEL2003 如何使用窗体的选项按钮改变单元格内容?

用窗体按钮来改变单元格内容，那就是对这四个按钮分别添加代码，如在第一个按钮的单击事件里添加代码如下：

Range(A1)=张三

Range(A2)=男

Range(A3)=32

其他几个按钮就是改变下后面的值就可以了。

建议你使用 ActiveX 控件中的 单选按钮：

四个单选按钮的 LinkedCell 属性分别设置为指向 C1、C2、C3、C4 单元格；

四个单选按钮的 GroupName 设置为同一个名称。比如：默认值为 Sheet1。你也可以定义为自己的习惯名称。比如 Grp1；

四个单选按钮的 Caption 属性分别设置为 A、B、C、D；

然后在 A1 的单元格内使用公式：

=IF(C1,王一,IF(C2, 林某, IF(C3, XX, IF(C4, YY, ))))

在 A2 的单元格内使用公式：

=IF(C1,男,IF(C2, 女, IF(C3, X, IF(C4, Y, ))))

在 A3 的单元格内使用公式：

=IF(C1,18岁,IF(C2, 20岁, IF(C3, XX岁, IF(C4, YY岁, ))))

三、excel 单击就有小窗口 怎么用快捷键关掉？

按“ctrl”+G调出“转到”窗口，点击左下角“特殊”按钮，点选“物件”，点击确定，这个时候就会把所有方框选中了，然后按“Delete”键删除，这样就消除了