Просчет значений циклически

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просчет значений циклически (Макросы/Sub)

Asretyq

Дата: Понедельник, 07.08.2017, 15:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 200

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток, подскажите пожалуйста как сделать так чтобы просчитывалось до 50 значений в ячейке H48 и при этом H49 было значение 1, далее у нас будет просчет до 50 в ячейке H48, при этом в ячейке H49 уже будет 2, ну и так далее, надеюсь поняли)) и при расчете когда результат в ячейке в ячейке H51 = целое число, то цикл должен остановиться. Можете не обращать внимание на в ячейке F51, я сделал для себя потому что не знаю кода! Заранее благодарен!!!

[vba]

Код

Sub Êíîïêà1_Ùåë÷îê()

For y = 1 To 50
For x = 1 To 50
Range("H48").Value = Range("H48").Value + 1
Next x
Range("H49").Value = Range("H48").Value + 1
Next y

Range("H48").Value = 1
Range("H49").Value = 1
End Sub

[/vba]

К сообщению приложен файл: 2152010.xlsm (15.8 Kb)

Ответить

_Boroda_

Дата: Понедельник, 07.08.2017, 15:57 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Если Вам хочется прямо вот именно на листе (возможно, для наглядности) все это делать, а не внутри макроса, то примерно так можно
[vba]

Код

Sub Кнопка1_Щелчок()
    Range("H48").Value = 1
    Range("H49").Value = 1
    For y = 1 To 50
        For x = 1 To 50
            Range("H48").Value = x
            If Int(Range("F51")) = Range("F51") Then
                'Exit For
                'Exit For
                Exit Sub
            End If
        Next x
        Range("H49").Value = y
    Next y
End Sub

[/vba]
==========
Файл перевложил. Добавил Exit Sub

К сообщению приложен файл: 2152010_2.xlsm (16.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995