http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FLanguage_Basics%2FVariable_Declaration
VBA/Excel/Access/Word/Language Basics/Variable Declaration - История изменений
2026-04-05T07:52:26Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Language_Basics/Variable_Declaration&diff=1170&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/Language_Basics/Variable_Declaration&diff=1171&oldid=prev
Admin: 1 версия
2010-05-26T12:46:34Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Declaring Variables==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DeclareVariable()<br />
Dim myVar As Integer<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Forcing Declaration of Variables: Option Explicit==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Option Explicit<br />
Sub CalcCost() " revised CalcCost procedure<br />
" declaration of variables<br />
Dim slsPrice As Currency<br />
Dim slsTax As Single<br />
Dim cost As Currency<br />
Dim strMsg As String<br />
slsPrice = 35<br />
slsTax = 0.085<br />
cost = Format(slsPrice + (slsPrice * slsTax), "0.00")<br />
strMsg = "The calculator total is " & "$" & cost & "."<br />
MsgBox strMsg<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==If you"re going to declare multiple variables on one line, make sure each variable is specifically declared==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dSub()<br />
Dim intCounter As Integer, intAge As Integer, intWeight As Integer<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To declare a variable in VBA use the Dim (short for Dimension) statement.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub inttype()<br />
Dim myVar As Integer<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Variable declaration is required with Option Explicit and a module level variable (answer) is declared.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Option Explicit<br />
Dim answer As Integer<br />
Sub Main()<br />
Dim num1 As Integer<br />
Dim num2 As Integer<br />
num1 = Val(InputBox("Please enter the first addend", "First Addend"))<br />
num2 = Val(InputBox("Please enter the second addend", "Second Addend"))<br />
Call AddUserInput(num1, num2)<br />
SendResult<br />
End Sub<br />
Private Sub AddUserInput(num1 As Integer, num2 As Integer)<br />
answer = num1 + num2<br />
End Sub<br />
Private Sub SendResult()<br />
MsgBox ("The answer is " & Str(answer))<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Variables can also be declared in the declarations section at the top of a module==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Option Explicit<br />
Dim Sales<br />
Sub Scope1()<br />
Sales = Sales + 1<br />
MsgBox Sales<br />
End Sub<br />
Sub Scope2()<br />
Sales = Sales + 10<br />
MsgBox Sales<br />
End Sub<br />
</source></div>
Admin