Создание функций листа (Set oFind = SOUR.Rows('19:19').Find(What:='011', MatchCase:=True))

@IgorTr · Регистрация: 01.01.2008

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

Есть как мне казалось безобидный код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function XXX() As Integer
 
Dim oFind, SOUR As Object
Dim x As Integer
 
Set SOUR = Worksheets('Лист1')
Set oFind = Nothing
Set oFind = SOUR.Rows('19:19').Find(What:='011', MatchCase:=True)
If Not (oFind Is Nothing) Then
        x = oFind.Column
    Else
        x = 0
End If
XXX = x
End Function

Но функция '=XXX()' на листе дает 0, хотя там есть то, что она должна найти. Мало того. При отладке в редакторе функция возвращае то, что надо. Во дела! Может кто на эти грабли уже наступал? И в чем они?

02.10.2008, 19:20

У меня твой код работает по-любому. Может, пришлёшь книгу Эксель, с которой это не пашет? Я просто заполнил 19-й ряд какой-то ерундой.

А вообще, с ситуациями, когда по F8 и по F5 получаются разные вещи - я сталкивался. Не помню, как именно, но ни форумы, ни МСДН, ни задержки в коде мне не помогли: пришлось менять код. Вот так вот...

@IgorTr · 05.10.2008, 12:46 **[ТС]**

Обидно, понимаешь... Нифига не работает. Думал может у меня Excel криво стоит? На других машинах тоже самое. Это у меня первая функция, которая не хочет работать на листе. Сейчас попытаюсь книгу тебе отправить. Посмотри, если не в лом. А что такое F8 и F5?

05.10.2008, 13:25

Стоп... оказывается, я тебя недопонял. '... НА ЛИСТЕ ...' - вот главное в твоём топике. Я-то проверил в модуле или в форме - короче, В КОДЕ, а не НА ЛИСТЕ. А это есть две большие разницы!

Что ж, оно и не будет у тебя толком работать. В хелпе можешь прочитать, что 'ЛИСТОВЫЕ' функции Экселя имеют ряд ограничений, в частности, не могут выполнять каких-либо манипуляций с листом. А у тебя используется метод Find, который меняет активную ячейку! Так что твой код - не такой уж и 'безобидный'. Поэтому оно и не работает по F5 (т.е. по 'Пуск'). А вот почему оно, тем не менее, работает (всегда или иногда) по F8 (отладочному прохождению кода по шагам) - сказать не могу: сам называю это 'полтергейстом'.

Должен также отметить, что иногда листовая функция может не работать (или работать, но только в отладке) ДАЖЕ если она не выполняет никаких манипуляций с листом! Например, я написал функцию 'Число прописью': PERSONAL.XLS!PROPIS(cellAddr), - т.е. хранится она у меня в 'Личной книге макросов' и получает на вход адрес ячейки, в которой находится число, которое надо перевести в словесное представление. Ясно, что никаких манипуляций с листом она НЕ ДЕЛАЕТ: просто возвращает строковую величину. Так вот, эта PROPIS() работает у меня 'через раз': запускаю, к примеру, генерацию пяти документов ОДИНАКОВОГО типа - в четырёх из них всё ОК, а в одном - '#ССЫЛКА!'. Или запускаю генерацию одного документа в 15:00 - всё ОК. Запускаю в 17:30 - '#ССЫЛКА!'. Причём в соседней ячейке она работать будет, как миленькая. Прохожу в обоих случаях код в отладке ПО ШАГАМ (по F8) - оно работает (по вторникам; по средам может и не работать :-))).

В общем, что касается Экселевских ЛИСТОВЫХ функций - с ними надо поосторожнее: логики никакой не видно, воспроизводимости ошибок тоже, поэтому... ну их на фиг. В твоём случае - попробуй для начала обойтись без метода Find.

05.10.2008, 13:43

IgorT
У меня была подобная Ж...

