| Вопрос: Запись данных в Excel через форму | Добавлено: 21.07.06 17:27 |
Автор вопроса:  kovanto
|
| Здраствуйте. Есть 7 разных документов-бланков в Excel. Там встречается много одинаковых полей в которые надо ввести данные (например Фамилия, Адрес и т.п.). Нужно вводить данные через форму, для последущего подставления их во все 7 документов Excel(в определенную ячейку). Я не пойму как это можно сделать. Пока могу нарисовать только форму, а вот что дальше....?. Подскажите, как мне написать эту программу или может дадите что нибудь почитать. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Василий ICQ: 232691930 Вопросов: 1 Ответов: 11 |
Профиль | | #1 | Добавлено: 21.07.06 19:00 |
| Зачем вводить в бланки, для хранения или только для распечатки? | ||
|
Номер ответа: 2 Автор ответа: kovanto Вопросов: 2 Ответов: 6 |
Профиль | | #2 | Добавлено: 21.07.06 21:58 |
|
В общем смысл такой. Есть бланки в Excele, хочу их , допустим, хранить в отдельной папке. Запускаю программу-форму. Ввожу туда данные, такие как, Фамилия, Адрес, Номер и т.п. Нажимаю кнопку и данные переносятся на свои места в 7 разных документов-бланков Excel, при этом создается отдельные папки с названием(допустим название папок совпадает с фамилиями) и в каждой папке хранятся 7 заполненных документов. При необходимости я их открываю и распечатываю.
А вот как перенести данные из формы в нужную ячейку, нужного бланка-файла Excel, я не знаю. Даже не знаю с чего начать. У меня есть книжка по VBA, только там ничего не написано про то, что я хочу. |
||
|
Номер ответа: 3 Автор ответа: ВасилийICQ: 232691930 Вопросов: 1 Ответов: 11 |
Профиль | | #3 | Добавлено: 21.07.06 23:05 |
|
Есть решение без VBA. Средствами Excel. Давай мыло сброшу пример. Хотя есть вариант и VBA.
|
||
|
Номер ответа: 4 Автор ответа: kovantoВопросов: 2 Ответов: 6 |
Профиль | | #4 | Добавлено: 21.07.06 23:54 |
| kovantos@mail.ru | ||
|
Номер ответа: 5 Автор ответа: tsВопросов: 0 Ответов: 1 |
Профиль | | #5 | Добавлено: 23.07.06 02:42 |
|
'вставка в ячейку а1 на листе1 из Label.....
Sheets("лист1"  .Range("a1" = UserForm1.Label1.Caption
'вставка в ячейку а2 на листе1 из TextBox.... Sheets("лист1" .Range("a2" = UserForm1.TextBox1.Text
'и так далее.... |
||
|
Номер ответа: 6 Автор ответа: angrynews Вопросов: 33 Ответов: 119 |
Web-сайт: Профиль | | #6 | Добавлено: 01.08.06 10:23 |
| я письмо написал, посмотри мыло | ||
Страница: 1 |