Как получить макрос для чтения максимального значения моего следующего цикла из моего рабочего листа?
Я использую этот макрос, чтобы имитировать раздачу кости для моих математических занятий. Мы рассматриваем прогнозируемые результаты по сравнению с фактическими результатами.
Sub test() Dim i As Long For i = 1 To 100 Range("a" & i) = Int(Rnd() * (7 - 1) + 1) Next i End Sub Я хочу, чтобы макрос использовал значение из ячейки 1 ячейки b2 вместо того, чтобы открывать и редактировать макрос, когда я хочу изменить это число.
Вы могли бы сделать что-то вроде этого:
Sub test() Dim i As Long Dim CurrentValue As Long Dim MaxValue As Long For i = 1 To 100 CurrentValue = Int(Rnd() * (7 - 1) + 1) Range("a" & i) = CurrentValue If MaxValue < CurrentValue Then MaxValue = CurrentValue Next i Range("B2") = MaxValue End Sub
просто добавьте другую переменную, а затем прочитайте значение Cell.
(вероятно, вы должны добавить чек, чтобы увидеть его номер или использовать DataValidation в ячейке)
Sub test() Dim i As Long Dim iMax As Long iMax = Sheets("Sheet 1").Range("B2").Value For i = 1 To iMax Range("a" & i) = Int(Rnd() * (7 - 1) + 1) Next i End Sub