 |
|
Модераторы: mihanik |
 
|
|
Ошибка в значении функции VBA 
| annet2 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 10.11.2013 Репутация: нет Всего: нет |
Здравствуйте!
Прошу помочь разобраться с ошибкой. Есть код функции, которая считает количество ненулевых элементов в одномерном массиве. Однако когда в экселе выделяешь,например, в качестве входных данных столбец из 3 значений, то выдается ошибка в значении. Function Q(X As Variant) As Double Dim i, n As Integer n = Х.Columns.Count Q = 0 For i = 1 To n If X(i) > 0 Then Q = Q + 1 Next i End Function |
|||
|
||||
Загрузка ...
| Akina |
|
|||
|
Советчик  Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 26 Всего: 454 |
NZ()
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| annet2 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 10.11.2013 Репутация: нет Всего: нет |
Akina,спасибо,я на самом деле новичок в vba, поэтому прошу помочь разобраться в сути проблемы...где логически допущена ошибка.
|
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 26 Всего: 454 |
Вот тут, в сравнении:
X(i) > 0 Не любое значение можно сравнивать с нулём. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
|
|
| Правила форума "Программирование, связанное с MS Office" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
[ Время генерации скрипта: 0.0440 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |