Здравствуйте! Есть таблица, есть кнопка, которая макросом добавляет новую строку снизу, в конце таблицы, пустую (с таким же стилем как и таблица). И сама кнопка тоже прыгает немного вниз, следом (для удобства).
Как такое реализовать с умной таблицей? Нашел пример, он работает, правда с обычной таблицей, но если ее превратить в умную (пример прилагаю) то уже пишет что была попытка сдвинуть ячейку..
И еще вопрос, поможете разобраться с макросом? Вот его часть [vba]
Код
For i = 1 To 20 With Cells(Range("Итоги").Row - 1, i) If Left(.Formula, 1) <> "=" Then .Clear End With
Next
Range("Итоги").FormulaR1C1 = "=SUM(R4C:R[-1]C)"
[/vba]
Почему от 1 до 20 именно? и что за сумма "=SUM(R4C:R[-1]C)" ?
Хочу разобраться в этом.. Заранее благодарю!
Здравствуйте! Есть таблица, есть кнопка, которая макросом добавляет новую строку снизу, в конце таблицы, пустую (с таким же стилем как и таблица). И сама кнопка тоже прыгает немного вниз, следом (для удобства).
Как такое реализовать с умной таблицей? Нашел пример, он работает, правда с обычной таблицей, но если ее превратить в умную (пример прилагаю) то уже пишет что была попытка сдвинуть ячейку..
И еще вопрос, поможете разобраться с макросом? Вот его часть [vba]
Код
For i = 1 To 20 With Cells(Range("Итоги").Row - 1, i) If Left(.Formula, 1) <> "=" Then .Clear End With
Next
Range("Итоги").FormulaR1C1 = "=SUM(R4C:R[-1]C)"
[/vba]
Почему от 1 до 20 именно? и что за сумма "=SUM(R4C:R[-1]C)" ?
Sub Макрос1() With Sheets("Таблица").ListObjects("Таблица1") .ListRows.Add ActiveSheet.Shapes("Кнопка 3").Top = .TotalsRowRange.Offset(1).Top End With End Sub
[/vba]
Здравствуйте. Как вариант [vba]
Код
Sub Макрос1() With Sheets("Таблица").ListObjects("Таблица1") .ListRows.Add ActiveSheet.Shapes("Кнопка 3").Top = .TotalsRowRange.Offset(1).Top End With End Sub
"Черт возьми, Холмс! Но как??!!" Сам случайно узнал. Где-то с месяц на Планете задавали вопрос, почему следующая таблица в файле смещается. Убери "зло" с листа, перестанет работать.
"Черт возьми, Холмс! Но как??!!" Сам случайно узнал. Где-то с месяц на Планете задавали вопрос, почему следующая таблица в файле смещается. Убери "зло" с листа, перестанет работать.RAN
Ничего не получается если пытаюсь сделать пошагово сам то же самое.
Пример прилагаю со своей таблицей, к которой не могу приделать кнопку.
И еще пару вопросов, что за привязка к ячейке С12 в строке Range("C12").Select ? И обязательно ли сохранять файл в xlsm? При сохранении даже Вашего файла, постоянно пишет про какую то конфиденциальность, ок-отмена.. Как этого всего избежать
Ничего не получается если пытаюсь сделать пошагово сам то же самое.
Пример прилагаю со своей таблицей, к которой не могу приделать кнопку.
И еще пару вопросов, что за привязка к ячейке С12 в строке Range("C12").Select ? И обязательно ли сохранять файл в xlsm? При сохранении даже Вашего файла, постоянно пишет про какую то конфиденциальность, ок-отмена.. Как этого всего избежатьNomaK
По пунктам сделал, но так и не смог сделать чтобы кнопка заработала. Показывает ошибку, в дебагере на строку (желытм выделяет) With Sheets("Таблица").ListObjects("Таблица1")
Кнопка переименована на мою, таблица тоже. Почему не получается сделать то же самое но со своей таблицей, не понимаю.
По пунктам сделал, но так и не смог сделать чтобы кнопка заработала. Показывает ошибку, в дебагере на строку (желытм выделяет) With Sheets("Таблица").ListObjects("Таблица1")
Кнопка переименована на мою, таблица тоже. Почему не получается сделать то же самое но со своей таблицей, не понимаю.NomaK
Давайте проверим для интереса. У меня работает в 2013 и 2016: кнопка смещается при добавлении строк и при удалении строк (удаление строк таблицы). А в какой версии не работает? А то, может, зря про принципы )
Давайте проверим для интереса. У меня работает в 2013 и 2016: кнопка смещается при добавлении строк и при удалении строк (удаление строк таблицы). А в какой версии не работает? А то, может, зря про принципы )nilem