1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

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

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

    Mad Mike Гость

    Репутация:
    0
    Подскажите почему значение 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)
     
  2. Over

    Over Well-Known Member

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

    Mad Mike Гость

    Репутация:
    0
    Спасибо уже разобрался
     
Загрузка...
Статус темы:
Закрыта.

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