К сожалению, в макросах полный ноль. Только начал изучение. Буду признателен тому, кто сможет помочь. Внутри файла есть данные в ячейке В3 (среднее) и В4 (Ст.отклонение). А в столбце I результат. Необходимо, чтобы в столбце результат значение посчиталось макросом (сейчас стоим формулой) и вставило как значение и после поменяло среднее и ст.отклонение на единицу больше и в столбце результат посчитало значение и вставило как значение ниже полученной ранее суммы и так изменяя среднее и ст.отклонение шагом на единицу до 40.
Добрый день,
К сожалению, в макросах полный ноль. Только начал изучение. Буду признателен тому, кто сможет помочь. Внутри файла есть данные в ячейке В3 (среднее) и В4 (Ст.отклонение). А в столбце I результат. Необходимо, чтобы в столбце результат значение посчиталось макросом (сейчас стоим формулой) и вставило как значение и после поменяло среднее и ст.отклонение на единицу больше и в столбце результат посчитало значение и вставило как значение ниже полученной ранее суммы и так изменяя среднее и ст.отклонение шагом на единицу до 40.Аналитик2012
Sub Solut() Cells(3, 2) = 0 Cells(4, 2) = 0 For i = 1 To 40 Cells(3, 2) = Cells(3, 2) + 1 Cells(4, 2) = Cells(4, 2) + 1 Application.Calculate Cells(2 + i, 9) = WorksheetFunction.Large(Range(Cells(4, 6), Cells(13, 6)), 2) Next i End Sub
[/vba] поправил косяки.
Аналитик2012, [vba]
Код
Sub Solut() Cells(3, 2) = 0 Cells(4, 2) = 0 For i = 1 To 40 Cells(3, 2) = Cells(3, 2) + 1 Cells(4, 2) = Cells(4, 2) + 1 Application.Calculate Cells(2 + i, 9) = WorksheetFunction.Large(Range(Cells(4, 6), Cells(13, 6)), 2) Next i End Sub