Страницы: 1
RSS
Формула VBA не высчитывает значения в определённом диапазоне
 
Здравствуйте! Помогите пожалуйста с кодом он должен по значениям в столбике С высчитывать сумму в определенном диапазоне и  делать разницу полученных значений и предыдущих потом с каждым шагом увеличивать диапазон суммирующих значений и т.д. до половины количества значений в столбике С. значения С заполняются индивидуально и не имеет зависимостей в отличии от шага В
сам код:
Sub gg()
Dim Massive As Range
Dim G As Double 'задаем форматы значений'
Dim N As Double
Dim Z As Double
Dim F As Double
Dim B As Double
Dim L As Double
Dim X As Double
Dim i As Long
Dim j As Long
Dim h As Long
Dim q As Long
Dim y As Long
Dim p As Long
Dim r As Long

G = InputBox("Введите первое значение") 'изначальные значения и константы'
N = InputBox("Всего значений")
Z = InputBox("Шаг")
F = InputBox("Полученные полевые значения")
X = 3
j = 3
h = 5
q = 1
p = 5
r = 6
For y = 1 To N
Cells(y, 1) = y 'присваиваем каждой букве столбик'
Cells(y, 2) = G
Cells(y, 3) = F
Cells(y, p) = B
Cells(y, r) = L
F = InputBox("Полученные полевые значения") 'заполнение полевых значений'
G = G + Z
Next y
For t = 1 To N
For i = 1 To N
If i - q <= 0 Then S = (i - q) * 0 + 1 Else S = (i - q) 'условие нужно для того, чтобы значения не выходили за пределы не существующих диапазонов ячеек'
Set Massive = Range(Cells(S, j), Cells(i + q, j))
If X <= (N / 2) Then B = (1 / X) * Application.WorksheetFunction.Sum(Massive) And L = Cells(i, h) - Cells(i, h - 2) Else Stop

'формулы первая: представлена в виде среднего значения , которая с с каждым разом увеличения i будет увеличиваться шаг среднего до определённого граничного условия и переходами на другие строки '
'формула вторая: разность полученных значений между нынешнем и предыдущими B'

Next i

j = j + 2 'условие переходов на другие значения'
X = X + 2
q = q + 1
h = h + 2
p = p + 2
r = r + 2
Next t



End Sub
Если кто-то разберётся буду очень благодарен!!!  
Страницы: 1
Наверх