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

Вход

Регистрация

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

 

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

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

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

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

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

Автор - nikosteel
Дата добавления - 13.06.2018 в 09:52
StoTisteg Дата: Среда, 13.06.2018, 10:59 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 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)


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеГде-то так:
[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
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4885
Репутация: 781 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
файл в xlsx

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
файл в xlsx

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

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

Excel 2016
китин, огромное спасибо вам разобрался
 
Ответить
Сообщениекитин, огромное спасибо вам разобрался

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

Excel 2016
китин, можно вам еще одно маленькое задание пожалуйста?
 
Ответить
Сообщениекитин, можно вам еще одно маленькое задание пожалуйста?

Автор - nikosteel
Дата добавления - 13.06.2018 в 12:46
китин Дата: Среда, 13.06.2018, 12:53 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4885
Репутация: 781 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеа почему именно мне?
задавайте конечно

Автор - китин
Дата добавления - 13.06.2018 в 12:53
nikosteel Дата: Среда, 13.06.2018, 13:12 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4885
Репутация: 781 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Ваша таблица отличная

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщение
Ваша таблица отличная

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

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

Excel 2016
я перепутал вас)
 
Ответить
Сообщениея перепутал вас)

Автор - nikosteel
Дата добавления - 13.06.2018 в 13:15
nikosteel Дата: Среда, 13.06.2018, 13:20 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Уважаемый StoTisteg, помогите пожалуйста в решении вопроса. Возможно ли реализовать что я написал
 
Ответить
СообщениеУважаемый StoTisteg, помогите пожалуйста в решении вопроса. Возможно ли реализовать что я написал

Автор - nikosteel
Дата добавления - 13.06.2018 в 13:20
nikosteel Дата: Среда, 13.06.2018, 14:48 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Прошу помочь уважаемые форумчане
 
Ответить
СообщениеПрошу помочь уважаемые форумчане

Автор - nikosteel
Дата добавления - 13.06.2018 в 14:48
StoTisteg Дата: Среда, 13.06.2018, 15:09 | Сообщение № 13
Группа: Авторы
Ранг: Ветеран
Сообщений: 879
Репутация: 73 ±
Замечаний: 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
   If Target.Offset(-1).Interior.ThemeColor = xlThemeColorLight1 Then Rows(Target.Row + 2).Interior.ThemeColor = xlThemeColorLight1

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


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
Хотелось бы добавить в нее

Так?
[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
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал nikosteel - Среда, 13.06.2018, 18:23
 
Ответить
СообщениеНужно что бы создавалось все так же, но только создавались уже заблокированные от редактирования строки

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

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