可用分押宝游戏火热进行中...	专题改版：Java Web 专题

在Excel中增加控件

楼主wangchun0129（卓儿）2005-08-03 19:26:03 在其他开发语言 / Office开发/ VBA 提问

请问各位，可以在Excel中添加控件吗？我想在Excel中做：当点击一个按钮时，跳出一个对话框（就是我们打开文件时出现的对话框），请教一下该怎么做？
在等......(最好在星期五之前告诉我)
谢谢! 问题点数：50、回复次数：9Top

1 楼icansaymyabc（学习与进步）回复于 2005-08-04 08:58:25 得分 20

Sub 运行这段程序在工作表里添加一个按钮() '只运行一次
ActiveSheet.Buttons.Add(143.25, 54.75, 144, 52.5).Select
Selection.OnAction = "job001"
Selection.Caption = "点击按钮显示对话框"
Range("A1").Select
End Sub

Sub job001()
Application.SendKeys "%fo"
End Sub
Top

2 楼aperyx（Fly）回复于 2005-08-04 12:53:05 得分 30

在Excel 工具列中調出Visual Basic工具欄，
在設計模式下在excel中可以任意添加按扭，
在按扭的click事件中加入
Application.Dialogs(xlDialogOpen).Show
Top

3 楼wangchun0129（卓儿）回复于 2005-08-04 14:39:05 得分 0

在Excel宏里面怎么定义有参数的函数啊?还有返回值的.那是如何调用的,谢谢!Top

4 楼wangchun0129（卓儿）回复于 2005-08-04 15:17:59 得分 0

还请问一下各位!有打开文件的对话框,那保存文件的对话框又是什么呢?不好意思,又扰烦各位!
大家费心了!谢谢!在等!Top

5 楼wangchun0129（卓儿）回复于 2005-08-04 15:37:02 得分 0

刚才忘了问一下,我用Application.Dialogs(xlDialogOpen).Show 打开了对话框,可以判断用户点了"打开"还是"取消"吗?如果是打开,能不能获得路径?如果可以,怎么做?Top

6 楼icansaymyabc（学习与进步）回复于 2005-08-05 09:01:05 得分 0

如果你用Application.Dialogs(xlDialogOpen).Show 打开了对话框。

你不能判断用户点了"打开"还是"取消"。也不能获得路径。Top

7 楼licsth（北京三毛）回复于 2005-08-05 11:11:27 得分 0

在按扭的click事件中加入：
[Alt+F11 进入后台编辑]

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "続行しますか。" ' メッセージを定義します。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' ボタンを定義します。
Title = "MsgBox ﾃﾞﾓ" ' タイトルを定義します。
Help = "DEMO.HLP" ' ヘルプファイルを定義します。
Ctxt = 1000 ' トピックコンテキストを定義します。
' メッセージを表示します。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' [はい] がクリックされた場合、
MyString = "Yes" ' 所定の動作を実行します。
Else ' [いいえ] がクリックされた場合、
MyString = "No" ' 所定の動作を実行します。
End If

End Sub
Top

8 楼aperyx（Fly）回复于 2005-08-05 12:42:36 得分 0

可以
Application.Dialogs(xlDialogOpen).Show 會返回一個邏輯值True or False

當你選擇取消時會返回False

Sub aa()
Dim a As Boolean
Dim strPath As String
a = Application.Dialogs(xlDialogOpen).Show
If a = True Then
strPath = ActiveWorkbook.Path
MsgBox strPath
End If

End Sub
Top

9 楼wangchun0129（卓儿）回复于 2005-08-07 15:05:58 得分 0

问题解决了，谢谢你们！Top