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

Вход

Регистрация

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

 

= Мир MS Excel/вкл-откл макроса события Worksheet_SelectionChange - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вкл-откл макроса события Worksheet_SelectionChange (Макросы/Sub)
вкл-откл макроса события Worksheet_SelectionChange
Extybr Дата: Суббота, 10.04.2021, 11:59 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
подскажите как сделать что бы можно было кнопкой отключать включать вот это.....
то есть должно работать но при потребности нажал кнопку отключил что нужно сделал и включил обратно
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = Target.Row
    If Cells(r, 2).Value = 1 Then
    Range("A1").Activate
    Exit Sub
    End If
End Sub
[/vba]
К сообщению приложен файл: 2316062.xlsb(14.0 Kb)
 
Ответить
Сообщениеподскажите как сделать что бы можно было кнопкой отключать включать вот это.....
то есть должно работать но при потребности нажал кнопку отключил что нужно сделал и включил обратно
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    r = Target.Row
    If Cells(r, 2).Value = 1 Then
    Range("A1").Activate
    Exit Sub
    End If
End Sub
[/vba]

Автор - Extybr
Дата добавления - 10.04.2021 в 11:59
Nic70y Дата: Суббота, 10.04.2021, 12:35 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6875
Репутация: 1574 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u = Worksheets("Лист1").Buttons("Button 1").Text
    If u = "ВКЛ" Then
        r = Target.Row
        If Cells(r, 2).Value = 1 Then
            Range("A1").Activate
            Exit Sub
        End If
    End If
End Sub
[/vba]
[vba]
Код
Sub u_421()
    u = Worksheets("Лист1").Buttons("Button 1").Text
    If u = "ВКЛ" Then
        Worksheets("Лист1").Buttons("Button 1").Text = "ВЫКЛ"
    Else
        Worksheets("Лист1").Buttons("Button 1").Text = "ВКЛ"
    End If
End Sub
[/vba]
К сообщению приложен файл: 9370463.xlsb(17.7 Kb)


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    u = Worksheets("Лист1").Buttons("Button 1").Text
    If u = "ВКЛ" Then
        r = Target.Row
        If Cells(r, 2).Value = 1 Then
            Range("A1").Activate
            Exit Sub
        End If
    End If
End Sub
[/vba]
[vba]
Код
Sub u_421()
    u = Worksheets("Лист1").Buttons("Button 1").Text
    If u = "ВКЛ" Then
        Worksheets("Лист1").Buttons("Button 1").Text = "ВЫКЛ"
    Else
        Worksheets("Лист1").Buttons("Button 1").Text = "ВКЛ"
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 10.04.2021 в 12:35
Extybr Дата: Суббота, 10.04.2021, 15:53 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, спасибо большое. то что нужно
подскажите пожалуйста еще, если несколько макросов по событию
Worksheet_SelectionChange, будет отключаться только этот макрос? или все
 
Ответить
СообщениеNic70y, спасибо большое. то что нужно
подскажите пожалуйста еще, если несколько макросов по событию
Worksheet_SelectionChange, будет отключаться только этот макрос? или все

Автор - Extybr
Дата добавления - 10.04.2021 в 15:53
Extybr Дата: Суббота, 10.04.2021, 16:07 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, ПЕРЕНЕС К СЕБЕв файл.ПОПРОБУЮ РАЗОБРАТЬСЯ


Сообщение отредактировал Extybr - Суббота, 10.04.2021, 16:13
 
Ответить
СообщениеNic70y, ПЕРЕНЕС К СЕБЕв файл.ПОПРОБУЮ РАЗОБРАТЬСЯ

Автор - Extybr
Дата добавления - 10.04.2021 в 16:07
Extybr Дата: Суббота, 10.04.2021, 16:30 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, при выделении ячеек пишет ошибку 1004
невозможно получить свойство Buttons класса Workcheet
и выделяет строку
u = Worksheets("ÔÁ").Buttons("Button 1").Text
что может быть?


Сообщение отредактировал Extybr - Суббота, 10.04.2021, 16:30
 
Ответить
СообщениеNic70y, при выделении ячеек пишет ошибку 1004
невозможно получить свойство Buttons класса Workcheet
и выделяет строку
u = Worksheets("ÔÁ").Buttons("Button 1").Text
что может быть?

Автор - Extybr
Дата добавления - 10.04.2021 в 16:30
RAN Дата: Суббота, 10.04.2021, 16:34 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5429
Репутация: 1084 ±
Замечаний: 0% ±

2010
Батон другой. Возможно черствый.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеБатон другой. Возможно черствый.

Автор - RAN
Дата добавления - 10.04.2021 в 16:34
Extybr Дата: Суббота, 10.04.2021, 16:39 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
RAN, ЭТО КАК?
ПОДСКАЖИТЕ ПОЖАЛУЙСТА В ЧЕМ ДЕЛО


Сообщение отредактировал Extybr - Суббота, 10.04.2021, 16:51
 
Ответить
СообщениеRAN, ЭТО КАК?
ПОДСКАЖИТЕ ПОЖАЛУЙСТА В ЧЕМ ДЕЛО

Автор - Extybr
Дата добавления - 10.04.2021 в 16:39
Extybr Дата: Суббота, 10.04.2021, 17:37 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
с кнопкой и ошибкой разобрался
 
Ответить
Сообщениес кнопкой и ошибкой разобрался

Автор - Extybr
Дата добавления - 10.04.2021 в 17:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » вкл-откл макроса события Worksheet_SelectionChange (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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