Добавление из формы в конкретную ячейку
roboaug
Дата: Четверг, 09.02.2017, 09:54 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Здравствуйте, подскажите, пожалуйста, как из формы сделать так, чтобы данные вставлялись в конкретную ячейку? Всё готово, кроме кнопки добавления.
Здравствуйте, подскажите, пожалуйста, как из формы сделать так, чтобы данные вставлялись в конкретную ячейку? Всё готово, кроме кнопки добавления. roboaug
Сообщение отредактировал roboaug - Четверг, 09.02.2017, 09:55
Ответить
Сообщение Здравствуйте, подскажите, пожалуйста, как из формы сделать так, чтобы данные вставлялись в конкретную ячейку? Всё готово, кроме кнопки добавления. Автор - roboaug Дата добавления - 09.02.2017 в 09:54
Wasilich
Дата: Четверг, 09.02.2017, 10:17 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
В модуле формы. [vba]Код
Private Sub CommandButton1_Click() Range("E5") = TextBox1 Range("E10") = ComboBox1 End Sub
[/vba] [p.s.]Даже так, как и у вас, то "Е5" и "Е10" в Range() должны быть в кавычках " ".[/p.s.]
В модуле формы. [vba]Код
Private Sub CommandButton1_Click() Range("E5") = TextBox1 Range("E10") = ComboBox1 End Sub
[/vba] [p.s.]Даже так, как и у вас, то "Е5" и "Е10" в Range() должны быть в кавычках " ".[/p.s.] Wasilich
Сообщение отредактировал Wasilich - Четверг, 09.02.2017, 10:25
Ответить
Сообщение В модуле формы. [vba]Код
Private Sub CommandButton1_Click() Range("E5") = TextBox1 Range("E10") = ComboBox1 End Sub
[/vba] [p.s.]Даже так, как и у вас, то "Е5" и "Е10" в Range() должны быть в кавычках " ".[/p.s.] Автор - Wasilich Дата добавления - 09.02.2017 в 10:17
NikaLika
Дата: Четверг, 09.02.2017, 10:21 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
Я дебила кусок, подскажите куда тыкать и что куда вставлять
Я дебила кусок, подскажите куда тыкать и что куда вставлять NikaLika
Ответить
Сообщение Я дебила кусок, подскажите куда тыкать и что куда вставлять Автор - NikaLika Дата добавления - 09.02.2017 в 10:21
NikaLika
Дата: Четверг, 09.02.2017, 10:27 |
Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Excel 2007
А это может быть из за того что мы по сети работаем и на одном компе таких глюков нет, а этот файл взят с него. Хотя там дата не подтягивалась, я сняла формулы, перенесла и потом изменила, дата начала подтягиваться и меняться при открытии на сегодняшнюю, а этот глюк не пропал. И если хамилии залить, на другом листе они тоже пропадут.
А это может быть из за того что мы по сети работаем и на одном компе таких глюков нет, а этот файл взят с него. Хотя там дата не подтягивалась, я сняла формулы, перенесла и потом изменила, дата начала подтягиваться и меняться при открытии на сегодняшнюю, а этот глюк не пропал. И если хамилии залить, на другом листе они тоже пропадут. NikaLika
Ответить
Сообщение А это может быть из за того что мы по сети работаем и на одном компе таких глюков нет, а этот файл взят с него. Хотя там дата не подтягивалась, я сняла формулы, перенесла и потом изменила, дата начала подтягиваться и меняться при открытии на сегодняшнюю, а этот глюк не пропал. И если хамилии залить, на другом листе они тоже пропадут. Автор - NikaLika Дата добавления - 09.02.2017 в 10:27
_Boroda_
Дата: Четверг, 09.02.2017, 10:34 |
Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16886
Репутация:
6599
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Ээээ, Вы с кем сейчас разговариваете? И в какой теме?
Ээээ, Вы с кем сейчас разговариваете? И в какой теме? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Ээээ, Вы с кем сейчас разговариваете? И в какой теме? Автор - _Boroda_ Дата добавления - 09.02.2017 в 10:34
Wasilich
Дата: Четверг, 09.02.2017, 10:37 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
NikaLika , похоже ошиблась дверью!
NikaLika , похоже ошиблась дверью! Wasilich
Ответить
Сообщение NikaLika , похоже ошиблась дверью! Автор - Wasilich Дата добавления - 09.02.2017 в 10:37
roboaug
Дата: Четверг, 09.02.2017, 11:01 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Весело тут у Вас. Wasilich, спасибо, понятна ошибка, еще вопрос, если у меня дата в ячейке стоит в формате "[$-ru-RU-x-genlower]ДД ММММ;@" как сделать, чтобы и в форме он выставлял этот формат?
Весело тут у Вас. Wasilich, спасибо, понятна ошибка, еще вопрос, если у меня дата в ячейке стоит в формате "[$-ru-RU-x-genlower]ДД ММММ;@" как сделать, чтобы и в форме он выставлял этот формат? roboaug
Ответить
Сообщение Весело тут у Вас. Wasilich, спасибо, понятна ошибка, еще вопрос, если у меня дата в ячейке стоит в формате "[$-ru-RU-x-genlower]ДД ММММ;@" как сделать, чтобы и в форме он выставлял этот формат? Автор - roboaug Дата добавления - 09.02.2017 в 11:01
roboaug
Дата: Четверг, 09.02.2017, 11:22 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Проблема решена, в таком формате работает как надо : [vba]Код
Me.TextBox1 = Format(anncalendar.Value, "dd.mm")
[/vba] нет, всё таки так не работает, месяца не меняются, пожизненный январь в таком формате
Проблема решена, в таком формате работает как надо : [vba]Код
Me.TextBox1 = Format(anncalendar.Value, "dd.mm")
[/vba] нет, всё таки так не работает, месяца не меняются, пожизненный январь в таком форматеroboaug
Сообщение отредактировал roboaug - Четверг, 09.02.2017, 11:32
Ответить
Сообщение Проблема решена, в таком формате работает как надо : [vba]Код
Me.TextBox1 = Format(anncalendar.Value, "dd.mm")
[/vba] нет, всё таки так не работает, месяца не меняются, пожизненный январь в таком форматеАвтор - roboaug Дата добавления - 09.02.2017 в 11:22
_Boroda_
Дата: Четверг, 09.02.2017, 11:49 |
Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16886
Репутация:
6599
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
месяца не меняются, пожизненный январь в таком формате
У меня меняются. Покажите в новом файле
месяца не меняются, пожизненный январь в таком формате
У меня меняются. Покажите в новом файле_Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение месяца не меняются, пожизненный январь в таком формате
У меня меняются. Покажите в новом файлеАвтор - _Boroda_ Дата добавления - 09.02.2017 в 11:49
roboaug
Дата: Четверг, 09.02.2017, 12:18 |
Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Короче, оставил формат такой же у календаря, потому что у меня идет зависимость от этой E5 к другим ячейкам. Проблема в том, что он меняет формат на свой, если пользоваться формой, но если кликнуть на E5 двойным кликом, то формат становится таким каким надо, осталось автоматизировать этот процесс.
Короче, оставил формат такой же у календаря, потому что у меня идет зависимость от этой E5 к другим ячейкам. Проблема в том, что он меняет формат на свой, если пользоваться формой, но если кликнуть на E5 двойным кликом, то формат становится таким каким надо, осталось автоматизировать этот процесс. roboaug
Ответить
Сообщение Короче, оставил формат такой же у календаря, потому что у меня идет зависимость от этой E5 к другим ячейкам. Проблема в том, что он меняет формат на свой, если пользоваться формой, но если кликнуть на E5 двойным кликом, то формат становится таким каким надо, осталось автоматизировать этот процесс. Автор - roboaug Дата добавления - 09.02.2017 в 12:18
_Boroda_
Дата: Четверг, 09.02.2017, 12:25 |
Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16886
Репутация:
6599
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Вы забыли исправить еще формат здесь [vba]Код
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) anncalendar.Show Me.TextBox1 = Format(anncalendar.Value, "dd.mm") End Sub
[/vba]
Вы забыли исправить еще формат здесь [vba]Код
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) anncalendar.Show Me.TextBox1 = Format(anncalendar.Value, "dd.mm") End Sub
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Вы забыли исправить еще формат здесь [vba]Код
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) anncalendar.Show Me.TextBox1 = Format(anncalendar.Value, "dd.mm") End Sub
[/vba] Автор - _Boroda_ Дата добавления - 09.02.2017 в 12:25
Wasilich
Дата: Четверг, 09.02.2017, 12:28 |
Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
А кто мешает в форме поставить [vba]Код
Me.TextBox1 = Format(anncalendar.Value, "dd.mmmm")
[/vba] [p.s.]Чёй то я медленный какой то. Все время опаздываю. [/p.s.]
А кто мешает в форме поставить [vba]Код
Me.TextBox1 = Format(anncalendar.Value, "dd.mmmm")
[/vba] [p.s.]Чёй то я медленный какой то. Все время опаздываю. [/p.s.] Wasilich
Сообщение отредактировал Wasilich - Четверг, 09.02.2017, 12:32
Ответить
Сообщение А кто мешает в форме поставить [vba]Код
Me.TextBox1 = Format(anncalendar.Value, "dd.mmmm")
[/vba] [p.s.]Чёй то я медленный какой то. Все время опаздываю. [/p.s.] Автор - Wasilich Дата добавления - 09.02.2017 в 12:28
roboaug
Дата: Четверг, 09.02.2017, 12:37 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
_Boroda_, я отказался от убирания года, потому что есть ячейка с формулой , а так как год не указан, он ставит мне дату 01.01.1900
_Boroda_, я отказался от убирания года, потому что есть ячейка с формулой , а так как год не указан, он ставит мне дату 01.01.1900 roboaug
Ответить
Сообщение _Boroda_, я отказался от убирания года, потому что есть ячейка с формулой , а так как год не указан, он ставит мне дату 01.01.1900 Автор - roboaug Дата добавления - 09.02.2017 в 12:37
roboaug
Дата: Четверг, 09.02.2017, 12:38 |
Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Wasilich, и так делал, но всё таки есть зависимость от года
Wasilich, и так делал, но всё таки есть зависимость от года roboaug
Ответить
Сообщение Wasilich, и так делал, но всё таки есть зависимость от года Автор - roboaug Дата добавления - 09.02.2017 в 12:38
_Boroda_
Дата: Четверг, 09.02.2017, 13:00 |
Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16886
Репутация:
6599
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Ничего не понял - то Вам убрать год, то поставить. Может, вот так нужно?
Ничего не понял - то Вам убрать год, то поставить. Может, вот так нужно? _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Ничего не понял - то Вам убрать год, то поставить. Может, вот так нужно? Автор - _Boroda_ Дата добавления - 09.02.2017 в 13:00
roboaug
Дата: Четверг, 09.02.2017, 13:06 |
Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
_Boroda_, да так в одной надо год, в другой не надо, короче Ваш вариант идеальный, всё работает. Спасибо огромное.
_Boroda_, да так в одной надо год, в другой не надо, короче Ваш вариант идеальный, всё работает. Спасибо огромное. roboaug
Ответить
Сообщение _Boroda_, да так в одной надо год, в другой не надо, короче Ваш вариант идеальный, всё работает. Спасибо огромное. Автор - roboaug Дата добавления - 09.02.2017 в 13:06