http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FWorksheet_Move 2026-04-06T23:06:33Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Worksheet_Move&diff=1532&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/Excel/Worksheet_Move&diff=1533&oldid=prev 2010-05-26T12:47:23Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==copy the third worksheet before the 2nd worksheet==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub SimpleWorksheetMovement() <br /> &quot; copy the third worksheet before the 2nd worksheet <br /> ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) <br /> End Sub <br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==copy the third worksheet to a new book==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub SimpleWorksheetMovement() <br /> ThisWorkbook.Worksheets(3).Copy <br /> End Sub <br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Drag the third worksheet to the first sheet position==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub Macro3()<br /> Sheets(&quot;Sheet3&quot;).Select<br /> Sheets(&quot;Sheet3&quot;).Move Before:=Sheets(1)<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Move sheet to the end==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub Move_Sheet()<br /> Dim myWorksheet As Worksheet<br /> Dim myWorksheetName As String<br /> myWorksheetName = &quot;MyName&quot;<br /> Sheets.Add.Name = myWorksheetName<br /> Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)<br /> Sheets(&quot;Sheet1&quot;).Range(&quot;A1:A5&quot;).Copy _<br /> Sheets(myWorksheetName).Range(&quot;A1&quot;)<br /> End Sub<br /> &lt;/source&gt;</div>

Admin