[求助]内置查找和替换对话框VBA代码如何书写？

nowarmy

请帮忙：

内置查找和替换对话框VBA代码如何书写？

oobird

Application.Dialogs(130).Show

wanter1980

QUOTE:

以下是引用oobird在2008-4-19 10:56:48的发言：
Application.Dialogs(130).Show

版主，如何调出这些对话框名称呵，或者你上传一个清单学习呵,谢谢啦!

jilijun

Application.Dialogs(1).Show是调用打开对话框
Application.Dialogs(5或145).Show是调用另存为对话框，
Application.Dialogs(6).Show是删除文档
Application.Dialogs(7).Show是页面设置
Application.Dialogs(8).Show是打印对话框
Application.Dialogs(9).Show是选择打印机对话框
Application.Dialogs(12).Show是重排窗口设置对话框
Application.Dialogs(17).Show宏对话框
Application.Dialogs(23).Show设置打印标题
Application.Dialogs(26).Show字体设置对话框
Application.Dialogs(27).Show显示选项
Application.Dialogs(28).Show保护工作表
Application.Dialogs(32).Show重算选项
Application.Dialogs(39或192).Show排序
Application.Dialogs(40).Show序列选项
Application.Dialogs(41).Show模拟运算表
Application.Dialogs(42或111).Show单元格格式，选择单元格内容的格式
Application.Dialogs(43).Show选择单元格字体的排列格式，横排或竖排等
Application.Dialogs(44或134或190).Show字体选择
Application.Dialogs(45).Show边框格式设置
Application.Dialogs(46).Show对单元格的保护或隐藏选项
Application.Dialogs(47).Show列宽设置选项
Application.Dialogs(52).Show清除对话框
Application.Dialogs(53).Show选择性粘贴对话框
Application.Dialogs(54).Show删除对话框
Application.Dialogs(55).Show插入对话框
Application.Dialogs(61或110).Show定义名称对话框
Application.Dialogs(62).Show指定名称
Application.Dialogs(63或132).Show定位
Application.Dialogs(64).Show查找
Application.Dialogs(84).Show设置单元格颜色和图案
Application.Dialogs(91).Show分列
Application.Dialogs(94).Show取消或隐藏工作表选择对话框
Application.Dialogs(95).Show工作区视图等选项
Application.Dialogs(103).Show选择要激活哪个工作表对话框
Application.Dialogs(108).Show复制图片选项
Application.Dialogs(119).Show新建对话框
Application.Dialogs(127).Show设置行高
Application.Dialogs(130).Show替换对话框
Application.Dialogs(137).Show拆分当前窗口
Application.Dialogs(161).Show设置图表颜色
Application.Dialogs(170或171).Show移动当前窗口
Application.Dialogs(191).Show合并计算对话框
Application.Dialogs(198).Show单变量求解
Application.Dialogs(199).Show选定成组工作表
Application.Dialogs(200).Show填充成组工作表

nowarmy

Application.Dialogs(130).Show

130改为名称如何书写？

请各位帮忙。再次谢谢！

雨后蓝雪花

