ub 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
в файле есть графа ТСaver там среднее значения которые должны быть у каждого столбца ТС. например для 2,52 по ТСaver среднее значение тс которое находиться рядом с name 1 должно быть тоже 2,52, второе значение ТСaver 2.55 для столбца ТС напротив name 2 должно тоже быть 2,55(сред знач) и так далее
ub 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
в файле есть графа ТСaver там среднее значения которые должны быть у каждого столбца ТС. например для 2,52 по ТСaver среднее значение тс которое находиться рядом с name 1 должно быть тоже 2,52, второе значение ТСaver 2.55 для столбца ТС напротив name 2 должно тоже быть 2,55(сред знач) и так далееsesik
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
