Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Операторы процедуры Добавлено: 09.06.13 21:45  

Автор вопроса:  nahanya
В книге Excel (книга запаролена)нужно вычислить количество нечетных положительных чисел в диапазоне K10:N14. Результат процедура должна вернуть в ячейку B1.
Подскажите кто знает!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
  Профиль | | #1 Добавлено: 10.06.13 03:04
Процедура не возвращает никаких значений, это может сделать функция.
Вариант 1: Сделать пользовательскую функцию, которая принимает в качестве параметра диапазон значений и возвращает результат (в ту ячейку, в которую будет прописана функция).
Вариант 2: Сделать процедуру с жестко заданными критерием диапазона и ячейкой, в которую нужно вернуть результат.

Ответить

Номер ответа: 2
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
  Профиль | | #2 Добавлено: 10.06.13 03:20
Пример пользовательской функции:
  1. Public Function MySumm1(R As Range) As Integer
  2. Dim item, summ: summ = 0
  3. For Each item In R
  4.     If (item > 0 And (item Mod 2 = 1)) Then summ = summ + item
  5. Next
  6. MySumm = summ
  7. End Function

Пример процедуры:
  1. Sub MySumm2()
  2. Dim R, out
  3. Set R = Range("K10:N14")
  4. Set out = Range("B1")
  5. Dim item, summ
  6.  
  7. For Each item In R
  8.     If (item > 0 And (item Mod 2 = 1)) Then summ = summ + item
  9. Next
  10. out.Value = summ
  11.  
  12. End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам