http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FRange_Value
VBA/Excel/Access/Word/Excel/Range Value - История изменений
2026-04-07T07:06:38Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Range_Value&diff=1572&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/Range_Value&diff=1573&oldid=prev
Admin: 1 версия
2010-05-26T12:47:29Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Change cell A1 and move to cell A2 and change it==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub MyMacro()<br />
Range("A1").Value = "This is A1"<br />
Range("A2").Select<br />
ActiveCell.Value = "This is A2"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Clear NonDate Cells==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub ClearNonDateCells()<br />
Dim aRange As Range<br />
For Each aRange In Cells.SpecialCells(xlCellTypeConstants, xlNumbers)<br />
If Not IsDate(aRange.Value) Then aRange.ClearContents<br />
Next aRange<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Reset value in a range to zero==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ResetValuesToZero2()<br />
For Each n In Worksheets("Sheet1").Range("WorkArea1") " Substitute your information here<br />
If n.Value <> 0 Then<br />
n.Value = 0<br />
End If<br />
Next n<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Return cell value in a range as an array==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub Array3()<br />
Dim Data As Variant<br />
Data = Range("A1:A20").Value<br />
MsgBox "Number of Non Blank Elements = " & WorksheetFunction.CountA(Data) & vbCr<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Sum the range==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub addAmtAbs()<br />
Set myRange = Range(ActiveCell, ActiveCell.End(xlUp)) " Substitute your range here<br />
Dim myCount As Integer<br />
myCount = Application.Count(myRange)<br />
ActiveCell.Formula = "=SUM(B1:B" & myCount & ")" " Substitute your cell address here<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Transferring one-dimensional arrays with build-in function==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub trans()<br />
range("A1:A3").value = Application.WorksheetFunction.Transpose(range("A1:C1"))<br />
End Sub<br />
</source></div>
Admin