связаннуе SpinButton + TextBox + формула

Sofi

Гость

17.04.2011 18:23:14

Добрый день ВСЕМ!

Необходимо устанавливать SpinButton значения в дробном формате в TextBox,
при этом выбранное значение должно учитываться в формуле, формула в лист
записывается макросом!

Подскажите, как сие можно осуществить и можно ли вообще?
Подробности в примере

Прикрепленные файлы

post_219528.xls (35 КБ)

Гость

18.04.2011 13:00:31

1) Me.SpinButton1.Value всегда целое от Me.SpinButton1.Min до Me.SpinButton1.max
2) Раз вы хотите настроить пределы значений в SpinButton: MIN = 1/8 = 6/48 MAX = 2/3 =26/48
устанавливаем в свойствах SpinButton MIN = 6 MAX = 26
при этом шаг у нас 1/48, и числовое значение коэффициента определяется как
Me.SpinButton1.Value / 48
3) показать число в дробном формате
WorksheetFunction.Text(Me.SpinButton1.Value / 48, "# ???/???") здесь оставлено три значащих цифры про запас, при шаге 1/48 достаточно двух
4) вобще говоря значение SpinButton1.Value сохраняется, но если нужно начинать с 1/8 то
Private Sub UserForm_Initialize()
Me.SpinButton1.Value = Me.SpinButton1.Min
Me.TextBox1 = WorksheetFunction.Text(Me.SpinButton1.Value / 48, "# ???/???")
End Sub
5) запись числа в textbox в дробном формате и добавление в формулу
Private Sub SpinButton1_Change()
Me.TextBox1 = WorksheetFunction.Text(Me.SpinButton1.Value / 48, "# ???/???")
Range("J2").Formula = "=ROUND(ROUND(($E2*$G2*" & Me.TextBox1.Value & "),0)-H2,0)"
End Sub

ну вот и все пироги....

Гость

18.04.2011 13:13:36

26/48 = 13/24 = 2/3-1/8 это диапазон изменения, чтоб определить допустимый шаг.

вместо
устанавливаем в свойствах SpinButton MIN = 6 MAX = 26
надо
устанавливаем в свойствах SpinButton MIN = 6 MAX = 32 (тогда от 1/8 до 2/3)

Прикрепленные файлы

post_219825.xls (44.5 КБ)

Sofi Гость	#4 18.04.2011 17:20:07 Большое спасибо dl за содействие! Проверил, все хорошо, респект! Sofi

Sofi

Гость

19.04.2011 09:38:34

Уважаемый dl и остальные форумчане!

Поковырялся с Вашим вариантом решения моей проблемы и
возник вопрос по предложенному Вами форматированию, только
применительно к ComboBox!

Подробности в примере!

Прикрепленные файлы

post_220183.xls (45.5 КБ)

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#6 19.04.2011 10:04:53 А чем вам не подходит: Me.ComboBox1.List = Array("1 / 2", "1 / 3", "1 / 4", "1 / 5", "1 / 6", "1 / 7", "1 / 8") ?? Все отображается так как надо. Прикрепленные файлы post_220188.xls (53 КБ) Редко но метко ...

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#7 19.04.2011 10:14:40 что бы получить численное значение дроби используйте функцию: Evaluate(), см. файл. Прикрепленные файлы post_220190.xls (54 КБ) Редко но метко ...

Sofi Гость	#8 19.04.2011 10:23:57 Действительно, все как надо! У меня почему-то в Combo.List были дроби 1/2 и т.д. а в окне Combo "40548" т.е. ДАТА! Странно, спасибо за участие!

Читают тему