Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.02.2010, 01:50   #11
cub
Пользователь
 
Регистрация: 03.08.2009
Сообщений: 22
По умолчанию

Цитата:
Сообщение от motorway Посмотреть сообщение
Вот пример кода, который будет вставлять новые данные на новую строку по событию "смена выделения ячейки":

Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Lastrow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Cells(Lastrow + 1, 1).Value = "New value"

End Sub
Вы должны будете вставить этот код в редакторе VBA (Alt+F11)
К сожалению мой уровень знаний Excel не позволим мне разобраться в этом. Поэтому во вложение прикрепил фрагмент моей таблицы, для которой я хочу создать эту функцию. Там есть таблица состоящая из одной строки с данными (строка 5), так вот нужно создать быстрый способ для добавления ещё строк, что б сохранялась структура всех формул, ну и конечно общая сумма последней колонки.
Вложения
Тип файла: rar example.rar (6.7 Кб, 9 просмотров)
cub вне форума Ответить с цитированием
Старый 13.02.2010, 02:55   #12
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

конкретно в вашем случае можно просто воспользоваться стандартной вставкой строк в Экселе, а потом протянуть формулы за край ячейки на нужный диапазон. Можно, конечно, и макрос написать
motorway вне форума Ответить с цитированием
Старый 13.02.2010, 11:03   #13
cub
Пользователь
 
Регистрация: 03.08.2009
Сообщений: 22
По умолчанию

Цитата:
Сообщение от motorway Посмотреть сообщение
конкретно в вашем случае можно просто воспользоваться стандартной вставкой строк в Экселе, а потом протянуть формулы за край ячейки на нужный диапазон. Можно, конечно, и макрос написать
Я сейчас так и делаю, но это не много не удобно. Хотелось бы усовершенствовать работу, тем более у меня таких таблиц довольно таки много. Во вложение только одна из них.
cub вне форума Ответить с цитированием
Старый 13.02.2010, 17:09   #14
cub
Пользователь
 
Регистрация: 03.08.2009
Сообщений: 22
По умолчанию

А подскажите как то можно сделать так что б в ячейке писался номер строки. Есть ли такая формула которая возвращает значение текущей строки?
cub вне форума Ответить с цитированием
Старый 13.02.2010, 17:17   #15
Volodshan
Форумчанин
 
Регистрация: 20.05.2008
Сообщений: 241
По умолчанию

Есть, это - "=СТРОКА()", ввести в ячейку и покажет номер строки, в которой эта ячейка находится. Доп. - см. F1.
Volodshan вне форума Ответить с цитированием
Старый 13.02.2010, 23:38   #16
cub
Пользователь
 
Регистрация: 03.08.2009
Сообщений: 22
По умолчанию

Ну так может кто нибудь поможет с макросом, а то путем копирования и вставки сумма последнего столбца корректно работает когда в таблице минимум три строки. Простите за наглость
cub вне форума Ответить с цитированием
Старый 14.02.2010, 00:11   #17
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

За материальное вознаграждение я смог бы помочь... полностью делать макрос не очень хочется так, общее направление я подсказал
motorway вне форума Ответить с цитированием
Старый 14.02.2010, 00:21   #18
cub
Пользователь
 
Регистрация: 03.08.2009
Сообщений: 22
По умолчанию

Цитата:
Сообщение от motorway Посмотреть сообщение
За материальное вознаграждение я смог бы помочь... полностью делать макрос не очень хочется так, общее направление я подсказал
А это сколько?
cub вне форума Ответить с цитированием
Старый 14.02.2010, 00:40   #19
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Зависит от сложности. В последнее время обычно минимум для меня - это 300 р. Но если там что-то легкое, могу и за меньшую сумму. Если надумаете, киньте в личку более четкое описание, как вам нужно вставлять строки эти
motorway вне форума Ответить с цитированием
Старый 14.02.2010, 22:53   #20
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

cub, если вам еще нужно, могу сделать за 230 р. Немного денег мне не помешает, ну и вам помогу
motorway вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
авт. перенос данных из нескольких столбцов одной таблицы в один столбец другой таблицы A_ALL Microsoft Office Access 7 24.08.2009 21:13
Данные из двух полей исх. таблицы в одно поле сводной таблицы Strelec79 Microsoft Office Excel 2 02.08.2009 13:59
Оптимизация таблицы Иванов_ДМ Microsoft Office Excel 6 22.03.2009 15:55
убрать вложенные таблицы из таблицы в режиме просмотра 2007 Baxxter Microsoft Office Access 2 17.11.2008 21:28
Оптимизация Terran Общие вопросы Delphi 3 03.05.2008 19:03