Закрытая вложенная рабочая таблица_Изменить несколько диапазонов - PullRequest
Новая
       24

Закрытая вложенная рабочая таблица_Изменить несколько диапазонов

0 голосов
/ 08 октября 2019

Моя личная подкраска, изменение формы, как применить ее к нескольким фигурам в Рабочем листе. Пример: диапазон ("a1") диапазон ("a2") диапазон ("a3") ... 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
       If Target.Value = 1 Then
        With activesheet.Shapes("BOT1").Fill
           .ForeColor.RGB = RGB(0, 0, 0)
           .ForeColor.RGB = RGB(0, 155, 0)
           .BackColor.RGB = RGB(0, 155, 0)
           .TwoColorGradient msoGradientVertical, 1
        End With
    ElseIf Target.Value = 2 Then
        With activesheet.Shapes("BOT1").Fill
           .ForeColor.RGB = RGB(0, 0, 0)
           .ForeColor.RGB = RGB(0, 255, 0)
           .BackColor.RGB = RGB(210, 210, 0)
           .ForeColor.RGB = vbYellow
        End With
ElseIf Intersect(Target, Range("a2")) Is Nothing Then 
If IsNumeric(Target.Value) Then
       If Target.Value = 1 Then
        With activesheet.Shapes("BOT2").Fill
           .ForeColor.RGB = RGB(0, 0, 0)
           .ForeColor.RGB = RGB(0, 155, 0)
           .BackColor.RGB = RGB(0, 155, 0)
           .TwoColorGradient msoGradientVertical, 1
        End With
    ElseIf Target.Value = 2 Then
        With activesheet.Shapes("BOT2").Fill
           .ForeColor.RGB = RGB(0, 0, 0)
           .ForeColor.RGB = RGB(0, 255, 0)
           .BackColor.RGB = RGB(210, 210, 0)
           .ForeColor.RGB = vbYellow
        End With
...