Есть много способов сделать это, но, вероятно, самый простой способ объяснить это: допустим, у вас есть лист с именем Sheet1 и один с именем Sheet2.На Листе 2 у вас есть форма, которая называется Квадрат.Ваш код может выглядеть следующим образом:
Dim firstSheet as worksheet, secondSheet as worksheet
Set firstSheet = Sheets("Sheet1")
set secondSheet = Sheets("Sheet2")
If firstSheet.Range("A1") < 0.95 then
secondSheet.Shapes("Square").Fill.ForeColor.RGB = RGB(0, 0, 0)
End If
Это просто очень простой пример, поскольку, изучая VBA, вы обнаружите, что существует множество способов сделать что-то подобное.
FYIПричина, по которой peope проголосовал за этот пост, заключается в том, что на этом сайте вас ожидают показать, что вы пробовали, и объяснить, почему он не работает.Вот больше информации: https://stackoverflow.com/help/mcve
Добро пожаловать в SO.