VBA/Excel/Access/Word/Excel/Range Add — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
To add a range name based on a selection using a variable
<source lang="vb">
Sub AddName3()
Dim rngSelect As String rngSelect = Selection.Address ActiveSheet.Names.Add Name:="MyRange3", RefersTo:="=" & rngSelect
End Sub
</source>
To add a range name for known range
<source lang="vb">
Sub AddName1()
ActiveSheet.Names.Add Name:="MyRange1", RefersTo:="=$A$1:$B$10"
End Sub
</source>
Use ActiveCell and ActiveCell.End to create Range
<source lang="vb">
Sub SelectDown()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub
</source>