Проблема в коде (vba) переменная возвращает 0

  • Автор темы Mad Mike
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Mad Mike

Гость
#1
Подскажите почему значение b возвращает 0 вместо 13
вот код

Код:
Dim x As Integer
Dim y As Integer
Dim a As Integer
Dim b As Integer

x = ActiveCell.Row
y = ActiveCell.Column
a = ActiveCell.Value
For i = x To 1
If Worksheets(1).Cell(x, 1).Value = "13" Then
b = Worksheets(1).Cell(x, 1).Value
Else
MsgBox ("Error")
End If
Next i
MsgBox (a)
MsgBox (b)
 

Over

Well-Known Member
04.07.2007
116
0
#2
Непонятна вот эта строчка:
Код:
For i = x To 1
Что ты хотел этим циклом? Чтобы значения i убывали от х до 1 ? В таком случае нужно было написать For i = x To 1 Step -1, чтобы значения шли по убыванию.
 
Статус
Закрыто для дальнейших ответов.