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

Вход

Регистрация

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

 

= Мир MS Excel/Как обработать событие Worksheet_TableUpdate - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как обработать событие Worksheet_TableUpdate (Макросы/Sub)
Как обработать событие Worksheet_TableUpdate
Stormy Дата: Среда, 25.08.2021, 10:34 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Добрый день, уважаемые.
Помогите с примером как обработать событие
[vba]
Код
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
'Что и как тут нужно указать, чтобы дальше сработали макросы ниже?
        Call UserAd
        Call Emsal
    End If
End Sub
[/vba]

Место для рекламы.
 
Ответить
СообщениеДобрый день, уважаемые.
Помогите с примером как обработать событие
[vba]
Код
Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
'Что и как тут нужно указать, чтобы дальше сработали макросы ниже?
        Call UserAd
        Call Emsal
    End If
End Sub
[/vba]
Автор - Stormy
Дата добавления - 25.08.2021 в 10:34
bmv98rus Дата: Среда, 25.08.2021, 11:20 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
https://social.technet.microsoft.com/Forums....xceldev

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеhttps://social.technet.microsoft.com/Forums....xceldev
Автор - bmv98rus
Дата добавления - 25.08.2021 в 11:20
Stormy Дата: Среда, 25.08.2021, 11:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Видел эту статью, но все равно ничего не понял.
Событие нужно вызывать с листа на котором размещена обновляемая таблица, разместил, но эффекта 0.
Обошел этот момент открытием Активацией книги, пока вроде все работает и устраивает.
Но хотелось бы еще понимать как работает именно описываемое выше событие так как его могу использовать в разных случаях

Место для рекламы.
 
Ответить
СообщениеВидел эту статью, но все равно ничего не понял.
Событие нужно вызывать с листа на котором размещена обновляемая таблица, разместил, но эффекта 0.
Обошел этот момент открытием Активацией книги, пока вроде все работает и устраивает.
Но хотелось бы еще понимать как работает именно описываемое выше событие так как его могу использовать в разных случаях
Автор - Stormy
Дата добавления - 25.08.2021 в 11:26
bmv98rus Дата: Среда, 25.08.2021, 11:38 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
обновляется то у Вас что?

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеобновляется то у Вас что?
Автор - bmv98rus
Дата добавления - 25.08.2021 в 11:38
Stormy Дата: Среда, 25.08.2021, 12:37 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 25.08.2021 в 11:38, в сообщении № 4 ()
обновляется то у Вас что?

Таблица на листе, которая через Query берет данные с другого файла Excel

Место для рекламы.

Сообщение отредактировал Stormy - Среда, 25.08.2021, 12:38
 
Ответить
Сообщение
Цитата bmv98rus, 25.08.2021 в 11:38, в сообщении № 4 ()
обновляется то у Вас что?

Таблица на листе, которая через Query берет данные с другого файла Excel
Автор - Stormy
Дата добавления - 25.08.2021 в 12:37
bmv98rus Дата: Среда, 25.08.2021, 14:29 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4113
Репутация: 769 ±
Замечаний: 0% ±

Excel 2013/2016
Это не то событие
Примерно так

[vba]
Код

' by ZVI  https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=profile_view&UID=127
Dim WithEvents q As QueryTable

Private Sub q_AfterRefresh(ByVal Success As Boolean)
Debug.Print "AfterRefresh", Now
End Sub

Private Sub q_BeforeRefresh(Cancel As Boolean)
Debug.Print "BeforeRefresh", Now
End Sub

Private Sub Workbook_Open()
Application.OnTime Now, Me.Name & ".Start"
End Sub

Sub Start()
Set q = Sheet2.QueryTables(1)
End Sub
[/vba]

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Среда, 25.08.2021, 14:30
 
Ответить
СообщениеЭто не то событие
Примерно так

[vba]
Код

' by ZVI  https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=profile_view&UID=127
Dim WithEvents q As QueryTable

Private Sub q_AfterRefresh(ByVal Success As Boolean)
Debug.Print "AfterRefresh", Now
End Sub

Private Sub q_BeforeRefresh(Cancel As Boolean)
Debug.Print "BeforeRefresh", Now
End Sub

Private Sub Workbook_Open()
Application.OnTime Now, Me.Name & ".Start"
End Sub

Sub Start()
Set q = Sheet2.QueryTables(1)
End Sub
[/vba]
Автор - bmv98rus
Дата добавления - 25.08.2021 в 14:29
boa Дата: Среда, 25.08.2021, 15:16 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
Здравствуйте,
Когда создаете таблицу на основе подключения, поставьте галочку добавить данные в модель данных
К сообщению приложен файл: 5077891.xlsb (147.4 Kb)

 
Ответить
СообщениеЗдравствуйте,
Когда создаете таблицу на основе подключения, поставьте галочку добавить данные в модель данных
Автор - boa
Дата добавления - 25.08.2021 в 15:16
Stormy Дата: Четверг, 26.08.2021, 12:33 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
boa,
Буду пробовать таким образом в след. редакциях

Место для рекламы.
 
Ответить
Сообщениеboa,
Буду пробовать таким образом в след. редакциях
Автор - Stormy
Дата добавления - 26.08.2021 в 12:33
Stormy Дата: Четверг, 26.08.2021, 12:35 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 366
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Цитата bmv98rus, 25.08.2021 в 14:29, в сообщении № 6 ()
Примерно так

Мне нужно было повесить выполнение макроса на какое-то событие.
Первое, что пришло на ум это использовать обновление таблицы, она обновляется при открытии файла.
После того как столкнулся с проблемой решил использовать событие книги Activation
Вроде все работает как хотелось бы.
Спасибо за потраченное время ))

Место для рекламы.
 
Ответить
Сообщение
Цитата bmv98rus, 25.08.2021 в 14:29, в сообщении № 6 ()
Примерно так

Мне нужно было повесить выполнение макроса на какое-то событие.
Первое, что пришло на ум это использовать обновление таблицы, она обновляется при открытии файла.
После того как столкнулся с проблемой решил использовать событие книги Activation
Вроде все работает как хотелось бы.
Спасибо за потраченное время ))
Автор - Stormy
Дата добавления - 26.08.2021 в 12:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как обработать событие Worksheet_TableUpdate (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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