по функции Optionbuttion

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

по функции Optionbuttion (Макросы Sub)

k3rlic

Дата: Вторник, 04.03.2014, 21:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Дана задача в которой OptionButton служит кнопкой переключения "скидка 5%" и "без скидки" (выбор товара, выбор количества товара и скидка)
Задал для товара и количества определенные переменные в виде :
[vba]

Код

товар = TextBox1.Text
кол = TextBox2.Text

[/vba]
...
для кнопок (их две как писал уже выше) написал так
[vba]

Код

If OptionButton1.Value = True Then
скид = "со скидкой 5%"
Else
скид = "без скидки"
End If

[/vba]

Думаю сработает.
В ЧЕМ ЖЕ ВСЯ ПРОБЛЕМА!!!!
Textbox'ам присваеваем функцию text, я для OptionButton ? OptionButton имеет 2 значения: [vba]

Код

If OptionButton1.Value = True Then
скид = "со скидкой 5%"
Else
скид = "без скидки"

[/vba]
Но какая функция нужна чтобы программа считывала текст?
скид = OptionButton1.?????

Сообщение отредактировал Serge_007 - Вторник, 04.03.2014, 22:26

Ответить

RAN

Дата: Вторник, 04.03.2014, 22:20 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

If OptionButton1.Value = True Then
скид = "со скидкой 5%"
Else
скид = "без скидки"

[/vba]

Цитата k3rlic, 04.03.2014 в 21:11, в сообщении № 1

Но какая функция нужна чтобы программа считывала текст?
скид = OptionButton1.?????

Вы о чем?????

Текст скидки прописан кодом выше.
В OptionButton никакого текста нет и быть не может.

Быть или не быть, вот в чем загвоздка!

Ответить

по функции Optionbuttion (Макросы Sub)

Страница 1 из 1
1