Здравствуйте, помогите пожалуйста написать скрипт который бы изменял среднее арифметическое значение столбца на заданное путем замены значений в столбце на не сильно отличающиеся от него, спасибо огромное
Здравствуйте, помогите пожалуйста написать скрипт который бы изменял среднее арифметическое значение столбца на заданное путем замены значений в столбце на не сильно отличающиеся от него, спасибо огромноеstargard
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] Тупо добавляет в цикле ко всем значениям по 0,00001, пока не получится требуемое.
[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] Тупо добавляет в цикле ко всем значениям по 0,00001, пока не получится требуемое.SkyPro
skypro1111@gmail.com
Сообщение отредактировал SkyPro - Среда, 11.12.2013, 18:28
спасибо огромное)))) а можно ли этот цикл задать напирмер не на два name а на 1857 ? что бы он сразу видел соответствующие средние и подбивал бы под них ?
спасибо огромное)))) а можно ли этот цикл задать напирмер не на два name а на 1857 ? что бы он сразу видел соответствующие средние и подбивал бы под них ?stargard
подскажите пожалуйста как задать в данном скрипте зависимость не конкретных значений средних значений а местонахождение их ? [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] то есть что бы использовался не 2,78 а например ячейка Е2 ? или ячейки Е2-Е5 поскажите плиз )))
подскажите пожалуйста как задать в данном скрипте зависимость не конкретных значений средних значений а местонахождение их ? [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] то есть что бы использовался не 2,78 а например ячейка Е2 ? или ячейки Е2-Е5 поскажите плиз )))stargard
Сообщение отредактировал Serge_007 - Среда, 11.12.2013, 20:48
1. Для оформления кода есть специальные теги [vba ][ code][ /code][ /vba] 2. Дайте уже файл и нормально опишите, что вы хотите. 3. Форум не чат. + сдесь есть возможность правки своего поста.
1. Для оформления кода есть специальные теги [vba ][ code][ /code][ /vba] 2. Дайте уже файл и нормально опишите, что вы хотите. 3. Форум не чат. + сдесь есть возможность правки своего поста.SkyPro
skypro1111@gmail.com
Сообщение отредактировал SkyPro - Среда, 11.12.2013, 19:26
Помогу прошу (((( вот файл мне нужно что бы каждый столбец с ТС с name 1 сканировался на среднее значение и если оно отличалось бы от ТСaver то его бы среднее значение приравнивалось бы к значению какое должно быть равное ТСaver предыдушим способом, проблема в том что неоходимо задать промежуток сканирования столбцов из 1855 штук ((((
Помогу прошу (((( вот файл мне нужно что бы каждый столбец с ТС с name 1 сканировался на среднее значение и если оно отличалось бы от ТСaver то его бы среднее значение приравнивалось бы к значению какое должно быть равное ТСaver предыдушим способом, проблема в том что неоходимо задать промежуток сканирования столбцов из 1855 штук ((((stargard