Тоже так и не понял в чем дело, думаю Comanche, прав. Поэтому обходи всеми силами сию проблему. Например пуская Find ч/з UserForm

to Comanche
А почему исп-е Find противоречит использованию его на листе? Ведь есть же аналог Find() - Найти().
Другое дело, что он и в самом деле перепозиционирует ячейку и теряет ту ячейку, в которую нужно было занести значение?

05.10.2008, 14:12

2 Tim:
Я точно не помню текст из хелпа, но суть такая: 'так уж устроено, что определённая пользователем функция листа не может того-то и того-то...'. Так что на ваш вопрос 'почему' отвечу словами Майкрософта: 'так уж устроено'.

Я давно уже не пытаюсь найти разумные объяснения тем или иным 'глюкам' софта от МС. Вот ещё пример:

На листе есть таблица, у которой столбцы связаны между собой простейшими формулами, - вроде счёта-фактуры (т.е. всего - порядка дюжины столбцов). Рядов у этой таблицы - тыщи три-четыре. Выделяем таблицу, Copy, идём на другой лист, Edit | Paste Special | Paste link. В итоге в ОДНОЙ ячейке (из тридцати-сорока тысяч) слетает ссылка, причём так, что видно, будто Эксель просто перепутал два соседних столбца. ВЫШЕ в этом столбце с ошибочной ячейкой - всё в порядке, поэтому цепляюсь мышой за чёрный квадратик в нижнем правом углу контура ячейки (расположенной НАД ошибочной) и тяну вниз, чтобы 'размножить' формулу. НЕ ВЫХОДИТ!!! Т.е. всё равно в ячейке - лажа. Окей, говорю себе, скопирую таблицу по частям, - может, Эксель просто давится большим куском данных? Копирую первую половину, содержащую ту самую ячейку, - всё чудненько. Копирую рядышком вторую половину - моментом 'слетает' та самая ячейка из первой половины. И КАК ЭТО Г..О ПОНИМАТЬ?!

@IgorTr · 05.10.2008, 14:37 **[ТС]**

2Comanche
Для перевода чисел в текст могу поделиться XLL файлом. Вредности я за ним не замечал. А вот про .Find. Тут я хотел время сжать. А оно этого не любит. Имеет свойство разжиматься и со страшной силой ... По всей видимости придется использовать перебор ячеек для такой функции. К тому же мне надо брать данные с неактивного листа.
Если нужен XLL отмылю.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Comanche
	02.10.2008, 19:20
	У меня твой код работает по-любому. Может, пришлёшь книгу Эксель, с которой это не пашет? Я просто заполнил 19-й ряд какой-то ерундой. А вообще, с ситуациями, когда по F8 и по F5 получаются разные вещи - я сталкивался. Не помню, как именно, но ни форумы, ни МСДН, ни задержки в коде мне не помогли: пришлось менять код. Вот так вот...

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	05.10.2008, 12:46 [ТС]
	Обидно, понимаешь... Нифига не работает. Думал может у меня Excel криво стоит? На других машинах тоже самое. Это у меня первая функция, которая не хочет работать на листе. Сейчас попытаюсь книгу тебе отправить. Посмотри, если не в лом. А что такое F8 и F5? 0

