http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FName_Create
VBA/Excel/Access/Word/Excel/Name Create - История изменений
2026-04-07T07:03:57Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Name_Create&diff=1590&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/Name_Create&diff=1591&oldid=prev
Admin: 1 версия
2010-05-26T12:47:33Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Add the name to the Names collection associated with the worksheet, which only includes the names that are local to that worksheet==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub nameRef()<br />
Worksheets("Sheet1").Names.add name:="Costs", RefersTo:="=Sheet1!$F$10:$F$12"<br />
End Sub<br />
"Using the Name Property of the Range Object<br />
Sub name()<br />
range("A1:D10").name = "SalesData"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==create a global name that refers to a range using the Add method of the Workbook object"s Names collection==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub add()<br />
Names.add name:="Data", RefersTo:="=Sheet1!$D$10:$D$12"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Create a local name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub localDemo()<br />
Names.add name:="Sheet1!Sales", RefersTo:="=Sheet1!$E$10:$E$12"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Create a name based on a Range==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub nameName()<br />
range("A1:F6").name = "Fruits"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Define a name by referring a workbook==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DefineName3()<br />
ActiveWorkbook.names.Add Name:="WorkArea", RefersTo:="=" + ActiveWorkbook.Sheets("sheet1").[A1].CurrentRegion.Address(External:=True)<br />
Debug.Print Range("WorkArea").Address(External:=True)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Define a name by referring the selection cell address==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DefineName2()<br />
ActiveWorkbook.Activate<br />
[A1].CurrentRegion.Activate<br />
ActiveWorkbook.Names.Add Name:="WorkArea", RefersTo:="=" + Selection.Address<br />
Debug.Print Range("WorkArea").Address(External:=True)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==renames an existing name:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub nameName2()<br />
Names("Fruits").name = "Produce"<br />
End Sub<br />
</source></div>
Admin