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

Вход

Регистрация

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

 

= Мир MS Excel/Плавающая строка при добавлении и удалении строк - Мир MS Excel

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

Excel 2003
Добрый всем день!
Помогите сделать следующее, скорее всего макросом. При добавлении строки в умной таблице, итоговая строка (желтая) должна также опускаться, а при удалении данных в любой строке из столбца C эта строка должна исчезнуть, а нижняя часть таблицы вместе с итоговой строкой - подниматься.
К сообщению приложен файл: 1-version_1-.xlsx(13.0 Kb)


Сообщение отредактировал zsm - Четверг, 21.03.2019, 04:59
 
Ответить
СообщениеДобрый всем день!
Помогите сделать следующее, скорее всего макросом. При добавлении строки в умной таблице, итоговая строка (желтая) должна также опускаться, а при удалении данных в любой строке из столбца C эта строка должна исчезнуть, а нижняя часть таблицы вместе с итоговой строкой - подниматься.

Автор - zsm
Дата добавления - 21.03.2019 в 04:56
krosav4ig Дата: Четверг, 21.03.2019, 05:16 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2031
Репутация: 847 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте.
Включаем строку итогов, в модуль ЭтаКнига пишем [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    With Target.ListObject
        If Not Intersect(.TotalsRowRange, Target) Is Nothing Then
            Application.EnableEvents = 0
            If Err = 0 Then .ListRows.Add: Cancel = True
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba] в модуль Лист1
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim r As Range
    If Intersect(Target, [Таблица3[название]]) Is Nothing Then Exit Sub
    With [Таблица3].ListObject
        With .ListColumns("название").DataBodyRange
            Set r = IIf(.Cells.Count = 1, .Resize(2), .Cells)
        End With
        Intersect(r.SpecialCells(4), .Range).Delete xlUp
        Set r = Nothing
    End With
End Sub
[/vba]
Жмакаем двойным кликом по строке итогов
К сообщению приложен файл: 1-version_1-.xlsm(23.7 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 21.03.2019, 17:39
 
Ответить
СообщениеЗдравствуйте.
Включаем строку итогов, в модуль ЭтаКнига пишем [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    With Target.ListObject
        If Not Intersect(.TotalsRowRange, Target) Is Nothing Then
            Application.EnableEvents = 0
            If Err = 0 Then .ListRows.Add: Cancel = True
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba] в модуль Лист1
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim r As Range
    If Intersect(Target, [Таблица3[название]]) Is Nothing Then Exit Sub
    With [Таблица3].ListObject
        With .ListColumns("название").DataBodyRange
            Set r = IIf(.Cells.Count = 1, .Resize(2), .Cells)
        End With
        Intersect(r.SpecialCells(4), .Range).Delete xlUp
        Set r = Nothing
    End With
End Sub
[/vba]
Жмакаем двойным кликом по строке итогов

Автор - krosav4ig
Дата добавления - 21.03.2019 в 05:16
zsm Дата: Четверг, 21.03.2019, 05:31 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Все бы хорошо, но
Добавляются строки - Да
Исчезают строки - Нет
 
Ответить
СообщениеВсе бы хорошо, но
Добавляются строки - Да
Исчезают строки - Нет

Автор - zsm
Дата добавления - 21.03.2019 в 05:31
krosav4ig Дата: Четверг, 21.03.2019, 06:15 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2031
Репутация: 847 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Дополнил в своем посте


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеДополнил в своем посте

Автор - krosav4ig
Дата добавления - 21.03.2019 в 06:15
zsm Дата: Четверг, 21.03.2019, 07:20 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Спасибо!
Я наверно сильно назойливый, но при вводе в ячейку Cx выделяется массив С:С при переходе и вводе, удалении в других ячейках также выделяется этот массив, что очень неудобно. Может подточите макрос. И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?
 
Ответить
СообщениеСпасибо!
Я наверно сильно назойливый, но при вводе в ячейку Cx выделяется массив С:С при переходе и вводе, удалении в других ячейках также выделяется этот массив, что очень неудобно. Может подточите макрос. И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?

Автор - zsm
Дата добавления - 21.03.2019 в 07:20
krosav4ig Дата: Четверг, 21.03.2019, 17:32 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2031
Репутация: 847 ±
Замечаний: 0% ±

Excel 2007,2010,2013
выделяется массив С:С

гы. Мозг спит, а руки сами по клаве клацают, зачем-то select написал...
заменил файл


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
выделяется массив С:С

гы. Мозг спит, а руки сами по клаве клацают, зачем-то select написал...
заменил файл

Автор - krosav4ig
Дата добавления - 21.03.2019 в 17:32
krosav4ig Дата: Четверг, 21.03.2019, 17:56 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2031
Репутация: 847 ±
Замечаний: 0% ±

Excel 2007,2010,2013
И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?

в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    With Target.ListObject
        If Not Intersect(.TotalsRowRange, Target) Is Nothing And Target.Count = 1 Then
            Application.EnableEvents = 0
            If Err = 0 Then: .ListRows.Add: Target(0).Select
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba]
К сообщению приложен файл: 0272046.xlsm(23.5 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
И можно ли сделать активацию ячейки С (для добавления строки) в строке итоги не двойным, а одинарным кликом?

в модуль ЭтаКнига [vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    With Target.ListObject
        If Not Intersect(.TotalsRowRange, Target) Is Nothing And Target.Count = 1 Then
            Application.EnableEvents = 0
            If Err = 0 Then: .ListRows.Add: Target(0).Select
            Application.EnableEvents = 1
        End If
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 21.03.2019 в 17:56
zsm Дата: Пятница, 22.03.2019, 07:02 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Обалдеть!!! То что нужно!!! Еще раз огромное спасибо!!!
 
Ответить
СообщениеОбалдеть!!! То что нужно!!! Еще раз огромное спасибо!!!

Автор - zsm
Дата добавления - 22.03.2019 в 07:02
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Плавающая строка при добавлении и удалении строк (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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