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

Вход

Регистрация

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

 

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

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

Excel 2016
Добрый день друзья.
Прошу помочь настроить таблицу.

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

Есть таблица с заблокированной строкой (выделена черным)
Нужно когда вводишь данные в строки сверху над заблокированной, должна автоматически добавляться под нее пустая строка. а под этой строкой опять должна быть всегда черная заблокированная
Автор - nikosteel
Дата добавления - 13.06.2018 в 09:52
StoTisteg Дата: Среда, 13.06.2018, 10:59 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Где-то так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Offset(1).Interior.ThemeColor = xlThemeColorLight1 Then
      Application.EnableEvents = False
      Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Application.EnableEvents = True
   End If

End Sub
[/vba]
К сообщению приложен файл: Kopia_vazhno.xlsm (17.0 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеГде-то так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Offset(1).Interior.ThemeColor = xlThemeColorLight1 Then
      Application.EnableEvents = False
      Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Application.EnableEvents = True
   End If

End Sub
[/vba]
Автор - StoTisteg
Дата добавления - 13.06.2018 в 10:59
nikosteel Дата: Среда, 13.06.2018, 11:24 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
StoTisteg, Прошу прощения, я начинающий в этом деле. А можно файл в xlsx? xlsm не открывает почему то


Сообщение отредактировал nikosteel - Среда, 13.06.2018, 11:25
 
Ответить
СообщениеStoTisteg, Прошу прощения, я начинающий в этом деле. А можно файл в xlsx? xlsm не открывает почему то
Автор - nikosteel
Дата добавления - 13.06.2018 в 11:24
китин Дата: Среда, 13.06.2018, 11:35 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата nikosteel, 13.06.2018 в 11:24, в сообщении № 3 ()
файл в xlsx

именно этот нельзя. там макросы не живут

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата nikosteel, 13.06.2018 в 11:24, в сообщении № 3 ()
файл в xlsx

именно этот нельзя. там макросы не живут
Автор - китин
Дата добавления - 13.06.2018 в 11:35
nikosteel Дата: Среда, 13.06.2018, 11:36 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, огромное спасибо вам разобрался
 
Ответить
Сообщениекитин, огромное спасибо вам разобрался
Автор - nikosteel
Дата добавления - 13.06.2018 в 11:36
nikosteel Дата: Среда, 13.06.2018, 12:46 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, можно вам еще одно маленькое задание пожалуйста?
 
Ответить
Сообщениекитин, можно вам еще одно маленькое задание пожалуйста?
Автор - nikosteel
Дата добавления - 13.06.2018 в 12:46
китин Дата: Среда, 13.06.2018, 12:53 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
а почему именно мне?
задавайте конечно

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеа почему именно мне?
задавайте конечно
Автор - китин
Дата добавления - 13.06.2018 в 12:53
nikosteel Дата: Среда, 13.06.2018, 13:12 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
китин, Ваша таблица отличная, то что надо. Хотелось бы добавить в нее.

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

2. Еще нужно сделать следующее: если я ввожу данные под черной линией, то под этими введенными данными должна быть одна пустая строка, а ниже нее опять проводиться черная линия (нередактируемая).

фото для примера
К сообщению приложен файл: 9419021.jpg (36.5 Kb)
 
Ответить
Сообщениекитин, Ваша таблица отличная, то что надо. Хотелось бы добавить в нее.

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

2. Еще нужно сделать следующее: если я ввожу данные под черной линией, то под этими введенными данными должна быть одна пустая строка, а ниже нее опять проводиться черная линия (нередактируемая).

фото для примера
Автор - nikosteel
Дата добавления - 13.06.2018 в 13:12
китин Дата: Среда, 13.06.2018, 13:14 | Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата nikosteel, 13.06.2018 в 13:12, в сообщении № 8 ()
Ваша таблица отличная

какая? я никаких изменений не вносил. для вас все сделал StoTisteg,

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата nikosteel, 13.06.2018 в 13:12, в сообщении № 8 ()
Ваша таблица отличная

какая? я никаких изменений не вносил. для вас все сделал StoTisteg,
Автор - китин
Дата добавления - 13.06.2018 в 13:14
nikosteel Дата: Среда, 13.06.2018, 13:15 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
я перепутал вас)
 
Ответить
Сообщениея перепутал вас)
Автор - nikosteel
Дата добавления - 13.06.2018 в 13:15
nikosteel Дата: Среда, 13.06.2018, 13:20 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Уважаемый StoTisteg, помогите пожалуйста в решении вопроса. Возможно ли реализовать что я написал
 
Ответить
СообщениеУважаемый StoTisteg, помогите пожалуйста в решении вопроса. Возможно ли реализовать что я написал
Автор - nikosteel
Дата добавления - 13.06.2018 в 13:20
nikosteel Дата: Среда, 13.06.2018, 14:48 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Прошу помочь уважаемые форумчане
 
Ответить
СообщениеПрошу помочь уважаемые форумчане
Автор - nikosteel
Дата добавления - 13.06.2018 в 14:48
StoTisteg Дата: Среда, 13.06.2018, 15:09 | Сообщение № 13
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Цитата nikosteel, 13.06.2018 в 13:12, в сообщении № 8 ()
Хотелось бы добавить в нее

Так?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Offset(1).Interior.ThemeColor = xlThemeColorLight1 Then
      Application.EnableEvents = False
      Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Application.EnableEvents = True
   End If
   If Target.Offset(-1).Interior.ThemeColor = xlThemeColorLight1 Then Rows(Target.Row + 2).Interior.ThemeColor = xlThemeColorLight1

End Sub
[/vba]
К сообщению приложен файл: 1943112.xlsm (18.1 Kb)

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщение
Цитата nikosteel, 13.06.2018 в 13:12, в сообщении № 8 ()
Хотелось бы добавить в нее

Так?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Offset(1).Interior.ThemeColor = xlThemeColorLight1 Then
      Application.EnableEvents = False
      Rows(Target.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Application.EnableEvents = True
   End If
   If Target.Offset(-1).Interior.ThemeColor = xlThemeColorLight1 Then Rows(Target.Row + 2).Interior.ThemeColor = xlThemeColorLight1

End Sub
[/vba]
Автор - StoTisteg
Дата добавления - 13.06.2018 в 15:09
nikosteel Дата: Среда, 13.06.2018, 18:05 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Нужно что бы создавалось все так же, но только создавались уже заблокированные от редактирования строки


Сообщение отредактировал nikosteel - Среда, 13.06.2018, 18:23
 
Ответить
СообщениеНужно что бы создавалось все так же, но только создавались уже заблокированные от редактирования строки
Автор - nikosteel
Дата добавления - 13.06.2018 в 18:05
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Атоматическое добавление строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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