Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывести на таблицу значение OptionButton - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывести на таблицу значение OptionButton (Макросы/Sub)
Вывести на таблицу значение OptionButton
QwertyBoss Дата: Среда, 16.12.2015, 09:09 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет и хорошего настроения, чего не скажешь про меня =(. Второе утро сайты штурмую в поисках ответов. Не могу назначить действие на кнопку OptionButton1 и OptionButton2, так что бы при выборе одног или другого в заполняемой строке в столбце , скажем "J" отображалась буква "Г" (т.е. главные) или "В" (т.е. второстепенные). Пробывал разные наработка (свои), которые увенчались провалом =(.
ЗЫ что - то с кодом непонятное, при выводе на лист - ВИСНЕТ, какого не было раньше... Помогите разобраться плз.
К сообщению приложен файл: 6881292.xlsm (35.9 Kb)


Сообщение отредактировал QwertyBoss - Среда, 16.12.2015, 09:09
 
Ответить
СообщениеВсем привет и хорошего настроения, чего не скажешь про меня =(. Второе утро сайты штурмую в поисках ответов. Не могу назначить действие на кнопку OptionButton1 и OptionButton2, так что бы при выборе одног или другого в заполняемой строке в столбце , скажем "J" отображалась буква "Г" (т.е. главные) или "В" (т.е. второстепенные). Пробывал разные наработка (свои), которые увенчались провалом =(.
ЗЫ что - то с кодом непонятное, при выводе на лист - ВИСНЕТ, какого не было раньше... Помогите разобраться плз.
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 09:09
_Boroda_ Дата: Среда, 16.12.2015, 09:15 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не очень понял. Это хотите?
[vba]
Код
Range("J" & Selection(1).Row) = "Г"
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе очень понял. Это хотите?
[vba]
Код
Range("J" & Selection(1).Row) = "Г"
[/vba]
Автор - _Boroda_
Дата добавления - 16.12.2015 в 09:15
QwertyBoss Дата: Среда, 16.12.2015, 10:02 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да нет ув._Boroda_. По запаре оставил столбец выделенный. А суть такая: при входе в форму формируются данные, после формирования выводится все на лист, тка вот можно ли что б при формировании в форме, при выборе OptionButton1 или OptionButton2 в сформированной строке ла Листе - появлялась в столбце "J" или буква "Г" (или слово "главная" ), ну и соответственоо при выборе в форме OptionButton2 - буква "В" (или слово "Второстепенные") без разницы ... Это нужно для дальнейшей сортировки...
ЗЫ только почему -то когда в форму захожу - комп виснет.. ..может где-то в коде "зацикливание" ?
К сообщению приложен файл: 6671569.xlsm (35.1 Kb)
 
Ответить
СообщениеДа нет ув._Boroda_. По запаре оставил столбец выделенный. А суть такая: при входе в форму формируются данные, после формирования выводится все на лист, тка вот можно ли что б при формировании в форме, при выборе OptionButton1 или OptionButton2 в сформированной строке ла Листе - появлялась в столбце "J" или буква "Г" (или слово "главная" ), ну и соответственоо при выборе в форме OptionButton2 - буква "В" (или слово "Второстепенные") без разницы ... Это нужно для дальнейшей сортировки...
ЗЫ только почему -то когда в форму захожу - комп виснет.. ..может где-то в коде "зацикливание" ?
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 10:02
QwertyBoss Дата: Среда, 16.12.2015, 11:49 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
чёт вообще запутался.. Пробывал сам что то придумать .... и запутался... совсем
OptionButton почему то не убирает "В" и "Г" с текстбоксов , что неправильно делаю? Почему на Лист выводит ложь/истина вместо "В" и "Г" ?
К сообщению приложен файл: 0824385.xlsm (28.0 Kb)


Сообщение отредактировал QwertyBoss - Среда, 16.12.2015, 12:38
 
Ответить
Сообщениечёт вообще запутался.. Пробывал сам что то придумать .... и запутался... совсем
OptionButton почему то не убирает "В" и "Г" с текстбоксов , что неправильно делаю? Почему на Лист выводит ложь/истина вместо "В" и "Г" ?
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 11:49
_Boroda_ Дата: Среда, 16.12.2015, 12:56 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub UserForm_Activate()
'ActiveSheet.Unprotect Password:="123"
UserForm1.ComboBox1.AddItem "Служба добычи газа"
UserForm1.ComboBox1.AddItem "Служба подготовки газа"
UserForm1.ComboBox1.AddItem "Служба КИПиА"
UserForm1.ComboBox1.AddItem "Служба ЭВС"
UserForm1.ComboBox1.AddItem "Служба механика"
'ActiveSheet.Protect Password:="123"
    If UserForm1.OptionButton2 = True Then
        UserForm1.TextBox8 = "В"
        UserForm1.TextBox7 = " "
    Else
        UserForm1.TextBox8 = " "
        UserForm1.TextBox7 = "Г"
    End If
End Sub
[/vba]
К сообщению приложен файл: 0824385_1.xlsm (24.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub UserForm_Activate()
'ActiveSheet.Unprotect Password:="123"
UserForm1.ComboBox1.AddItem "Служба добычи газа"
UserForm1.ComboBox1.AddItem "Служба подготовки газа"
UserForm1.ComboBox1.AddItem "Служба КИПиА"
UserForm1.ComboBox1.AddItem "Служба ЭВС"
UserForm1.ComboBox1.AddItem "Служба механика"
'ActiveSheet.Protect Password:="123"
    If UserForm1.OptionButton2 = True Then
        UserForm1.TextBox8 = "В"
        UserForm1.TextBox7 = " "
    Else
        UserForm1.TextBox8 = " "
        UserForm1.TextBox7 = "Г"
    End If
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 16.12.2015 в 12:56
QwertyBoss Дата: Среда, 16.12.2015, 14:24 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
эээ.... немного нет. Нужно напротив заполненых строк (там... разные абрикосы, службы и т.д, проценты те же самые и т.п.) в столбце "J" (я его обвёл), проставлялась буква в зависимости от выбора OptionButton... как то так (в примере показал как должно быть) =). Спс. за ранее
К сообщению приложен файл: 3781123.xlsm (28.0 Kb)
 
Ответить
Сообщениеэээ.... немного нет. Нужно напротив заполненых строк (там... разные абрикосы, службы и т.д, проценты те же самые и т.п.) в столбце "J" (я его обвёл), проставлялась буква в зависимости от выбора OptionButton... как то так (в примере показал как должно быть) =). Спс. за ранее
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 14:24
_Boroda_ Дата: Среда, 16.12.2015, 14:35 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так?
К сообщению приложен файл: 3781123_1.xlsm (24.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак?
Автор - _Boroda_
Дата добавления - 16.12.2015 в 14:35
QwertyBoss Дата: Среда, 16.12.2015, 15:12 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ОООО ДАААА! Я Вас обожаю!!! =)))) И ... это мой любимый форум! Ща буду по кирпичикам разбирать!


