Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Функция на ВБА для среднего геометрического
 
#1
31.05.2010 16:14:15
Функция на ВБА для среднего геометрического
 
 
 
#2
31.05.2010 16:29:20
Извините за некорректно созданную тему)))  
Мне нужно создать функцию в VBA выводящую среднее геометрическое из нескольких выбранных чисел Listbox ( В listbox введено 10 чисел)  
Заранее благодарен.
 
 
 
#3
31.05.2010 17:23:05
Как-то так.
KL
 
 
 
#4
31.05.2010 20:55:25
Может не: For i = 0 To 9, а: For i = 1 To 9  
Ну это так, предположение... :)
 
 
 
#5
31.05.2010 21:09:59
Дима, я имел ввиду вот это:  
Private Sub UserForm_Initialize()  
   Dim i As Long  
   For i = 0 To 9  
       ListBox1.AddItem i  
   Next i  
End Sub  
Поменял 0 на 1 - все нормально работает.  
Просто знаю, что СРГЕОМ нули не любит :)
 
 
 
#6
31.05.2010 21:30:23
{quote}{login=The_Prist}{date=31.05.2010 09:12}{thema=Re: }{post}{quote}{login=kim}{date=31.05.2010 09:09}{thema=}{post}Дима, я имел ввиду вот это{/post}{/quote}А-а-а...стар я стал, подслеповат...  
Тады ой :-)  
 
Но предположу, что Кирилл специально воткнул туда 0, чтобы продемонстрировать обход ошибки в формуле.{/post}{/quote}  
Вот честное слово, The_Prist в самую точку попал :-)
KL
 
 
 
#7
31.05.2010 22:54:30
Интересно, оказывается, Application.GeoMean(x) и WorksheetFunction.GeoMean(x)  
не одно и то-же в смысле отлова их ошибок:  
WorksheetFunction обижается на IsError.
 
 
 
Страницы: 1
Читают тему
Наверх