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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка строки в таблицу, строка итогов спускается вниз - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка строки в таблицу, строка итогов спускается вниз (Иное/Other)
Вставка строки в таблицу, строка итогов спускается вниз
Алексей191919 Дата: Четверг, 21.02.2019, 22:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Доброе время суток!
подскажите есть две книги обе почти одинаковые, но есть небольшая разница
в книге 1.xlsm впринципе всё хорошо диалоговое окно берёт с листа 1 и при выборе одной строки или двух,выводит на лист 2
но строка итогов не меняет своё положение,
в книге 2.xlsm строка итогов работает отпускается в низ при добавлении,но корявое добавление хоть одну строку,хоть две строки выбираешь, выскакивает все строки
подскажите как можно объединить их.
К сообщению приложен файл: 4734316.xlsm (22.2 Kb) · 6926225.xlsm (23.5 Kb)
 
Ответить
СообщениеДоброе время суток!
подскажите есть две книги обе почти одинаковые, но есть небольшая разница
в книге 1.xlsm впринципе всё хорошо диалоговое окно берёт с листа 1 и при выборе одной строки или двух,выводит на лист 2
но строка итогов не меняет своё положение,
в книге 2.xlsm строка итогов работает отпускается в низ при добавлении,но корявое добавление хоть одну строку,хоть две строки выбираешь, выскакивает все строки
подскажите как можно объединить их.
Автор - Алексей191919
Дата добавления - 21.02.2019 в 22:51
krosav4ig Дата: Пятница, 22.02.2019, 00:36 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Сам накосячил, сам исправляю :)[vba]
Код
Private Sub btnOK_Click()
    With [Таблица2].ListObject
        For i = 1 To lbDays.ListCount
            If lbDays.Selected(i - 1) Then
                With .ListRows.Add.Range
                    For j = 1 To lbDays.ColumnCount
                        .Cells(1, j) = lbDays.List(i - 1, j - 1)
                    Next
                End With
            End If
        Next
    End With
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Пятница, 22.02.2019, 00:45
 
Ответить
СообщениеСам накосячил, сам исправляю :)[vba]
Код
Private Sub btnOK_Click()
    With [Таблица2].ListObject
        For i = 1 To lbDays.ListCount
            If lbDays.Selected(i - 1) Then
                With .ListRows.Add.Range
                    For j = 1 To lbDays.ColumnCount
                        .Cells(1, j) = lbDays.List(i - 1, j - 1)
                    Next
                End With
            End If
        Next
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 22.02.2019 в 00:36
Алексей191919 Дата: Пятница, 22.02.2019, 00:44 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Почти но по горизонтали выходит 1 столбец(
 
Ответить
СообщениеПочти но по горизонтали выходит 1 столбец(
Автор - Алексей191919
Дата добавления - 22.02.2019 в 00:44
krosav4ig Дата: Пятница, 22.02.2019, 00:47 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Продолжаю затуплять, пока вы пост писали, я свой два раза исправил ...
Щас работает

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеПродолжаю затуплять, пока вы пост писали, я свой два раза исправил ...
Щас работает
Автор - krosav4ig
Дата добавления - 22.02.2019 в 00:47
Алексей191919 Дата: Пятница, 22.02.2019, 00:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
я заметил, но что то всё равно не то
 
Ответить
Сообщениея заметил, но что то всё равно не то
Автор - Алексей191919
Дата добавления - 22.02.2019 в 00:49
Алексей191919 Дата: Пятница, 22.02.2019, 00:50 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
попробуйте выбирать по разному добавление
К сообщению приложен файл: 0906845.xlsm (23.8 Kb)


Сообщение отредактировал Алексей191919 - Пятница, 22.02.2019, 00:59
 
Ответить
Сообщениепопробуйте выбирать по разному добавление
Автор - Алексей191919
Дата добавления - 22.02.2019 в 00:50
krosav4ig Дата: Пятница, 22.02.2019, 01:25 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ну дык
Цитата krosav4ig, 22.02.2019 в 00:47, в сообщении № 4 ()
два раза


Цитата krosav4ig, 22.02.2019 в 00:36, в сообщении № 2 ()
[vba]
Код
Private Sub btnOK_Click()
    With [Таблица2].ListObject
        For i = 1 To lbDays.ListCount
            If lbDays.Selected(i - 1) Then
                With .ListRows.Add.Range
                    For j = 1 To lbDays.ColumnCount
                        .Cells(1, j) = lbDays.List(i - 1, j - 1)
                    Next
                End With
            End If
        Next
    End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениену дык
Цитата krosav4ig, 22.02.2019 в 00:47, в сообщении № 4 ()
два раза


Цитата krosav4ig, 22.02.2019 в 00:36, в сообщении № 2 ()
[vba]
Код
Private Sub btnOK_Click()
    With [Таблица2].ListObject
        For i = 1 To lbDays.ListCount
            If lbDays.Selected(i - 1) Then
                With .ListRows.Add.Range
                    For j = 1 To lbDays.ColumnCount
                        .Cells(1, j) = lbDays.List(i - 1, j - 1)
                    Next
                End With
            End If
        Next
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 22.02.2019 в 01:25
Алексей191919 Дата: Пятница, 22.02.2019, 16:33 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо всё отлично
 
Ответить
СообщениеСпасибо всё отлично
Автор - Алексей191919
Дата добавления - 22.02.2019 в 16:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка строки в таблицу, строка итогов спускается вниз (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

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