Сообщение отредактировал QwertyBoss - Среда, 16.12.2015, 15:13
 
Ответить
СообщениеОООО ДАААА! Я Вас обожаю!!! =)))) И ... это мой любимый форум! Ща буду по кирпичикам разбирать!
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 15:12
QwertyBoss Дата: Среда, 16.12.2015, 15:18 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
А если без применения текстбоков №7 и №8, а напрямую через OptionButton выводить? Сильно код измениться? Это я просто свой метод пробывал... выводить значения серез тексбокс. А вот напрямую ... тяма нету =(


Сообщение отредактировал QwertyBoss - Среда, 16.12.2015, 15:22
 
Ответить
СообщениеА если без применения текстбоков №7 и №8, а напрямую через OptionButton выводить? Сильно код измениться? Это я просто свой метод пробывал... выводить значения серез тексбокс. А вот напрямую ... тяма нету =(
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 15:18
_Boroda_ Дата: Среда, 16.12.2015, 15:22 | Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Не. Одна строка
[vba]
Код
Cells(EmptyRows, 10) = IIf(OptionButton1, "Г", "В")
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНе. Одна строка
[vba]
Код
Cells(EmptyRows, 10) = IIf(OptionButton1, "Г", "В")
[/vba]
Автор - _Boroda_
Дата добавления - 16.12.2015 в 15:22
QwertyBoss Дата: Среда, 16.12.2015, 15:32 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Что ж получается, это я огород городил? >( . Блииин ну не судите тогда так строго . Новичок , 2 месяца тока в VBA... yes
 
Ответить
СообщениеЧто ж получается, это я огород городил? >( . Блииин ну не судите тогда так строго . Новичок , 2 месяца тока в VBA... yes
Автор - QwertyBoss
Дата добавления - 16.12.2015 в 15:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывести на таблицу значение OptionButton (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!