Проблема: в BexAnalyser 7.0 долго отрабатывает макрос из-за замены значений # на пусто.

Kseniya Sergeevna

Макрос тормозит в одном месте: код замены значения # в ячейках таблицы на пусто. При таком обновлении значения в ячейке макрос проваливается внутрь функций самого Bex-a. Может, кто знает, как отключить это внутри макроса?

ash

Попробуйте добавить в макрос перед началом замены Application.EnableEvents = False.

AlexanderGamov

Вопрос в том как в коде VBA вы реализовали замену значений в ячейках результирующей выборки с '#' на ' '. Попробуйте так:

Code:

Set Table = ThisWorkbook.Worksheets("Table")
Table.Range((varname(1).Address).Select

With Selection
.RowHeight = 15
.VerticalAlignment = xlBottom
.Replace What:="#", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Как то так

Kseniya Sergeevna

УРА! РАБОТАЕТ! БОЛЬШОЕ-ПРЕБОЛЬШОЕ СПАСИБО!

Kseniya Sergeevna

там весь код замены в нужном столбце к:

ws.Range(ws.Cells(ПерваяСтрока, k), ws.Cells(ПоследняяСтрока, k)).Replace What:="#", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

не хватало как раз

Application.EnableEvents = False.

код стал работать мгновенно!

ash

Не забудьте после кода замены вставить Application.EnableEvents = True.

Kseniya Sergeevna

Кстати, идеальный вариант

Dim EnableEventsFirst As Boolean
EnableEventsFirst = Application.EnableEvents
Application.EnableEvents = False

и в конце

Application.EnableEvents = EnableEventsFirst

иначе есть вероятность поймать в будущем баг, если кто-то еще к этому документу макросы будет делать и использовать свойства Application.EnableEvents

Проблема: в BexAnalyser 7.0 долго отрабатывает макрос из-за замены значений # на пусто.

Кто сейчас на конференции