http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FFormula
VBA/Excel/Access/Word/Excel/Formula - История изменений
2026-04-06T15:43:48Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Formula&diff=1524&oldid=prev
в 16:33, 26 мая 2010
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/Formula&diff=1525&oldid=prev
Admin: 1 версия
2010-05-26T12:47:22Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Assigns the values 101 to 200 to the range B1:Bnd again does it more efficiently than a For...Next loop==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub main()<br />
[B1:B100] = [ROW(101:200)]<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Create a set of related formulas in a column: use a looping structure to iterate through the cells that receive the formula==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub formula()<br />
Dim formulaString As String<br />
Dim I As Integer<br />
Cells(1, "B").Value = Cells(1, "A").Value<br />
For I = 2 To 10<br />
formulaString = "=A" & Trim(str(I)) & "+B" & Trim(str(I - 1))<br />
Cells(I, "B").formula = formulaString<br />
Next I<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Fill formula to cell==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub AddWatch()<br />
With Application<br />
.Range("A1").Formula = 1<br />
.Range("A2").Formula = 2<br />
.Range("A3").Formula = "=Sum(A1:A2)"<br />
.Range("A3").Select<br />
.Watches.Add Source:=ActiveCell<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Inserts a formula in cell A11 of a worksheet that calculates the sum of the values in the range A2:A10 using the Excel application"s SUM function==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub formal()<br />
Dim formulaString As String<br />
formulaString = "=SUM($A$2:$A$10)"<br />
Cells(11, "A").Formula = formulaString<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Is active cell empty==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub IsActiveCellEmpty()<br />
Dim sFunctionName As String, sCellReference As String<br />
sFunctionName = "ISBLANK"<br />
sCellReference = ActiveCell.Address<br />
MsgBox Evaluate(sFunctionName & "(" & sCellReference & ")")<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==The Evaluate method can also be used with arrays.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub short()<br />
vRowArray = [ROW(101:200)]<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Two ways you can use Evaluate to generate a reference to a Range object, and assign a value to that object==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub evalDemo()<br />
Evaluate("A1").value = 10<br />
[A1].value = 10<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use Copy and Paste or AutoFill functions==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub autoFill()<br />
Dim formulaString As String<br />
Dim I As Integer<br />
Cells(1, "B").Value = Cells(1, "A").Value<br />
formulaString = "=A2+B1"<br />
Cells(2, "B").formula = formulaString<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use [] to evaluate formula==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub isBlank()<br />
MsgBox [ISBLANK(A1)]<br />
End Sub<br />
</source></div>
Admin