Sub toAVG() Dim x, i& x = [C6:C47] Do While Application.WorksheetFunction.Average(x) < 2.78 For i = LBound(x) To UBound(x) x(i, 1) = x(i, 1) + 0.00001 If Application.WorksheetFunction.Average(x) >= 2.78 Then GoTo ext1 Next Loop ext1: [C6:C47] = x Erase x
x = [C106:C166] Do While Application.WorksheetFunction.Average(x) < 2.78 For i = LBound(x) To UBound(x) x(i, 1) = x(i, 1) + 0.00001 If Application.WorksheetFunction.Average(x) >= 2.78 Then GoTo ext2 Next Loop ext2: [C106:C166] = x End Sub
[/vba]
в файле есть графа ТСaver там среднее значения которые должны быть у каждого столбца ТС. например для 2,52 по ТСaver среднее значение тс которое находиться рядом с name 1 должно быть тоже 2,52, второе значение ТСaver 2.55 для столбца ТС напротив name 2 должно тоже быть 2,55(сред знач) и так далее
[vba]
Код
Sub toAVG() Dim x, i& x = [C6:C47] Do While Application.WorksheetFunction.Average(x) < 2.78 For i = LBound(x) To UBound(x) x(i, 1) = x(i, 1) + 0.00001 If Application.WorksheetFunction.Average(x) >= 2.78 Then GoTo ext1 Next Loop ext1: [C6:C47] = x Erase x
x = [C106:C166] Do While Application.WorksheetFunction.Average(x) < 2.78 For i = LBound(x) To UBound(x) x(i, 1) = x(i, 1) + 0.00001 If Application.WorksheetFunction.Average(x) >= 2.78 Then GoTo ext2 Next Loop ext2: [C106:C166] = x End Sub
[/vba]
в файле есть графа ТСaver там среднее значения которые должны быть у каждого столбца ТС. например для 2,52 по ТСaver среднее значение тс которое находиться рядом с name 1 должно быть тоже 2,52, второе значение ТСaver 2.55 для столбца ТС напротив name 2 должно тоже быть 2,55(сред знач) и так далееsesik
Тогда приложите файл, как выглядит структура данных. По приложенному примеру только один столбец плотностей. Да и потом надо определится что откуда брать, что куда записывать.
Тогда приложите файл, как выглядит структура данных. По приложенному примеру только один столбец плотностей. Да и потом надо определится что откуда брать, что куда записывать.anvg
Тогда, задача выглядит так 1. в столбце Е со 2-ой строки идут требуемые средние плотности для групп, определяемых в столбце В по порядку (2-ая строка - группа 1, 3-строка группа 2 и т. д.) 2. Найти средние плотности по столбцу С для каждой группы столбца В. 3. Если существует разница с плотностями столбца Е с вычисленными по группам в столбце С, то ввести поправку в значения столбца С для получения требуемой средней плотности в Е Так?
Тогда, задача выглядит так 1. в столбце Е со 2-ой строки идут требуемые средние плотности для групп, определяемых в столбце В по порядку (2-ая строка - группа 1, 3-строка группа 2 и т. д.) 2. Найти средние плотности по столбцу С для каждой группы столбца В. 3. Если существует разница с плотностями столбца Е с вычисленными по группам в столбце С, то ввести поправку в значения столбца С для получения требуемой средней плотности в Е Так?anvg