http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FApplication%2FDialogs 2026-04-06T00:10:57Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/Dialogs&diff=1066&oldid=prev 2010-05-26T16:33:00Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr style="vertical-align: top;" lang="ru"> <td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td> <td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td> </tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div> </td></tr></table>

http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Application/Dialogs&diff=1067&oldid=prev 2010-05-26T12:46:13Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==cancel a procedure if the user clicked the Cancel button in a dialog box:==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub dlg()<br /> If Dialogs(wdDialogFileOpen).show = 0 Then End<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Display one of Excel&quot;s built-in dialog boxes and let the user make the choices: by using the Application object&quot;s Dialogs property.==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub show()<br /> Result = Application.Dialogs(xlDialogFormulaGoto).show<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Returning the Button the User Chose in a Dialog Box==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> <br /> Return Value Button Clicked <br /> -2 Close <br /> -1 OK <br /> 0 Cancel <br /> 1 The first command button <br /> 2 The second command button <br /> &gt;2 Subsequent command buttons <br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Set the contents of the File Name text box in the Save As dialog box in Word and then display the dialog box==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub show()<br /> With Dialogs(wdDialogFileSaveAs)<br /> .Name = &quot;Yellow Paint Primer&quot;<br /> .show<br /> End With<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Specifying a Timeout for a Dialog Box==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub dlg2()<br /> With Dialogs(wdDialogToolsOptions)<br /> .DefaultTab = wdDialogToolsOptionsTabUserInfo<br /> .show (15000)<br /> End With<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==To display Excel&quot;s Open dialog box==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub showDialog()<br /> Application.Dialogs(xlDialogOpen).show<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Using an Application&quot;s Built-in Dialog Boxes from VBA: wdDialogFileOpen==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub box()<br /> If Documents.Count = 0 Then<br /> Proceed = MsgBox(&quot;no document.Please open a document.&quot;, vbOKCancel + vbExclamation, &quot;Format Report&quot;)<br /> If Proceed = vbOK Then<br /> Dialogs(wdDialogFileOpen).Show<br /> If Documents.Count = 0 Then End<br /> Else<br /> End<br /> End If<br /> End If<br /> End Sub<br /> &lt;/source&gt;</div>

Admin