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

Тема в разделе "Visual Basic", создана пользователем Mad Mike, 20 ноя 2007.

Статус темы:
Закрыта.
  1. Mad Mike

    Mad Mike Гость

    Репутация:
    0
    Подскажите почему значение b возвращает 0 вместо 13
    вот код

    Код (Text):
    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)
     
  2. Over

    Over Well-Known Member

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    116
    Симпатии:
    0
    Непонятна вот эта строчка:
    Код (Text):
    For i = x To 1
    Что ты хотел этим циклом? Чтобы значения i убывали от х до 1 ? В таком случае нужно было написать For i = x To 1 Step -1, чтобы значения шли по убыванию.
     
  3. Mad Mike

    Mad Mike Гость

    Репутация:
    0
    Спасибо уже разобрался
     
Загрузка...
Похожие Темы - Проблема коде (vba)
  1. _alexis_
    Ответов:
    4
    Просмотров:
    65
  2. Lisenok
    Ответов:
    19
    Просмотров:
    255
  3. thunder
    Ответов:
    1
    Просмотров:
    118
  4. SevenEight
    Ответов:
    0
    Просмотров:
    113
  5. imendan
    Ответов:
    13
    Просмотров:
    266
Статус темы:
Закрыта.

Поделиться этой страницей