Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Просчет значений циклически - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просчет значений циклически (Макросы/Sub)
Просчет значений циклически
Asretyq Дата: Понедельник, 07.08.2017, 15:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 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(16Kb)
 
Ответить
СообщениеДоброго времени суток, подскажите пожалуйста как сделать так чтобы просчитывалось до 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]

Автор - Asretyq
Дата добавления - 07.08.2017 в 15:40
_Boroda_ Дата: Понедельник, 07.08.2017, 15:57 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11547
Репутация: 4754 ±
Замечаний: 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(16Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕсли Вам хочется прямо вот именно на листе (возможно, для наглядности) все это делать, а не внутри макроса, то примерно так можно
[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

Автор - _Boroda_
Дата добавления - 07.08.2017 в 15:57
Asretyq Дата: Понедельник, 07.08.2017, 16:03 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Отлично, спасибо вам большое, 90 процентов решено, вот только цикл не останавливается при целом числе, 3^2+4^2=5^2, в решении нет дробей. То есть при H48=3 и H49=4 в ячейке F51=1 и цикл должен был остановиться, но этого не происходит


Сообщение отредактировал Asretyq - Понедельник, 07.08.2017, 16:14
 
Ответить
Сообщение_Boroda_, Отлично, спасибо вам большое, 90 процентов решено, вот только цикл не останавливается при целом числе, 3^2+4^2=5^2, в решении нет дробей. То есть при H48=3 и H49=4 в ячейке F51=1 и цикл должен был остановиться, но этого не происходит

Автор - Asretyq
Дата добавления - 07.08.2017 в 16:03
_Boroda_ Дата: Понедельник, 07.08.2017, 16:30 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11547
Репутация: 4754 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Точно, стормозил
Замените два Exit For на один Exit Sub
Файл перевложу сейчас в свое пред. сообщение


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТочно, стормозил
Замените два Exit For на один Exit Sub
Файл перевложу сейчас в свое пред. сообщение

Автор - _Boroda_
Дата добавления - 07.08.2017 в 16:30
Asretyq Дата: Вторник, 08.08.2017, 06:38 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
_Boroda_, Спасибо
 
Ответить
Сообщение_Boroda_, Спасибо

Автор - Asretyq
Дата добавления - 08.08.2017 в 06:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Просчет значений циклически (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!