1 Application.Dialogs(xlDialogOpen).Show
2 Application.Dialogs(xlDialogActivate).Show
3 Application.Dialogs(xlDialogActiveCellFont).Show
4 Application.Dialogs(xlDialogAddChartAutoformat).Show
5 Application.Dialogs(xlDialogAddinManager).Show
6 Application.Dialogs(xlDialogAlignment).Show
7 Application.Dialogs(xlDialogApplyNames).Show
8 Application.Dialogs(xlDialogApplyStyle).Show
9 Application.Dialogs(xlDialogAppMove).Show
10 Application.Dialogs(xlDialogAppSize).Show
11 Application.Dialogs(xlDialogArrangeAll).Show
12 Application.Dialogs(xlDialogAssignToObject).Show
13 Application.Dialogs(xlDialogAssignToTool).Show
14 Application.Dialogs(xlDialogAttachText).Show
15 Application.Dialogs(xlDialogAttachToolbars).Show
16 Application.Dialogs(xlDialogAutoCorrect).Show
17 Application.Dialogs(xlDialogAxes).Show
18 Application.Dialogs(xlDialogAxes).Show
19 Application.Dialogs(xlDialogBorder).Show
20 Application.Dialogs(xlDialogCalculation).Show
21 Application.Dialogs(xlDialogCellProtection).Show
22 Application.Dialogs(xlDialogChangeLink).Show
23 Application.Dialogs(xlDialogChartAddData).Show
24 Application.Dialogs(xlDialogChartLocation).Show
25 Application.Dialogs(xlDialogChartOptionsDataLabels).Show
26 Application.Dialogs(xlDialogChartOptionsDataTable).Show
27 Application.Dialogs(axlDialogChartSourceData).Show
28 Application.Dialogs(xlDialogChartTrend).Show
29 Application.Dialogs(xlDialogChartType).Show
30 Application.Dialogs(xlDialogChartWizard).Show
31 Application.Dialogs(xlDialogCheckboxProperties).Show
32 Application.Dialogs(xlDialogClear).Show
33 Application.Dialogs(xlDialogColorPalette).Show
34 Application.Dialogs(xlDialogColumnWidth).Show
35 Application.Dialogs(xlDialogCombination).Show
36 Application.Dialogs(xlDialogConditionalFormatting).Show
37 Application.Dialogs(xlDialogConsolidate).Show
38 Application.Dialogs(xlDialogCopyChart).Show
39 Application.Dialogs(xlDialogCopyPicture).Show
40 Application.Dialogs(xlDialogCreateNames).Show
41 Application.Dialogs(xlDialogCreatePublisher).Show
42 Application.Dialogs(xlDialogCustomizeToolbar).Show
43 Application.Dialogs(xlDialogCustomViews).Show
44 Application.Dialogs(xlDialogDataDelete).Show
45 Application.Dialogs(xlDialogDataLabel).Show
46 Application.Dialogs(xlDialogDataSeries).Show
47 Application.Dialogs(xlDialogDataValidation).Show
48 Application.Dialogs(xlDialogDefineName).Show
49 Application.Dialogs(xlDialogDefineStyle).Show
50 Application.Dialogs(xlDialogDefineStyle).Show
51 Application.Dialogs(xlDialogDeleteFormat).Show
52 Application.Dialogs(xlDialogDeleteName).Show
53 Application.Dialogs(xlDialogDemote).Show
54 Application.Dialogs(xlDialogDisplay).Show
55 Application.Dialogs(xlDialogDisplay).Show
56 Application.Dialogs(xlDialogEditboxProperties).Show
57 Application.Dialogs(xlDialogEditColor).Show
58 Application.Dialogs(xlDialogEditDelete).Show
59 Application.Dialogs(xlDialogEditionOptions).Show
60 Application.Dialogs(xlDialogEditSeries).Show
61 Application.Dialogs(xlDialogErrorbarX).Show
62 Application.Dialogs(xlDialogErrorbarY).Show
63 Application.Dialogs(xlDialogExternalDataProperties).Show
64 Application.Dialogs(xlDialogExtract).Show
65 Application.Dialogs(xlDialogFileDelete).Show
66 Application.Dialogs(xlDialogFileSharing).Show
67 Application.Dialogs(xlDialogFillGroup).Show
68 Application.Dialogs(xlDialogFillWorkgroup).Show
69 Application.Dialogs(xlDialogFilter).Show
70 Application.Dialogs(xlDialogFilterAdvanced).Show
71 Application.Dialogs(xlDialogFindFile).Show
72 Application.Dialogs(xlDialogFont).Show
73 Application.Dialogs(xlDialogFontProperties).Show
74 Application.Dialogs(xlDialogFormatAuto).Show
75 Application.Dialogs(xlDialogFormatChart).Show
76 Application.Dialogs(xlDialogFormatCharttype).Show
77 Application.Dialogs(xlDialogFormatFont).Show
78 Application.Dialogs(xlDialogFormatFont).Show
79 Application.Dialogs(xlDialogFormatFont).Show
80 Application.Dialogs(xlDialogFormatLegend).Show
81 Application.Dialogs(xlDialogFormatMain).Show
82 Application.Dialogs(xlDialogFormatMove).Show
83 Application.Dialogs(xlDialogFormatMove).Show
84 Application.Dialogs(xlDialogFormatMove).Show
85 Application.Dialogs(xlDialogFormatNumber).Show
86 Application.Dialogs(xlDialogFormatOverlay).Show
87 Application.Dialogs(xlDialogFormatSize).Show
88 Application.Dialogs(xlDialogFormatSize).Show
89 Application.Dialogs(xlDialogFormatText).Show
90 Application.Dialogs(xlDialogFormulaFind).Show
91 Application.Dialogs(xlDialogFormulaGoto).Show
92 Application.Dialogs(xlDialogFormulaReplace).Show
93 Application.Dialogs(xlDialogFunctionWizard).Show
94 Application.Dialogs(xlDialogGallery3dArea).Show
95 Application.Dialogs(xlDialogGallery3dBar).Show
96 Application.Dialogs(xlDialogGallery3dColumn).Show
97 Application.Dialogs(xlDialogGallery3dLine).Show
98 Application.Dialogs(xlDialogGallery3dPie).Show
99 Application.Dialogs(xlDialogGallery3dSurface).Show
100 Application.Dialogs(xlDialogGalleryArea).Show
101 Application.Dialogs(xlDialogGalleryBar).Show
102 Application.Dialogs(xlDialogGalleryColumn).Show
103 Application.Dialogs(xlDialogGalleryCustom).Show
104 Application.Dialogs(xlDialogGalleryDoughnut).Show
105 Application.Dialogs(xlDialogGalleryLine).Show
106 Application.Dialogs(xlDialogGalleryPie).Show
107 Application.Dialogs(xlDialogGalleryRadar).Show
108 Application.Dialogs(xlDialogGalleryScatter).Show
109 Application.Dialogs(xlDialogGoalSeek).Show
110 Application.Dialogs(xlDialogGridlines).Show
111 Application.Dialogs(xlDialogImportTextFile).Show
112 Application.Dialogs(xlDialogInsert).Show
113 Application.Dialogs(xlDialogInsertHyperlink).Show
114 Application.Dialogs(xlDialogInsertNameLabel).Show
115 Application.Dialogs(xlDialogInsertObject).Show
116 Application.Dialogs(xlDialogInsertPicture).Show
117 Application.Dialogs(xlDialogInsertTitle).Show
118 Application.Dialogs(xlDialogLabelProperties).Show
119 Application.Dialogs(xlDialogListboxProperties).Show
120 Application.Dialogs(xlDialogMacroOptions).Show
121 Application.Dialogs(xlDialogMailEditMailer).Show
122 Application.Dialogs(xlDialogMailLogon).Show
123 Application.Dialogs(xlDialogMailNextLetter).Show
124 Application.Dialogs(xlDialogMainChart).Show
125 Application.Dialogs(xlDialogMainChartType).Show
126 Application.Dialogs(xlDialogMenuEditor).Show
127 Application.Dialogs(xlDialogMove).Show
128 Application.Dialogs(xlDialogNew).Show
129 Application.Dialogs(xlDialogNewWebQuery).Show
130 Application.Dialogs(xlDialogNote).Show
131 Application.Dialogs(xlDialogObjectProperties).Show
132 Application.Dialogs(xlDialogObjectProtection).Show
133 Application.Dialogs(xlDialogOpen).Show
134 Application.Dialogs(xlDialogOpenLinks).Show
135 Application.Dialogs(xlDialogOpenMail).Show
136 Application.Dialogs(xlDialogOpenText).Show
137 Application.Dialogs(xlDialogOptionsCalculation).Show
138 Application.Dialogs(xlDialogOptionsChart).Show
139 Application.Dialogs(xlDialogOptionsEdit).Show
140 Application.Dialogs(xlDialogOptionsGeneral).Show
141 Application.Dialogs(xlDialogOptionsListsAdd).Show
142 Application.Dialogs(xlDialogOptionsListsAdd).Show
143 Application.Dialogs(xlDialogOptionsME).Show
144 Application.Dialogs(xlDialogOptionsTransition).Show
145 Application.Dialogs(xlDialogOptionsView).Show
146 Application.Dialogs(xlDialogOutline).Show
147 Application.Dialogs(xlDialogOverlay).Show
148 Application.Dialogs(xlDialogOverlayChartType).Show
149 Application.Dialogs(xlDialogPageSetup).Show
150 Application.Dialogs(xlDialogPageSetup).Show
151 Application.Dialogs(xlDialogPageSetup).Show
152 Application.Dialogs(xlDialogParse).Show
153 Application.Dialogs(xlDialogPasteNames).Show
154 Application.Dialogs(xlDialogPasteSpecial).Show
155 Application.Dialogs(xlDialogPasteSpecial).Show
156 Application.Dialogs(xlDialogPasteSpecial).Show
157 Application.Dialogs(xlDialogPasteSpecial).Show
158 Application.Dialogs(xlDialogPatterns).Show
159 Application.Dialogs(xlDialogPatterns).Show
160 Application.Dialogs(xlDialogPatterns).Show
161 Application.Dialogs(xlDialogPatterns).Show
162 Application.Dialogs(xlDialogPatterns).Show
163 Application.Dialogs(xlDialogPatterns).Show
164 Application.Dialogs(xlDialogPatterns).Show
165 Application.Dialogs(xlDialogPatterns).Show
166 Application.Dialogs(xlDialogPhonetic).Show
167 Application.Dialogs(xlDialogPivotCalculatedField).Show
169 Application.Dialogs(xlDialogPivotCalculatedItem).Show
170 Application.Dialogs(xlDialogPivotClientServerSet).Show
171 Application.Dialogs(xlDialogPivotFieldGroup).Show
172 Application.Dialogs(xlDialogPivotFieldProperties).Show
173 Application.Dialogs(xlDialogPivotFieldUngroup).Show
174 Application.Dialogs(xlDialogPivotShowPages).Show
175 Application.Dialogs(xlDialogPivotSolveOrder).Show
176 Application.Dialogs(xlDialogPivotTableOptions).Show
177 Application.Dialogs(xlDialogPivotTableWizard).Show
178 Application.Dialogs(xlDialogPlacement).Show
179 Application.Dialogs(xlDialogPrint).Show
180 Application.Dialogs(xlDialogPrinterSetup).Show
181 Application.Dialogs(xlDialogPrintPreview).Show
182 Application.Dialogs(xlDialogPromote).Show
183 Application.Dialogs(xlDialogProperties).Show
184 Application.Dialogs(xlDialogProtectDocument).Show
185 Application.Dialogs(xlDialogProtectSharing).Show
186 Application.Dialogs(xlDialogPublishAsWebPage).Show
187 Application.Dialogs(xlDialogPushbuttonProperties).Show
188 Application.Dialogs(xlDialogReplaceFont).Show
189 Application.Dialogs(xlDialogRoutingSlip).Show
190 Application.Dialogs(xlDialogRowHeight).Show
191 Application.Dialogs(xlDialogRun).Show
192 Application.Dialogs(xlDialogSaveAs).Show
193 Application.Dialogs(xlDialogSaveCopyAs).Show
194 Application.Dialogs(xlDialogSaveNewObject).Show
195 Application.Dialogs(xlDialogSaveWorkbook).Show
196 Application.Dialogs(xlDialogSaveWorkspace).Show
197 Application.Dialogs(xlDialogScale).Show
198 Application.Dialogs(xlDialogScale).Show
199 Application.Dialogs(xlDialogScale).Show
200 Application.Dialogs(xlDialogScale).Show
201 Application.Dialogs(xlDialogScale).Show
202 Application.Dialogs(xlDialogScenarioAdd).Show
203 Application.Dialogs(xlDialogScenarioCells).Show
204 Application.Dialogs(xlDialogScenarioEdit).Show
205 Application.Dialogs(xlDialogScenarioMerge).Show
206 Application.Dialogs(xlDialogScenarioSummary).Show
207 Application.Dialogs(xlDialogScrollbarProperties).Show
208 Application.Dialogs(xlDialogSelectSpecial).Show
209 Application.Dialogs(xlDialogSendMail).Show
210 Application.Dialogs(xlDialogSeriesAxes).Show
211 Application.Dialogs(xlDialogSeriesOptions).Show
212 Application.Dialogs(xlDialogSeriesOrder).Show
213 Application.Dialogs(xlDialogSeriesShape).Show
214 Application.Dialogs(xlDialogSeriesX).Show
215 Application.Dialogs(xlDialogSeriesY).Show
216 Application.Dialogs(xlDialogSetBackgroundPicture).Show
217 Application.Dialogs(xlDialogSetPrintTitles).Show
218 Application.Dialogs(xlDialogSetUpdateStatus).Show
219 Application.Dialogs(xlDialogShowDetail).Show
220 Application.Dialogs(xlDialogShowToolbar).Show
221 Application.Dialogs(xlDialogSize).Show
222 Application.Dialogs(xlDialogSort).Show
223 Application.Dialogs(xlDialogSort).Show
224 Application.Dialogs(xlDialogSortSpecial).Show
225 Application.Dialogs(xlDialogSplit).Show
226 Application.Dialogs(xlDialogStandardFont).Show
227 Application.Dialogs(xlDialogStandardWidth).Show
228 Application.Dialogs(xlDialogStyle).Show
229 Application.Dialogs(xlDialogSubscribeTo).Show
230 Application.Dialogs(xlDialogSubtotalCreate).Show
231 Application.Dialogs(xlDialogSummaryInfo).Show
232 Application.Dialogs(xlDialogTable).Show
233 Application.Dialogs(xlDialogTabOrder).Show
234 Application.Dialogs(xlDialogTextToColumns).Show
235 Application.Dialogs(xlDialogUnhide).Show
236 Application.Dialogs(xlDialogUpdateLink).Show
237 Application.Dialogs(xlDialogVbaInsertFile).Show
238 Application.Dialogs(xlDialogVbaMakeAddIn).Show
239 Application.Dialogs(xlDialogVbaProcedureDefinition).Show
240 Application.Dialogs(xlDialogView3d).Show
241 Application.Dialogs(xlDialogWebOptionsEncoding).Show
242 Application.Dialogs(xlDialogWebOptionsFiles).Show
243 Application.Dialogs(xlDialogWebOptionsFonts).Show
244 Application.Dialogs(xlDialogWebOptionsGeneral).Show
245 Application.Dialogs(xlDialogWebOptionsPictures).Show
246 Application.Dialogs(xlDialogWindowMove).Show
247 Application.Dialogs(xlDialogWindowSize).Show
248 Application.Dialogs(xlDialogWorkbookAdd).Show
249 Application.Dialogs(xlDialogWorkbookCopy).Show
250 Application.Dialogs(xlDialogWorkbookInsert).Show
251 Application.Dialogs(xlDialogWorkbookMove).Show
252 Application.Dialogs(xlDialogWorkbookName).Show
253 Application.Dialogs(xlDialogWorkbookNew).Show
254 Application.Dialogs(xlDialogWorkbookOptions).Show
255 Application.Dialogs(xlDialogWorkbookProtect).Show
256 Application.Dialogs(xlDialogWorkbookTabSplit).Show
257 Application.Dialogs(xlDialogWorkbookUnhide).Show
258 Application.Dialogs(xlDialogWorkgroup).Show
259 Application.Dialogs(xlDialogWorkspace).Show
260 Application.Dialogs(xlDialogZoom).Show

yaozong

参考（表式）。。

name004

Application.Dialogs(130).Show

130改为名称如何书写,真厉害

lchzh

oobird 发表于 2008-4-19 10:56
Application.Dialogs(130).Show

版主，EXCEL2010中用代码实现CTRL+F这个快捷键功能如何写