Добрый вечер ! Составил программку в Excel для расчета оптического кабеля, но никак не могу сделать следующий макрос: Условие: в ячейке R8C9 надо сделать кнопку, чтобы при задании целочисленного значения (например, 1, 2, 3 и т.д) в данной ячейке, в ячейке R10C9 (если значение в R8C9 больше единицы) появлялась дополнительная строка (т.е. счетчик, изменяем количество строительных длин - появляется возможность ввода длины для каждой появившейся строительной длины) и, соответственно, добавлялись новые строки (дублировались строки 27 и 28) после нынешних строк 27 и 28. При этом нынешние строки 29 и 30 сохранялись бы, но сдвигались вниз. Красным выделил на первом листе Исходные данные (где и нужны изменения) ключевые узлы. Заранее спасибо !!!
Добрый вечер ! Составил программку в Excel для расчета оптического кабеля, но никак не могу сделать следующий макрос: Условие: в ячейке R8C9 надо сделать кнопку, чтобы при задании целочисленного значения (например, 1, 2, 3 и т.д) в данной ячейке, в ячейке R10C9 (если значение в R8C9 больше единицы) появлялась дополнительная строка (т.е. счетчик, изменяем количество строительных длин - появляется возможность ввода длины для каждой появившейся строительной длины) и, соответственно, добавлялись новые строки (дублировались строки 27 и 28) после нынешних строк 27 и 28. При этом нынешние строки 29 и 30 сохранялись бы, но сдвигались вниз. Красным выделил на первом листе Исходные данные (где и нужны изменения) ключевые узлы. Заранее спасибо !!!Alexgol8
Alexgol8, привет может, лучше не добавлять/удалять строки, а скрывать/раскрывать? [vba]
Код
Sub ertert() Dim nRow& nRow = Range("I8").Value If (nRow > 0) * (nRow < 6) Then Application.ScreenUpdating = False With Range("I10:I14") .EntireRow.Hidden = True .Resize(nRow).EntireRow.Hidden = False End With With Range("I31:I40") .EntireRow.Hidden = True .Resize(nRow * 2).EntireRow.Hidden = False End With Application.ScreenUpdating = True End If End Sub
[/vba] в примере кол-во строк от 1 до 5
Alexgol8, привет может, лучше не добавлять/удалять строки, а скрывать/раскрывать? [vba]
Код
Sub ertert() Dim nRow& nRow = Range("I8").Value If (nRow > 0) * (nRow < 6) Then Application.ScreenUpdating = False With Range("I10:I14") .EntireRow.Hidden = True .Resize(nRow).EntireRow.Hidden = False End With With Range("I31:I40") .EntireRow.Hidden = True .Resize(nRow * 2).EntireRow.Hidden = False End With Application.ScreenUpdating = True End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
