Архив форумов ЦИТФорума

[Получайник]

Пытался написать пользовательскую функцию для MS Excel. Взял почти учебный пример из сети (заменил лишь названия листа). Функция вместо 'ok' выдает ошибку #ЗНАЧ!.

1| Function check()
2| If ActiveSheet.Cells(1, 1).Value = 1 Then
3| check = "position checked"
4| Else
5| ActiveSheet.Cells(1, 1).Value = 5
6| check = "misplaced"
7| End If
8| End Function

Причем, если пятую строчку сделать комментарием, то все работает. Что в ней может быть не так, ума не приложу. Буду очень благодарен, если мне кто-нибудь поможет. Спасибо.

[Гость]

Слушай может скажешь где брал учебный прмиер.
И вообще какие ссылки знаешь по доке VBA?

[Получайник]

Пример брал на каком-то сайте. Точно не помню адрес - там больше ничего не было. Ссылками я тоже не богат. Все, что есть:
1. http://www.dicks-blog.com/ - сайт только по Excel'ю, как я понял.
2. http://www.firststeps.ru/vba/excel/ - VBA для начинающих, тоже ориентирован на Excel, хотя очень толковый, мне понравился.
3. http://www.vertex42.com - тоже по Excel'ю.

Извиняй, что все ссылки узконапраленные - я их искал для решения конкретной проблемы. А до того я бейсиком не интересовался, так что ничего не накопилось.
Удачи.

[wildwind]

Странно. Вроде работает (Excel 2000). А где должно выдаваться "ok"?

[Гость]

[Получайник]

Мне тут сказали, что якобы пользовательские функции не могут менять содержание таблицы. Поверить не могу. Печально, если это не ошибка.

wildwind
'ok' должно выдаваться в ячейке, где прописывается функция, а вот '5' должна появляться в "посторонней" ячейке.

Гость
Насчет ActiveSheet, пробовал прописывать название листа - то же самое.

[wildwind]

Подозреваю, что дело в том, что из функции нельзя менять данные на листе. Это раз. Потом, так как в ячейке стоит "=check()", то Excel не видит зависимости функции от данных в A1 и не вызывает функцию при вводе новых данных. Поэтому функция должна проверять значение не ячейки, а переданного ей аргумента. Если сделать так:

[Борис]

Кто виноват?
В программе всё нормально в предположении, что в соответствующей ячейке (ActiveSheet.Cells(1,1)) действительно стоит число, а не строка. Бывает, что в ячейку вставят "1 " (единицу с пробелом), что похоже на просто 1, соответственно сравнение с числом не проходит.

Что делать?
Используя дебаггер, найти, в какой строке возникает ошибка. Вероятней всего, она в строке if... То есть ошибочна не строка, а предположение, что в ячейке строго число один. Для исправления можно вместо сравнения с единицей использовать универсальную функцию преобразования любого типа в число (найти в хелпе).

PS Получил положительный заряд, когда смеялся над тем, что "функции нельзя менять данные на листе". Если бы это было так, тогда зачем вообще VBA?
[/b]

[Борис]

В данном же конкретном случае ошибка может возникать, если на листе ставится формула =check(), так как она изменяет *саму* *проверяемую* *ячейку*, то есть происходит зацикливание (если же просто прогнать функцию в тестовом проходе, то есть однократно, то она отработает нормально). Для исправления можно вместо 5| ActiveSheet.Cells(1, 1).Value = 5 написать, например, 5| ActiveSheet.Cells(1, 2).Value = 5

[wildwind]

Борис
Ты бы хоть потрудился проверить, прежде чем смеяться. А еще лучше нашел бы точную причину ошибки, а не просто "из общих соображений". Человеку нужна конкретная помощь. А рассуждать мы все умеем.

Что может быть некорректного в том, что функция проверяет ячейку, а потом изменяет ее? Какие нафиг зацикливания, если явной зависимости нет.

[Борис]