http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FCell_Reference 2026-04-07T07:03:56Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Cell_Reference&diff=1570&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/Cell_Reference&diff=1571&oldid=prev 2010-05-26T12:47:28Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==A1 Style References==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub m()<br /> Range(&quot;D5&quot;).Value = &quot;=SUM(D1:D4)&quot;<br /> Range(&quot;D5&quot;).Formula = &quot;=SUM(D1:D4)&quot;<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Entering A1 Versus R1C1 in VBA==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub A1Style()<br /> FinalRow = cells(Rows.count, 2).End(xlUp).row<br /> range(&quot;D4&quot;).Formula = &quot;=B4*C4&quot;<br /> range(&quot;F4&quot;).Formula = &quot;=IF(E4,ROUND(D4*$B$1,2),0)&quot;<br /> range(&quot;G4&quot;).Formula = &quot;=F4+D4&quot;<br /> range(&quot;D4&quot;).copy Destination:=range(&quot;D5:D&quot; &amp; FinalRow)<br /> range(&quot;F4:G4&quot;).copy Destination:=range(&quot;F5:G&quot; &amp; FinalRow)<br /> cells(FinalRow + 1, 1).value = &quot;Total&quot;<br /> cells(FinalRow + 1, 6).Formula = &quot;=SUM(G4:G&quot; &amp; FinalRow &amp; &quot;)&quot;<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==R1C1 Style==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub R1C1Style()<br /> FinalRow = cells(Rows.count, 2).End(xlUp).row<br /> range(&quot;D4:D&quot; &amp; FinalRow).FormulaR1C1 = &quot;=RC[-1]*RC[-2]&quot;<br /> range(&quot;F4:F&quot; &amp; FinalRow).FormulaR1C1 = &quot;=IF(RC[-1],ROUND(RC[-2]*R1C2,2),0)&quot;<br /> range(&quot;G4:G&quot; &amp; FinalRow).FormulaR1C1 = &quot;=+RC[-1]+RC[-3]&quot;<br /> cells(FinalRow + 1, 1).value = &quot;Total&quot;<br /> cells(FinalRow + 1, 6).Formula = &quot;=SUM(G4:G&quot; &amp; FinalRow &amp; &quot;)&quot;<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==R1C1 Style References==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub r1c1()<br /> Dim formulaString As String<br /> formulaString = &quot;=R[0]C[-1]+ R[-1]C[0]&quot;<br /> Cells(2, &quot;B&quot;).FormulaR1C1 = formulaString<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==The Cells property is best suited for use with loops because it accepts numerical parameters representing the row and column indices in a worksheet==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub cellPro()<br /> Dim I As Integer<br /> Dim K As Integer<br /> For K = 1 To 5<br /> For I = 1 To 10<br /> Cells(I, K).Value = I * K<br /> Next I<br /> Next K<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Use loop to select cells==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub forDemo()<br /> Dim i As Integer<br /> For i = 1 To 24<br /> ActiveCell.FormulaR1C1 = i &amp; &quot;:00&quot;<br /> ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0).Select<br /> Next i<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Write a formula in the first 10 columns of row 21 in a worksheet that calculates the standard deviation of the values in rows 2 through 20==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub formulaDemo()<br /> Dim I As Integer<br /> For I = 1 To 10<br /> Cells(21, I).Formula = &quot;=STDEV(&quot; &amp; Chr(I + 64) &amp; &quot;2:&quot; &amp; Chr(I + 64) &amp; &quot;20)&quot;<br /> Next I<br /> End Sub<br /> &lt;/source&gt;</div>

Admin