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

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

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

    Mad Mike Гость

    Подскажите почему значение 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

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

    Mad Mike Гость

    Спасибо уже разобрался
     
Загрузка...
Похожие Темы - Проблема коде (vba)
  1. c0de3r
    Ответов:
    5
    Просмотров:
    119
  2. DobermannTT
    Ответов:
    10
    Просмотров:
    133
  3. SoulPaladin
    Ответов:
    3
    Просмотров:
    122
  4. Artael
    Ответов:
    1
    Просмотров:
    109
  5. ENSLER
    Ответов:
    0
    Просмотров:
    102
Статус темы:
Закрыта.

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