http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FForms%2FSpinButton
VBA/Excel/Access/Word/Forms/SpinButton - История изменений
2026-04-05T07:45:07Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Forms/SpinButton&diff=1931&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/Forms/SpinButton&diff=1932&oldid=prev
Admin: 1 версия
2010-05-26T12:48:31Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Assign value from a TextBox to a Spinner==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub TextBox1_Change()<br />
Dim NewVal As Integer<br />
NewVal = Val(TextBox1.Text)<br />
If NewVal >= SpinButton1.Min And _<br />
NewVal <= SpinButton1.Max Then _<br />
SpinButton1.Value = NewVal<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Set Spinner value to a TextBox==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub SpinButton1_Change()<br />
TextBox1.Text = SpinButton1.Value<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Set the SpinButton Min/Max and current value==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub UserForm_Initialize()<br />
With SpinButton1<br />
.Min = 1<br />
.Max = 100<br />
Label1.Caption = "Specify a value between " & .Min & " and " & .Max & ":"<br />
" Initialize Spinner<br />
.Value = 1<br />
" Initialize TextBox<br />
TextBox1.Text = .Value<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Spin up event procedure for spin button==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub SpinButton1_SpinUp()<br />
With Range("B4")<br />
"Increase value in B4 by .05%. Stop at 1%<br />
.Value = WorksheetFunction.Min(0.01, .Value + 0.0005)<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==The spin button control uses the SpinDown and SpinUp events to decrease and increase the value in cell B4==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"Spin down event procedure for spin button<br />
Private Sub SpinButton1_SpinDown()<br />
With Range("B4")<br />
"Decrease value in B4 by .05%. Stop at 0%<br />
.Value = WorksheetFunction.Max(0, .Value - 0.0005)<br />
End With<br />
End Sub<br />
</source></div>
Admin