OpenButton. Не выводится значение в ячейку.

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » OpenButton. Не выводится значение в ячейку. (Макросы/Sub)

pips

Дата: Суббота, 28.04.2018, 11:30 | Сообщение № 1

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

Ранг: Участник

Сообщений: 69

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

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

Excel 2010

Доброе утро.
Совсем новичок в этом деле, весь гугл изнасиловал, меня, похоже, забанят.
Создаю форму для заполнения перед открытием самого документа. Создал OptionButton, при нажатии которой должен выводиться текст в определенную ячейку.
(Назначение ответственного руководителя работ. Выбрал из трех вариантов - нужная фамилия вставилась в ячейку M6).
Подскажите, как правильно написать этот код. Много вариантов попробовал, это то, на чем остановился.

В Module1
[vba]

Код

Private Sub ОтврукБатраков()

    If DataInput1.ButBatrakov Then
        Range("M6").Value = "Батраков"
        Else: Range("M6").Clear
    End If

End Sub

[/vba]

В UserForm (называется DataInput)
[vba]

Код

Sub DataInput()

    Unload DataInput1
    Load DataInput1
    Range("M6").Clear
    DataInput1.Show

End Sub

[/vba]

К сообщению приложен файл: Naryad_dopusk.xls (88.0 Kb)

Сообщение отредактировал pips - Суббота, 28.04.2018, 11:32

Ответить

and_evg

Дата: Суббота, 28.04.2018, 11:48 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

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

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

Excel 2007

И Вам доброе для рамки Ответственный руководитель работ:
[vba]

Код

Private Sub ButBatrakov_Click()
Range("M6").Value = "Батраков"
End Sub

Private Sub ButGolub_Click()
Range("M6").Value = "Голубь"
End Sub

Private Sub ButNeNazn_Click()
Range("M6").Value = "Не назначается"
End Sub

Private Sub ButPopov_Click()
Range("M6").Value = "Попов"
End Sub

[/vba]

К сообщению приложен файл: 5812532.xls (71.0 Kb)

Сообщение отредактировал and_evg - Суббота, 28.04.2018, 11:52

Ответить

Апострофф

Дата: Суббота, 28.04.2018, 11:52 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

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

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

Excel 1997

pips, абсолютно очевидно, что списки ответственных, допускающих, производящих, наблюдающих и т.д. и т.п. должны различаться и где-то находиться (на отдельном листе, к примеру)
И выбирать их лучше не в OptionButton, а в ComboBox.
Иначе при любом кадровом изменении будете искать программиста, который будет править ваши формы и коды.

Ответить

pips

Дата: Суббота, 28.04.2018, 11:59 | Сообщение № 4

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

Ранг: Участник

Сообщений: 69

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

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

Excel 2010

Апострофф, согласен, раньше так и было, но не на VBA, а на обычных формулах. Сейчас решил попробовать так.

Ответить

and_evg

Дата: Суббота, 28.04.2018, 11:59 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 452

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

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

Excel 2007

Цитата Апострофф, 28.04.2018 в 11:52, в сообщении № 3 ()

Иначе при любом кадровом изменении будете искать программиста

Поддерживаю 100%

Ответить

pips

Дата: Суббота, 28.04.2018, 12:00 | Сообщение № 6

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

Ранг: Участник

Сообщений: 69

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

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

Excel 2010

Апострофф, and_evg, спасибо за информацию, буду переделывать с учетом ваших рекомендаций.

Сообщение отредактировал pips - Суббота, 28.04.2018, 12:00

Ответить

StoTisteg

Дата: Суббота, 28.04.2018, 12:02 | Сообщение № 7

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

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

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

Excel 2010

Цитата pips, 28.04.2018 в 11:59, в сообщении № 4 ()

Сейчас решил попробовать так.

Ну так запихните всю эту штатку в скрытые листы и дело с концом.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

_Boroda_

Дата: Суббота, 28.04.2018, 12:04 | Сообщение № 8

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

А кстати, почему не сделать просто выпадающие списки? Зачем этот геморрой с формами?Для отв рук работ сделал

К сообщению приложен файл: Naryad_dopusk_1.xls (84.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995