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

Вход

Регистрация

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

 

= Мир MS Excel/Флажок, прикрепления макроса - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Флажок, прикрепления макроса (Макросы/Sub)
Флажок, прикрепления макроса
Dersarius Дата: Суббота, 29.02.2020, 10:47 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, подскажите.
Можно ли как нибудь воплатить =)
Есть Лист1 и Лист2
Ячейка А1, А2, А3 сделать на каждую ячейку галки (флажок) и прикрепить макрос который привязан к кнопке (копирует столбец А1 на лист2)
Пример если поставить флажок на А1 и А3 и нажать кнопку, макрос выделит по очереди строчки где установлен флажок и поочереди вставит на Лист2. Тоесть сначало выделит строчку 1 вставит в лист2 потом выделит строчку 3 вставит на лист2 (поверх)
К сообщению приложен файл: 6289245.xlsm(121.7 Kb)
 
Ответить
СообщениеДобрый день, подскажите.
Можно ли как нибудь воплатить =)
Есть Лист1 и Лист2
Ячейка А1, А2, А3 сделать на каждую ячейку галки (флажок) и прикрепить макрос который привязан к кнопке (копирует столбец А1 на лист2)
Пример если поставить флажок на А1 и А3 и нажать кнопку, макрос выделит по очереди строчки где установлен флажок и поочереди вставит на Лист2. Тоесть сначало выделит строчку 1 вставит в лист2 потом выделит строчку 3 вставит на лист2 (поверх)

Автор - Dersarius
Дата добавления - 29.02.2020 в 10:47
Nic70y Дата: Суббота, 29.02.2020, 12:12 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7732
Репутация: 1856 ±
Замечаний: 0% ±

Excel 2010
(поверх)
что это значит?
в Лист2 всегда вставляется в 1-ю строку? или...?


ЮMoney 41001841029809
 
Ответить
Сообщение
(поверх)
что это значит?
в Лист2 всегда вставляется в 1-ю строку? или...?

Автор - Nic70y
Дата добавления - 29.02.2020 в 12:12
Dersarius Дата: Суббота, 29.02.2020, 12:18 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да все верно всегда вставлять в строчку 1 Поверх.
Есть большой макрос он вставляет в лист 2 строчку которая полность выделена из лист 1 и сохраняет отдельно лист2 в папку. На листе1 много данных построчкам, приходится выделять руками строчку нажимать кнопку и т.д. с разными строчками.


Сообщение отредактировал Dersarius - Суббота, 29.02.2020, 12:19
 
Ответить
СообщениеДа все верно всегда вставлять в строчку 1 Поверх.
Есть большой макрос он вставляет в лист 2 строчку которая полность выделена из лист 1 и сохраняет отдельно лист2 в папку. На листе1 много данных построчкам, приходится выделять руками строчку нажимать кнопку и т.д. с разными строчками.

Автор - Dersarius
Дата добавления - 29.02.2020 в 12:18
Nic70y Дата: Суббота, 29.02.2020, 12:29 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 7732
Репутация: 1856 ±
Замечаний: 0% ±

Excel 2010
На листе1 много данных построчкам
и на каждую Вы хотите поместить флажок?


ЮMoney 41001841029809
 
Ответить
Сообщение
На листе1 много данных построчкам
и на каждую Вы хотите поместить флажок?

Автор - Nic70y
Дата добавления - 29.02.2020 в 12:29
Nic70y Дата: Суббота, 29.02.2020, 12:58 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 7732
Репутация: 1856 ±
Замечаний: 0% ±

Excel 2010
предложу такой вариант:
в модуль листа
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Column = 1 Then
        If ActiveCell = "" Then
        ActiveCell = "a"
        Else
        ActiveCell = ""
        End If
    Cancel = True
    End If
End Sub
[/vba]
двойным кликом по ячейке столбца А проставляется/снимается галка
обратите внимание на шрифт = Marlett
вместо Вашего макроса:
[vba]
Код
Sub Макрос3()
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In Range("a1:a" & u)
        If c = "a" Then
            Rows(c.Row).Copy Sheets("Лист2").Range("a1")
            'тут остальной макрос
        End If
    Next
End Sub
[/vba]
К сообщению приложен файл: 3899984.xlsm(126.7 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениепредложу такой вариант:
в модуль листа
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Column = 1 Then
        If ActiveCell = "" Then
        ActiveCell = "a"
        Else
        ActiveCell = ""
        End If
    Cancel = True
    End If
End Sub
[/vba]
двойным кликом по ячейке столбца А проставляется/снимается галка
обратите внимание на шрифт = Marlett
вместо Вашего макроса:
[vba]
Код
Sub Макрос3()
    u = Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In Range("a1:a" & u)
        If c = "a" Then
            Rows(c.Row).Copy Sheets("Лист2").Range("a1")
            'тут остальной макрос
        End If
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 29.02.2020 в 12:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Флажок, прикрепления макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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