求助:如何在VBA中通过代码打开查找对话框

zhujun7884 · 发表于 2004-2-7 11:11

请问：如何在VBA中通过代码打开Excel的查找对话框？我通过宏录制只能得到查找代码，但无法打开查找对话框．请高手不吝赐教，不胜感激．

[此贴子已经被作者于2004-2-7 11:11:04编辑过]

老刀 · 发表于 2004-2-7 11:36

双击C列既有相应的对话框弹出,如单元格变成灰色表示此对话框只有在特定的条件下使用.

ZFw82uQW.rar (17.88 KB, 下载次数: 181)

zhujun7884 · 发表于 2004-2-7 11:59

以下是引用老刀在2004-2-7 11:36:00的发言：
双击C列既有相应的对话框弹出,如单元格变成灰色表示此对话框只有在特定的条件下使用.

呵呵，果然是高手耶，谢谢． D列及以后的的列列出的是不是参数呀．如何使用呀．我只会Application.Dialogs(xlDialogFormula).Show（嘻嘻，看你的代码里学的）

[此贴子已经被作者于2004-2-7 12:16:11编辑过]

iceboy · 发表于 2004-2-7 12:17

是不是这样啊. Private Sub CommandButton4_Click() 'input the resource file(*.txt)

Dim filename
filename = Application.GetOpenFilename(FileFilter:="Excel恅璃(*.txt),*.txt", title:="恁寁Input Text恅紫")
If filename = False Then Exit Sub
UserForm1.TextBox1.Text = filename
pn = UserForm1.TextBox1.Text End Sub

老刀 · 发表于 2004-2-7 14:27

查找字符用 CommandBars.FindControl(ID:=1849).Execute

zhujun7884 · 发表于 2004-10-16 11:14

再问下，怎么用代码为查找对话框里的查找文本框赋值？？谢谢

清风_ll · 发表于 2004-10-16 11:36

这个录一个宏就可以看到了

lchzh · 发表于 2018-9-24 10:59

老刀发表于 2004-2-7 14:27
查找字符用 CommandBars.FindControl(ID:=1849).Execute

谢谢，找了很久了。请教一下大哥，用VBA如何向对话框中输入内容?

		自动登录	找回密码
密码			免费注册

求助:如何在VBA中通过代码打开查找对话框

这是一个完整的2000对话框列表.(原来发过一个97的)