Выборочное срабатывание макроса с событием Calculate

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выборочное срабатывание макроса с событием Calculate (Макросы/Sub)

Grell

Дата: Пятница, 24.03.2017, 02:16 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация: 0 ±

Замечаний: 60% ±

Excel 2007

Доброе утро!
Прошу помочь в решении следующей проблемы.

Есть простой макрос - при котором автофигура треугольник - немного движется вправо при каждом пересчете листа.

Как заставить этот макрос с событием Calculate - срабатывать не при каждом пересчете листа, а например при каждом третьем?

Мне видится примерно такое решение:
В начале макроса - идет вычисление аналогичное формуле СЛУЧМЕЖДУ(1;3). Если выпадает 3, то макрос выполняется. Если выпадают 1 или 2 - то макрос останавливается (и треугольник не двигается).
Иными словами макрос - визуально будет срабатывать - как бы выборочно (хотя аналог СЛУЧМЕЖДУ - будет работать при каждом пересчете).

К сообщению приложен файл: 86535.xls (39.0 Kb)

Ответить

KuklP

Дата: Пятница, 24.03.2017, 07:39 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

?
[vba]

Код

Private Sub Worksheet_Calculate()
    If Int((3 * Rnd) + 1) = 3 Then
        ActiveSheet.Shapes.Range(Array("Isosceles Triangle 1")).Select
        Selection.ShapeRange.IncrementLeft 24
        Selection.ShapeRange.IncrementTop 1.5
        Range("D11").Select
    End If
End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

K-SerJC

Дата: Пятница, 24.03.2017, 07:43 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

так?
[vba]

Код

Public tD As Integer

Private Sub Worksheet_Calculate()
   tD = tD + 1
   If tD / 3 = Int(tD / 3) Then
   ActiveSheet.Shapes.Range(Array("Isosceles Triangle 1")).Select
    Selection.ShapeRange.IncrementLeft 24
    Selection.ShapeRange.IncrementTop 1.5
    Range("D11").Select
    End If
End Sub

[/vba]