1,453
社区成员
发帖
与我相关
我的任务
分享如何使用VB向EXCEL中插入一个按钮？
1、以下的步骤全部使用VB6写出代码，EXCEL中包含SHEET1和SHEET2
2、向SHEET1自动插入EXCEL中一个按钮控件
3、给此按钮重命名为“跳转到SHEET2”
4、点击此按钮后触发事件，跳转到SHEET2
2、向SHEET1自动插入EXCEL中一个按钮控件
3、给此按钮重命名为“跳转到SHEET2”
4、点击此按钮后触发事件，跳转到SHEET2
...全文
请发表友善的回复…
发表回复
zjm4560 2011-11-14
- 打赏
- 举报
非常感谢
judge521 2010-11-01
- 打赏
- 举报
谢谢 谢谢
plst 2010-11-01
- 打赏
- 举报
ddddddddddddddddddddd
real_tang 2010-09-10
- 打赏
- 举报
谢谢 谢谢
tianlei_zju 2010-01-13
- 打赏
- 举报
thanks
tayirvb 2009-02-28
- 打赏
- 举报
学习！！！
berylw 2009-01-29
- 打赏
- 举报
我发了两次帖子，请到http://topic.csdn.net/u/20090127/23/39527634-7599-437b-ab35-54d6942f8f85.html
再次给分，还有100分。
再次给分，还有100分。
berylw 2009-01-29
- 打赏
- 举报
万分感谢，结贴。
杨哥儿 2009-01-28
- 打赏
- 举报
Sub Macro1()
ActiveSheet.Buttons.Add(200, 30, 40, 25).Select
Selection.OnAction = "按钮1_单击"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "跳转到SHEET2"
End Sub
Sub 按钮1_单击()
Sheet2.Activate
End Sub
ActiveSheet.Buttons.Add(200, 30, 40, 25).Select
Selection.OnAction = "按钮1_单击"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "跳转到SHEET2"
End Sub
Sub 按钮1_单击()
Sheet2.Activate
End Sub
