Visual Basic

Formatka i spinnery – zakres liczb

Formatka i spinnery – zakres liczb
Visual Basic

Program: wyświetlający liczby z zakresy podanego przez użytkownika za pomocą formatki.

Jak w opisie.

Kompilator: Microsoft Excel

Galeria:

Program w akcji.

Kod programu:

Sub formatka()
    UserForm1.Show
End Sub

Private Sub CommandButton1_Click()

i = SpinButton1.Value
j = SpinButton2.Value

If i < j Then
    For i = SpinButton1.Value To SpinButton2.Value
            Cells(i - SpinButton1.Value + 1, 1) = i
    Next i
Else
    For i = SpinButton2.Value To SpinButton1.Value
            Cells(i - SpinButton2.Value + 1, 1) = SpinButton1.Value - (i - SpinButton2.Value + 1) + 1
    Next i
End If
End Sub

Private Sub SpinButton1_Change()
    TextBox1 = SpinButton1.Value
End Sub

Private Sub SpinButton2_Change()
    TextBox2 = SpinButton2.Value
End Sub