Ввод и удаление данных в таблицу с помощью макроса.

Urri

Гость

23.01.2010 23:51:00

Имеется таблица для ввода данных. Эти данные должны вноситься в сводную таблицу, в том числе и в хаотичном порядке (например сначала содержание переключателя 1, затем данные переключателя 3, затем в следующую строку еще раз содержание переключателя 3, затем переключателя 2 и так далее пока не хватит места в сводной таблице). Данные вносятся с помощью кнопки "Добавить". Последнее действие (строку в сводной таблице) можно было бы удалить с помощью кнопки "Удалить". И наконец можно было бы очистить все содержимое сводной таблицы с помощью соответствующей кнопки. Ранее эта задача выполнялась с помощью функций, но неэффективно. Теперь настал черед макросов.
Заранее благодарю всех, кто отзовется на мою просьбу.

Прикрепленные файлы

post_93782.xls (20.5 КБ)

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

24.01.2010 00:16:42

Проверяйте - решение в файле: http://excelvba.ru/XL_Files/Sample__24-01-2010__2-17-24.zip вот весь код:
Sub Добавить()
If [a2] Then NewRow.Value = [данные].Rows([a2]).Value
End Sub

Sub Удалить()
On Error Resume Next:
LastRow.ClearContents
End Sub

Sub ОчиститьВсё()
[Таблица].ClearContents
End Sub

Function NewRow() As Range
Set NewRow = Intersect([Таблица], Cells(Rows.Count, [Таблица].Column).End(xlUp).Offset(1).EntireRow)
End Function

Function LastRow() As Range
Set LastRow = Intersect([Таблица], Cells(Rows.Count, [Таблица].Column).End(xlUp).EntireRow)
End Function
Sub reset()
: [a2] = 0:
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 24.01.2010 00:28:15 Или так. Прикрепленные файлы post_93797.xls (31.5 КБ)

Urri Гость	#4 24.01.2010 00:40:17 Благодарю за помощь. Оба варианта подходят и здорово работают.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 24.01.2010 00:44:00 Игорь, извини - при формировании ссылки на твой фай - покорёжился код. Если сейчас есть ошибки - выложи снова, пожалуйста.

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

24.01.2010 01:00:41

{quote}{login=Юрий М}{date=24.01.2010 12:44}{thema=}{post}Игорь, извини - при формировании ссылки на твой фай - покорёжился код. Если сейчас есть ошибки - выложи снова, пожалуйста.{/post}{/quote}

Да фиг с ними, с ошибками... В файле-то все работает.

PS: Давно уже пора переводить форум на нормальный движок.
Николай Павлов обещал, но что-то пока не видно результатов...

В этом движке после редактирования гиперссылок почему-то пропадают все имволы перевода строки... так что в длинных сообщениях, ИМХО, проще вообще не пытаться форматировать гиперссылки))

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 24.01.2010 01:02:38 Всё верно - переводы строки пропадают. А гиперссылки... - так ведь хочется, чтобы было удобнее...

Читают тему