Sub öö()
Dim X As Single, Y As Single, K As Single, S As Single, I As Single
Sheets("Ëèñò1").Select
Cells(1, 1) = "X"
Cells(1, 2) = "Z"
I = 2
For X = 1 To 11 Step 1
Z = Log(X ^ (1 / 2) + 1 / X ^ 2)
Cells(I, 1) = X
Cells(I, 2) = Z
I = I + 1
S = S + Z
Next X
End Sub
Получается таблица с X и Z. После чего мы сделали кнопку и график. Мне надо сделать возле первой таблицы сделать еще одну, где даны начальное и конечное значение(В макросе это 1 и 11). Меняя эти значения во второй таблице, первая таблица так же меняется. Например, нач. и конеч. значения 1 и 11, меняем их на 5 и 15 и получаем в первой таблице с X: 5,6,7... 15, а Z уже автоматически рассчитывается. Надеюсь я поставил вопрос корректно. Помогите, пожалуйста, советом.
Dim X As Single, Y As Single, K As Single, S As Single, I As Single
Sheets("Ëèñò1").Select
Cells(1, 1) = "X"
Cells(1, 2) = "Z"
I = 2
For X = 1 To 11 Step 1
Z = Log(X ^ (1 / 2) + 1 / X ^ 2)
Cells(I, 1) = X
Cells(I, 2) = Z
I = I + 1
S = S + Z
Next X
End Sub
Получается таблица с X и Z. После чего мы сделали кнопку и график. Мне надо сделать возле первой таблицы сделать еще одну, где даны начальное и конечное значение(В макросе это 1 и 11). Меняя эти значения во второй таблице, первая таблица так же меняется. Например, нач. и конеч. значения 1 и 11, меняем их на 5 и 15 и получаем в первой таблице с X: 5,6,7... 15, а Z уже автоматически рассчитывается. Надеюсь я поставил вопрос корректно. Помогите, пожалуйста, советом.
