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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическое добавление добавленной строки в имена. - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое добавление добавленной строки в имена. (Формулы/Formulas)
Автоматическое добавление добавленной строки в имена.
den45444 Дата: Понедельник, 15.08.2016, 19:52 | Сообщение № 21
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
нужное количество пустых строк ВНУТРИ именованного диапазона

Нееее... это неудобно.
 
Ответить
Сообщение
нужное количество пустых строк ВНУТРИ именованного диапазона

Нееее... это неудобно.

Автор - den45444
Дата добавления - 15.08.2016 в 19:52
Nic70y Дата: Понедельник, 15.08.2016, 20:54 | Сообщение № 22
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Добавляйте строку с помощью выпадающего списка в G1
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1")) Is Nothing Then
    i = Range(Cells(1, 7)).Row
    u = Range(Cells(1, 7)).Rows.Count
    Rows(i).Insert Shift:=xlDown ', CopyOrigin:=xlFormatFromLeftOrAbove
    Names(Cells(1, 7).Value).RefersToR1C1 = "='Смета по разделам'!R" & i & ":R" & i + u
End If
End Sub
[/vba]
К сообщению приложен файл: 99.12.xlsm (23.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Понедельник, 15.08.2016, 20:55
 
Ответить
СообщениеДобавляйте строку с помощью выпадающего списка в G1
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G1")) Is Nothing Then
    i = Range(Cells(1, 7)).Row
    u = Range(Cells(1, 7)).Rows.Count
    Rows(i).Insert Shift:=xlDown ', CopyOrigin:=xlFormatFromLeftOrAbove
    Names(Cells(1, 7).Value).RefersToR1C1 = "='Смета по разделам'!R" & i & ":R" & i + u
End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 15.08.2016 в 20:54
den45444 Дата: Понедельник, 15.08.2016, 21:16 | Сообщение № 23
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добавляйте строку с помощью выпадающего списка в G1

Благодарю за предложенный вариант, но это не совсем то, т.к. в смете явного разделения нет и таких разделов предостаточно.
 
Ответить
Сообщение
Добавляйте строку с помощью выпадающего списка в G1

Благодарю за предложенный вариант, но это не совсем то, т.к. в смете явного разделения нет и таких разделов предостаточно.

Автор - den45444
Дата добавления - 15.08.2016 в 21:16
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автоматическое добавление добавленной строки в имена. (Формулы/Formulas)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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