Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Неверная формула при добавлении строки в конец таблицы=( - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Неверная формула при добавлении строки в конец таблицы=(
Next2012 Дата: Воскресенье, 18.11.2012, 13:27 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Есть таблица со строкой итогов. В первом столбце прописаны формулы для автоматической нумерации строк, путем подсчета заполненных ячеек в соседнем столбце (номер отображается, если соседняя ячейка заполнена).

При добавлении строки в конец таблицы формула в предпоследней строке автоматически меняется на неверную, счет сбивается. Похожая ерунда если добавлять строку в начало таблицы – автоматически меняются все формулы кроме первой. Если добавлять в любую другую строку таблицы, такой проблемы нет, формула выставляется правильно.
Предполагается сделать кнопку с макросом на добавление строки.

Вот вопрос, почему происходит такая фигня?

Нужен макрос добавляющий строку в конец таблицы, чтобы формула предпоследней строки при этом не менялась.
К сообщению приложен файл: 011.xlsx (16.7 Kb)
 
Ответить
СообщениеЕсть таблица со строкой итогов. В первом столбце прописаны формулы для автоматической нумерации строк, путем подсчета заполненных ячеек в соседнем столбце (номер отображается, если соседняя ячейка заполнена).

При добавлении строки в конец таблицы формула в предпоследней строке автоматически меняется на неверную, счет сбивается. Похожая ерунда если добавлять строку в начало таблицы – автоматически меняются все формулы кроме первой. Если добавлять в любую другую строку таблицы, такой проблемы нет, формула выставляется правильно.
Предполагается сделать кнопку с макросом на добавление строки.

Вот вопрос, почему происходит такая фигня?

Нужен макрос добавляющий строку в конец таблицы, чтобы формула предпоследней строки при этом не менялась.

Автор - Next2012
Дата добавления - 18.11.2012 в 13:27
ABC Дата: Воскресенье, 18.11.2012, 13:56 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 397
Репутация: 112 ±
Замечаний: 0% ±

Excel 2007
пробуйте
[vba]
Code
Sub www()
Dim r&
     r = Cells(Rows.Count, 8).End(xlUp).Row
     Rows(r - 1).ListObject.ListRows.Add AlwaysInsert:=True
End Sub
[/vba]


MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет
 
Ответить
Сообщениепробуйте
[vba]
Code
Sub www()
Dim r&
     r = Cells(Rows.Count, 8).End(xlUp).Row
     Rows(r - 1).ListObject.ListRows.Add AlwaysInsert:=True
End Sub
[/vba]

Автор - ABC
Дата добавления - 18.11.2012 в 13:56
Next2012 Дата: Воскресенье, 18.11.2012, 16:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Неа, за макрос спс, но формулы все равно не те проставляются.
 
Ответить
СообщениеНеа, за макрос спс, но формулы все равно не те проставляются.

Автор - Next2012
Дата добавления - 18.11.2012 в 16:09
ABC Дата: Воскресенье, 18.11.2012, 16:50 | Сообщение № 4
Группа: Друзья
Ранг: Обитатель
Сообщений: 397
Репутация: 112 ±
Замечаний: 0% ±

Excel 2007
зачем с первой строки добавлять? пользуйтесь табуляцией
или такой формулой, если так понял
Code
=ЕСЛИ(ЕПУСТО(C4);"";СЧЁТЗ($C$1:C4)-1)


MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет


Сообщение отредактировал ABC - Воскресенье, 18.11.2012, 17:04
 
Ответить
Сообщениезачем с первой строки добавлять? пользуйтесь табуляцией
или такой формулой, если так понял
Code
=ЕСЛИ(ЕПУСТО(C4);"";СЧЁТЗ($C$1:C4)-1)

Автор - ABC
Дата добавления - 18.11.2012 в 16:50
Next2012 Дата: Воскресенье, 18.11.2012, 21:21 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Твою ж мать... Баг! Помогла установка 2007 офиса. Но Ваш макрос пригодился, благодарю!
 
Ответить
СообщениеТвою ж мать... Баг! Помогла установка 2007 офиса. Но Ваш макрос пригодился, благодарю!

Автор - Next2012
Дата добавления - 18.11.2012 в 21:21
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!