Comanche
	05.10.2008, 13:25
	Стоп... оказывается, я тебя недопонял. '... НА ЛИСТЕ ...' - вот главное в твоём топике. Я-то проверил в модуле или в форме - короче, В КОДЕ, а не НА ЛИСТЕ. А это есть две большие разницы! Что ж, оно и не будет у тебя толком работать. В хелпе можешь прочитать, что 'ЛИСТОВЫЕ' функции Экселя имеют ряд ограничений, в частности, не могут выполнять каких-либо манипуляций с листом. А у тебя используется метод Find, который меняет активную ячейку! Так что твой код - не такой уж и 'безобидный'. Поэтому оно и не работает по F5 (т.е. по 'Пуск'). А вот почему оно, тем не менее, работает (всегда или иногда) по F8 (отладочному прохождению кода по шагам) - сказать не могу: сам называю это 'полтергейстом'. Должен также отметить, что иногда листовая функция может не работать (или работать, но только в отладке) ДАЖЕ если она не выполняет никаких манипуляций с листом! Например, я написал функцию 'Число прописью': PERSONAL.XLS!PROPIS(cellAddr), - т.е. хранится она у меня в 'Личной книге макросов' и получает на вход адрес ячейки, в которой находится число, которое надо перевести в словесное представление. Ясно, что никаких манипуляций с листом она НЕ ДЕЛАЕТ: просто возвращает строковую величину. Так вот, эта PROPIS() работает у меня 'через раз': запускаю, к примеру, генерацию пяти документов ОДИНАКОВОГО типа - в четырёх из них всё ОК, а в одном - '#ССЫЛКА!'. Или запускаю генерацию одного документа в 15:00 - всё ОК. Запускаю в 17:30 - '#ССЫЛКА!'. Причём в соседней ячейке она работать будет, как миленькая. Прохожу в обоих случаях код в отладке ПО ШАГАМ (по F8) - оно работает (по вторникам; по средам может и не работать :-))). В общем, что касается Экселевских ЛИСТОВЫХ функций - с ними надо поосторожнее: логики никакой не видно, воспроизводимости ошибок тоже, поэтому... ну их на фиг. В твоём случае - попробуй для начала обойтись без метода Find.

Tim
	05.10.2008, 13:43
	IgorT У меня была подобная Ж... Тоже так и не понял в чем дело, думаю Comanche, прав. Поэтому обходи всеми силами сию проблему. Например пуская Find ч/з UserForm to Comanche А почему исп-е Find противоречит использованию его на листе? Ведь есть же аналог Find() - Найти(). Другое дело, что он и в самом деле перепозиционирует ячейку и теряет ту ячейку, в которую нужно было занести значение?

Comanche
	05.10.2008, 14:12
	2 Tim: Я точно не помню текст из хелпа, но суть такая: 'так уж устроено, что определённая пользователем функция листа не может того-то и того-то...'. Так что на ваш вопрос 'почему' отвечу словами Майкрософта: 'так уж устроено'. Я давно уже не пытаюсь найти разумные объяснения тем или иным 'глюкам' софта от МС. Вот ещё пример: На листе есть таблица, у которой столбцы связаны между собой простейшими формулами, - вроде счёта-фактуры (т.е. всего - порядка дюжины столбцов). Рядов у этой таблицы - тыщи три-четыре. Выделяем таблицу, Copy, идём на другой лист, Edit \| Paste Special \| Paste link. В итоге в ОДНОЙ ячейке (из тридцати-сорока тысяч) слетает ссылка, причём так, что видно, будто Эксель просто перепутал два соседних столбца. ВЫШЕ в этом столбце с ошибочной ячейкой - всё в порядке, поэтому цепляюсь мышой за чёрный квадратик в нижнем правом углу контура ячейки (расположенной НАД ошибочной) и тяну вниз, чтобы 'размножить' формулу. НЕ ВЫХОДИТ!!! Т.е. всё равно в ячейке - лажа. Окей, говорю себе, скопирую таблицу по частям, - может, Эксель просто давится большим куском данных? Копирую первую половину, содержащую ту самую ячейку, - всё чудненько. Копирую рядышком вторую половину - моментом 'слетает' та самая ячейка из первой половины. И КАК ЭТО Г..О ПОНИМАТЬ?!

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	05.10.2008, 14:37 [ТС]
	2Comanche Для перевода чисел в текст могу поделиться XLL файлом. Вредности я за ним не замечал. А вот про .Find. Тут я хотел время сжать. А оно этого не любит. Имеет свойство разжиматься и со страшной силой ... По всей видимости придется использовать перебор ячеек для такой функции. К тому же мне надо брать данные с неактивного листа. Если нужен XLL отмылю. 0