Sub и Function работают по разному. Почему?

@master-artyom · Регистрация: 12.06.2015

Студворк — интернет-сервис помощи студентам

Уважаемые гуру экселя, не могу понять почему процедура и функция дают разный результат:
Допустим есть один столбец в фильтром. Мне нужны только отфильтрованные строки. Я использую функцию SpecialCells(xlCellTypeVisible).

Вот процедура, которая возвращает корректный результат:

Visual Basic
1
2
3
4
5
6
7
Sub help1()
 
    For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeVisible)
        Debug.Print c
    Next
 
End Sub

Вот точно такая же функция, которая возвращает все значения (не только видимые):

Visual Basic
1
2
3
4
5
6
7
Function help2()
 
    For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeVisible)
        Debug.Print c
    Next
 
End Function

С чем это может быть связано? Приложил файл с примером.
Спасибо!

@master-artyom · 13.12.2018, 10:54 **[ТС]**

Файл с примером.

Остап Бонд · 13.12.2018, 11:04

master-artyom, у меня оба примера выдали одно и тоже-

1
2
4
5

1
2
4
5

@Vlad999 · 13.12.2018, 11:20

Остап Бонд, Если отработать функцию в ячейке С1 и потом зайти в окно Immediate то там 1,2,3,4,5. Если пройти по коду пошагово (не из ячейки) то 1,2,4,5.

@master-artyom · 13.12.2018, 11:24 **[ТС]**

Как такое возможно?

@master-artyom · 13.12.2018, 11:31 **[ТС]**

Сведу вопрос к более простому. На рисунке результат работы функции и процедуры.

@master-artyom · 13.12.2018, 11:46 **[ТС]**

Как сделать так, чтобы функция возвращала корректный результат?

@Vlad999 · 13.12.2018, 13:23

зачем вам именно функция? чем обычный макрос не подходит? Все равно функция по данному коду скорей всего выдает в ячейку не то что нужно.

@master-artyom · 13.12.2018, 13:27 **[ТС]**

Нужна именно функция, которая будет на входе принимать диапазон ячеек, а на выходе выдавать все видимые значения через запятую, как в примере.

@Казанский · 13.12.2018, 14:05

Сообщение от master-artyom

Как сделать так, чтобы функция возвращала корректный результат?

вариант

Visual Basic
1
2
3
4
5
6
7
Function help2(rn As Range) As String
Dim c As Range
  For Each c In rn
    If Not c.EntireRow.Hidden Then help2 = help2 & ", " & c
  Next
  help2 = Mid$(help2, 3)
End Function

Не все свойства и методы работают в функциях листа.

@master-artyom · 13.12.2018, 14:13 **[ТС]**

Большое спасибо! Буду знать.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	13.12.2018, 11:20
	Остап Бонд, Если отработать функцию в ячейке С1 и потом зайти в окно Immediate то там 1,2,3,4,5. Если пройти по коду пошагово (не из ячейки) то 1,2,4,5. 0

@master-artyom 0 / 0 / 0 Регистрация: 12.06.2015 Сообщений: 66
	13.12.2018, 11:24 [ТС]
	Как такое возможно? Миниатюры 0

@master-artyom 0 / 0 / 0 Регистрация: 12.06.2015 Сообщений: 66
	13.12.2018, 11:46 [ТС]
	Как сделать так, чтобы функция возвращала корректный результат? 0

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	13.12.2018, 13:23
	зачем вам именно функция? чем обычный макрос не подходит? Все равно функция по данному коду скорей всего выдает в ячейку не то что нужно. 0

@master-artyom 0 / 0 / 0 Регистрация: 12.06.2015 Сообщений: 66
	13.12.2018, 13:27 [ТС]
	Нужна именно функция, которая будет на входе принимать диапазон ячеек, а на выходе выдавать все видимые значения через запятую, как в примере. 0

@master-artyom 0 / 0 / 0 Регистрация: 12.06.2015 Сообщений: 66
	13.12.2018, 14:13 [ТС]
	Большое спасибо! Буду знать. 0

Sub и Function работают по разному. Почему?

Решение