Private Sub SpinButton1_Change()
TextBox1.Value = IIf(SpinButton1.Value = 26, 2, SpinButton1.Value)
End Sub
CheckBox? :)
Подскажите пож-та как выполнить прокрутку времени с 4 до 2 (след. дня)? Имеется код в котором имеется возможность только 24.
Private Sub SpinButton1_Change()
TextBox1.Value = SpinButton1.Value
End Sub
Private Sub SpinButton1_Change()
TextBox1.Value = SpinButton1.Value
End Sub
Если я тебя правильно понял тебе надо прокручивать числа в текст бокс
тогда лучше использовать компонент UpDown.(подключи MSWindows Component Control 25)
у компонента UpDown есть св-во AutoBuddy поставь true он автоматически свяжет с подходящим объектом (текст боксом).
Укажи min = 0 max = 24
пр.код
Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value
End Sub
тогда лучше использовать компонент UpDown.(подключи MSWindows Component Control 25)
у компонента UpDown есть св-во AutoBuddy поставь true он автоматически свяжет с подходящим объектом (текст боксом).
Укажи min = 0 max = 24
пр.код
Private Sub UpDown1_Change()
Text1.Text = UpDown1.Value
End Sub
порядок должен быть такой:
4
6
..
24
2
Работаю через Excel 2003 и такого компонента MSWindows Component Control 25 в библиотеке не нашел :(
4
6
..
24
2
Работаю через Excel 2003 и такого компонента MSWindows Component Control 25 в библиотеке не нашел :(
Tybor, Вы можете предварительно установить Min=2, Max=26, SmallChange=2 и использовать что-то вроде нижеопубликованного варианта :
Если существует вероятность, что шкала времени может измениться (в сторону увеличения максимального значения) то в этом случае, лучше использовать :
Код:
Если существует вероятность, что шкала времени может измениться (в сторону увеличения максимального значения) то в этом случае, лучше использовать :
Код:
Private Sub SpinButton1_Change()
iCounter = SpinButton1.Value
TextBox1.Value = IIf(iCounter > 24, iCounter Mod 24, iCounter)
End Sub
iCounter = SpinButton1.Value
TextBox1.Value = IIf(iCounter > 24, iCounter Mod 24, iCounter)
End Sub
Спасибо большое!