Как установить диапазон ячеек в качестве переменных - PullRequest
Новая
       33

Как установить диапазон ячеек в качестве переменных

0 голосов
/ 13 июня 2019

Я хочу установить диапазон ячеек с переменными X и Y. Затем мне нужно, чтобы в выражениях ElseIf были значения (y + 1, x).

Я попробовал это с ячейками (y, x) и Range (y, x), но все равно получил ошибку 1004 во время выполнения 

  Private Sub LightL1_Click()



  G = RGB(0, 255, 0)
  O = RGB(255, 153, 0)
  R = RGB(255, 0, 0)
  P = RGB(204, 0, 204)

  Clr = G     'Color pick

  x = 25      'column
  y = 21      'row

  If Me.Bay1.Value = "36" Then
         Cells(y, x).Interior.Color = Clr

      ElseIf Me.Bay1.Value = "35" Then
        Cells(y + 1, x).Interior.Color = Clr
      ElseIf Me.Bay1.Value = "34" Then
        Cells(y + 2, x).Interior.Color = Clr
      ElseIf Me.Bay1.Value = "33" Then
        Cells(y + 3, x).Interior.Color = Clr
      Etc..
  End If
 End Sub

Что я делаю не так?

...