OpenButton. Не выводится значение в ячейку.
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]
Доброе утро. Совсем новичок в этом деле, весь гугл изнасиловал, меня, похоже, забанят. Создаю форму для заполнения перед открытием самого документа. Создал 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] pips
Сообщение отредактировал pips - Суббота, 28.04.2018, 11:32
Ответить
Сообщение Доброе утро. Совсем новичок в этом деле, весь гугл изнасиловал, меня, похоже, забанят. Создаю форму для заполнения перед открытием самого документа. Создал 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] Автор - pips Дата добавления - 28.04.2018 в 11:30
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]
И Вам доброе для рамки Ответственный руководитель работ: [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] and_evg
Сообщение отредактировал and_evg - Суббота, 28.04.2018, 11:52
Ответить
Сообщение И Вам доброе для рамки Ответственный руководитель работ: [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] Автор - and_evg Дата добавления - 28.04.2018 в 11:48
Апострофф
Дата: Суббота, 28.04.2018, 11:52 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 448
Репутация:
124
±
Замечаний:
0% ±
Excel 1997
pips , абсолютно очевидно, что списки ответственных, допускающих, производящих, наблюдающих и т.д. и т.п. должны различаться и где-то находиться (на отдельном листе, к примеру) И выбирать их лучше не в OptionButton, а в ComboBox. Иначе при любом кадровом изменении будете искать программиста, который будет править ваши формы и коды.
pips , абсолютно очевидно, что списки ответственных, допускающих, производящих, наблюдающих и т.д. и т.п. должны различаться и где-то находиться (на отдельном листе, к примеру) И выбирать их лучше не в OptionButton, а в ComboBox. Иначе при любом кадровом изменении будете искать программиста, который будет править ваши формы и коды.Апострофф
Ответить
Сообщение pips , абсолютно очевидно, что списки ответственных, допускающих, производящих, наблюдающих и т.д. и т.п. должны различаться и где-то находиться (на отдельном листе, к примеру) И выбирать их лучше не в OptionButton, а в ComboBox. Иначе при любом кадровом изменении будете искать программиста, который будет править ваши формы и коды.Автор - Апострофф Дата добавления - 28.04.2018 в 11:52
pips
Дата: Суббота, 28.04.2018, 11:59 |
Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Апострофф, согласен, раньше так и было, но не на VBA, а на обычных формулах. Сейчас решил попробовать так.
Апострофф, согласен, раньше так и было, но не на VBA, а на обычных формулах. Сейчас решил попробовать так. pips
Ответить
Сообщение Апострофф, согласен, раньше так и было, но не на VBA, а на обычных формулах. Сейчас решил попробовать так. Автор - pips Дата добавления - 28.04.2018 в 11:59
and_evg
Дата: Суббота, 28.04.2018, 11:59 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация:
78
±
Замечаний:
0% ±
Excel 2007
Иначе при любом кадровом изменении будете искать программиста
Поддерживаю 100%
Иначе при любом кадровом изменении будете искать программиста
Поддерживаю 100%and_evg
Ответить
Сообщение Иначе при любом кадровом изменении будете искать программиста
Поддерживаю 100%Автор - and_evg Дата добавления - 28.04.2018 в 11:59
pips
Дата: Суббота, 28.04.2018, 12:00 |
Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Апострофф, and_evg, спасибо за информацию, буду переделывать с учетом ваших рекомендаций.
Апострофф, and_evg, спасибо за информацию, буду переделывать с учетом ваших рекомендаций. pips
Сообщение отредактировал pips - Суббота, 28.04.2018, 12:00
Ответить
Сообщение Апострофф, and_evg, спасибо за информацию, буду переделывать с учетом ваших рекомендаций. Автор - pips Дата добавления - 28.04.2018 в 12:00
StoTisteg
Дата: Суббота, 28.04.2018, 12:02 |
Сообщение № 7
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
Сейчас решил попробовать так.
Ну так запихните всю эту штатку в скрытые листы и дело с концом.
Сейчас решил попробовать так.
Ну так запихните всю эту штатку в скрытые листы и дело с концом.StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение Сейчас решил попробовать так.
Ну так запихните всю эту штатку в скрытые листы и дело с концом.Автор - StoTisteg Дата добавления - 28.04.2018 в 12:02
_Boroda_
Дата: Суббота, 28.04.2018, 12:04 |
Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
А кстати, почему не сделать просто выпадающие списки? Зачем этот геморрой с формами?Для отв рук работ сделал
А кстати, почему не сделать просто выпадающие списки? Зачем этот геморрой с формами?Для отв рук работ сделал _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение А кстати, почему не сделать просто выпадающие списки? Зачем этот геморрой с формами?Для отв рук работ сделал Автор - _Boroda_ Дата добавления - 28.04.2018 в 12:04
pips
Дата: Суббота, 28.04.2018, 12:05 |
Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
StoTisteg, на данный момент в отделе всего три человека, OptionBox позволяет делать на одно телодвижение меньше
StoTisteg, на данный момент в отделе всего три человека, OptionBox позволяет делать на одно телодвижение меньше pips
Ответить
Сообщение StoTisteg, на данный момент в отделе всего три человека, OptionBox позволяет делать на одно телодвижение меньше Автор - pips Дата добавления - 28.04.2018 в 12:05
pips
Дата: Суббота, 28.04.2018, 12:07 |
Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
_Boroda_, идея в том, чтобы через формы последовательно заполнить наряд.
_Boroda_, идея в том, чтобы через формы последовательно заполнить наряд. pips
Ответить
Сообщение _Boroda_, идея в том, чтобы через формы последовательно заполнить наряд. Автор - pips Дата добавления - 28.04.2018 в 12:07
StoTisteg
Дата: Суббота, 28.04.2018, 12:10 |
Сообщение № 11
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
pips , незамужние дамы есть? А теперь представьте себе всю глубину своей радости, когда её угораздит замуж, например
pips , незамужние дамы есть? А теперь представьте себе всю глубину своей радости, когда её угораздит замуж, например StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение pips , незамужние дамы есть? А теперь представьте себе всю глубину своей радости, когда её угораздит замуж, например Автор - StoTisteg Дата добавления - 28.04.2018 в 12:10
pips
Дата: Суббота, 28.04.2018, 12:22 |
Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 69
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
StoTisteg, дам нет, отдел из трех человек, электролаборатория. Соответственно, в нарядах фигурируем втроем, меняются только обязанности.
StoTisteg, дам нет, отдел из трех человек, электролаборатория. Соответственно, в нарядах фигурируем втроем, меняются только обязанности. pips
Ответить
Сообщение StoTisteg, дам нет, отдел из трех человек, электролаборатория. Соответственно, в нарядах фигурируем втроем, меняются только обязанности. Автор - pips Дата добавления - 28.04.2018 в 12:22