Цитата:
Сообщение от Plague
оно empty
|
Всё правильно.
процедура "БоеваяРаскраска" предпологает что ты стоишь уже в нужной ячейке (перед вызовом процедуры происходит позиционирование на ячейке)
MyRow определена в "Макрос1" и не доступна в "БоеваяРаскраска".
Решение:
1. строку Dim MyRow, MyCol вывести в первую строку модуля (а из "Макрос1" убрать). Переменная станет глобальной для модуля
2. в "БоеваяРаскраска" есть переменная А. Это текущая ячейка. a.row() возвратит её номер строки т.е.
If (a.Row() mod 2) = 1 Then