![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 22.05.2009
Сообщений: 85
|
![]()
Доброво вам уважаемые.
Нашел на этом сайте как сделать форму для ввода данных. Подстроил ее под себя, с этим проблемм не возникло. Но захотелось большего ))) Помогите пожалуйста сделать вторую форму под названием "Удалить запись". При ее активации необходимо чтобы строка с заданным №пп копировалась на лист "Архив" с добавлением новой информации. И соответственно на Лист1 эта строка должна удалится из списка. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Я немного изменил вашу форму
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 22.05.2009
Сообщений: 85
|
![]()
Спасибо большое!!! То что нужно!!!
С нумерацией только небольшие проблеммы (на Лист1). При удалении строки и последующим вводом новых данных запись нумеруется исходя из количества строк. Поэтому номера могут повторятся. Как сделать обновление нумерации после удаления строки? |
![]() |
![]() |
![]() |
#4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
Код:
PS: Не знаю, как Вам, а мне кажется крайне неудобным удаление строк таким способом... Не проще ли удалять строки без лишних форм? Выделили ячейку, нажали кнопку "удалить строку", подтвердили удаление, - и всё. А так мало того, что приходится вводить номер строки, так ещё надо и дату с фамилией... |
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 22.05.2009
Сообщений: 85
|
![]()
Спасибо EducatedFool
С формулами у меня проблемм нет. Я раньше все делал только с помощью формул. Только недавно узнал что макросом можно удивительные вещи творить )))) По поводу удаления... Это только называется удалением. На самом деле это сохранение информации о произведенных действиях и о том кто это делал. Это важно. Удаляется только из рабочего списка. А рабочий список постоянно обновляется и поэтому, если применить формулы, через определенное время они закончатся и надо будет их дополнительно копировать. А люди которые работают с этим списком не все способны это сделать. Я еще не знаю получится ли меня их научить работать с формой. Хотя стараюсь все сделать намного упрощенней. Если нет других вариантов, то я в макрос пропишу после добавления строки данных, добавлять в следующую строку (ячейку) формулу. |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 13.06.2010
Сообщений: 73
|
![]()
А можно ли формулу для нумерации строк из указанного примера
=ЕСЛИ(B2<>"";СТРОКА()-1;"") =ЕСЛИ(RC[1]<>"";СТРОКА()-1;"") вводить из макроса при добавлении новой строки ? Дело в том, что если кому-то поручить ввод данных, то обяснять что еще нужно вводить вручную функцию в первый столбец... не всякий поймет. пробовал из макроса так: cell.Formula = "=ЕСЛИ(B2<>"""",СТРОКА()-1,"""")" cell.Formula = "=ЕСЛИ(B2<>"""";СТРОКА()-1;"""")" но ccылку B2 для каждой строки менять не хочет... Последний раз редактировалось getikalex; 27.09.2010 в 15:05. |
![]() |
![]() |
![]() |
#7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Попробуйте так:
Код:
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 13.06.2010
Сообщений: 73
|
![]()
Если копировать из предыдущей строки - так то оно, конечно пойдет, если в предыдущей строке формула уже есть.
Но если начинать с начала - то предыдущей вроде как нет. Т.е. начать, и ввести хотябы одну строку придется самому. Мне придется отправить для ввода данных не очень смышленого товарища далеко от себя. Может сдуру удалить, или подправить первую ячейку, и тогда замучаюсь по телефону обяснять что вводить. Хотелось бы защиту от дурака - ввод из макроса. Еще думал оформить таблицей, чтоб автоподстановка формул была и защитить столбец. Но тогда другая беда - не работает ввод в последнюю строку. Оно будет вводить не в последнюю строку таблицы, а под таблицей... Последний раз редактировалось getikalex; 27.09.2010 в 15:38. |
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 13.06.2010
Сообщений: 73
|
![]()
Спасибо за подсказку Igor.Go
Получилось Последний раз редактировалось getikalex; 02.10.2010 в 11:02. |
![]() |
![]() |
![]() |
#10 |
Новичок
Джуниор
Регистрация: 24.03.2013
Сообщений: 1
|
![]()
Спасибо всем участникам. По вводу данных проблем нет, да и не было. Хотя некоторые полезные для себя моменты в теме нашёл. Но подскажите, как табличные данные через форму редактировать? Как прописать, чтобы NextRow вычислялась как крайняя левая ячейка (т.е. ячейка колонки А) в строке с активной в данный момент ячейкой?
Исходник прилагаю. Заранее СПАСИБО! ![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ввод переменной в форму | Исраил | JavaScript, Ajax | 2 | 21.09.2009 01:02 |
Редактирование css через форму с сервера | mcbes | PHP | 3 | 22.02.2009 05:41 |
создание базы данных через форму | mistx | Microsoft Office Excel | 7 | 16.10.2008 07:55 |
роблемы с добавлением данных в таблицу через другую форму на дельфи | Барби | Помощь студентам | 1 | 09.10.2008 12:49 |
Закачка картинок через форму | Romanbl4 | PHP | 18 | 04.02.2008 15:30 |