ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel присвоение значения ячейке в пользовательской функции
12 сообщений из 12, страница 1 из 1
Excel присвоение значения ячейке в пользовательской функции
    #37478041
Stupid_BOT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stupid_BOT
Участник
Доброго здоровья и настроения.

Excel 2003 (11.6355.6360) SP1
На единственном листе книги:
ABCD1=22=23=mega_fail2_(ЯЧЕЙКА("содержимое";A1);ЯЧЕЙКА("содержимое";B1);D1)
Функция определена в стандартном модуле
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Option Explicit
Function mega_fail2_&(ByVal x1&, ByVal x2&, mf As Range)
On Error GoTo FuncErr
    mega_fail2_ = x1 - x2
    mf.Value = x1 + x2

NormExit:
Exit Function

FuncErr:
    MsgBox Err.Source & vbCrLf & Err.Number & vbCrLf & Err.Description
    Resume NormExit
End Function

Больше никаких данных, формул, кода в книге нету. Автопересчет отключен.

При попытке пересчитать лист получаю сообщение
Код: plaintext
1.
2.
3.
VBAProject
 1004 
Application-defined or object-defined error
Значение в [C1] обновляется, в [D1] - нет.

Запускаю в окне отладки
Код: plaintext
1.
?mega_fail2_([A1].value,[B1].value,[D1]) [D1].value
отрабатывает без ошибок, значения в [C1], [D1] обновляются.

Подскажите, кто сколько может, на какие это грабли я наступил.

---------------------------------
Зри в корень! (с) Козьма Прутков
...
Рейтинг: 0 / 0
11.10.2011, 23:56
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478050
Stupid_BOT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stupid_BOT
Участник
Прошу прошения, соврал:
Запускаю в окне отладки
Код: plaintext
1.
?mega_fail2_([A1].value,[B1].value,[D1]) [D1].value
отрабатывает без ошибок, значения в [C1] , [D1] обновляются.[C1] не обновляется, конечно же.
...
Рейтинг: 0 / 0
12.10.2011, 00:03
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478066
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Stupid_BOT, функция вовращает значение туда, откуда вызывается.
А в D1 у Вас нет никакой функции. Ошибку вызывает строка:
mf.Value = x1 + x2, поскольку тут налицо попытка менять ячейку, к которой функция не принадлежит. Так же и с функциями листа. Попробуйте написать формулу в А1, к-рая меняла бы значение в пустой ячейке В1.
...
Рейтинг: 0 / 0
12.10.2011, 00:30
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478071
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Можно так пользоваться(или так же формулами на листе):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Function mega_fail2_&(ByVal x1&, ByVal x2&)
On Error GoTo FuncErr
    mega_fail2_ = x1 - x2
NormExit:
Exit Function

FuncErr:
    MsgBox Err.Source & vbCrLf & Err.Number & vbCrLf & Err.Description
    Resume NormExit
End Function

Public Sub www()
[c1] = mega_fail2_([a1], [b1])
[d1] = mega_fail2_([b1], [a1])
End Sub
...
Рейтинг: 0 / 0
12.10.2011, 00:39
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478110
Stupid_BOT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stupid_BOT
Участник
kuklpStupid_BOT, функция вовращает значение туда, откуда вызывается.
А в D1 у Вас нет никакой функции. Ошибку вызывает строка:
mf.Value = x1 + x2, поскольку тут налицо попытка менять ячейку, к которой функция не принадлежит . Так же и с функциями листа. Попробуйте написать формулу в А1, к-рая меняла бы значение в пустой ячейке В1.
Что вызывает ошибку мне понятно. Для понимания свой обработчик и вставил. Без него Excel при пересчете рисовал сокраментальное #ЗНАЧ! в [C1].
Непонятно почему такое существенное различие при вызовах "из листа" и "из окна отладки".
Ну да Гейтс с ним. Поскольку на данный момент интерес чисто академический.

kuklpМожно так пользоваться(или так же формулами на листе):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function mega_fail2_&(ByVal x1&, ByVal x2&)
On Error GoTo FuncErr
    mega_fail2_ = x1 - x2
' {skipped}
End Function

Public Sub www()
[c1] = mega_fail2_([a1], [b1])
[d1] = mega_fail2_([b1], [a1])
End Sub
Можно. Но, у меня:
Код: plaintext
1.
2.
3.
4.
5.
Function mega_fail2_&(ByVal x1&, ByVal x2&, mf As Range)
On Error GoTo FuncErr
    mega_fail2_ = x1 - x2
    mf.Value = x1 + x2
' {skipped}
Разница существенная.
Разумеется, можно поизвращаться, - добавить функции параметров. Но как-то это не по фен-шую. Имхо, конечно.
...
Рейтинг: 0 / 0
12.10.2011, 03:17
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478240
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
[quot Stupid_BOT]kuklpStupid_BOT, Разница существенная.
Разумеется, можно поизвращаться, - добавить функции параметров. Не надо, это я прозевал(спать хотел).
Код: plaintext
1.
2.
3.
Public Sub www()
    [c1] = mega_fail2_([a1], [b1])
    [d1] = mega_fail2_([b1], -[a1])
End Sub
...
Рейтинг: 0 / 0
12.10.2011, 09:07
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478431
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ИМХО, если функция в модуле, то неплохо бы было сделать её Public...
...
Рейтинг: 0 / 0
12.10.2011, 11:10
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37478706
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Если использовать в коде (а не на листе), то вполне себе работает:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Option Explicit

Sub tt()
Dim x
x = mega_fail2_([A1], [B1], [D1])
End Sub

Function mega_fail2_&(ByVal x1&, ByVal x2&, mf As Range)
On Error GoTo FuncErr
    mega_fail2_ = x1 - x2
    mf.Value = x1 + x2

NormExit:
Exit Function

FuncErr:
    MsgBox Err.Source & vbCrLf & Err.Number & vbCrLf & Err.Description
    Resume NormExit
End Function
...
Рейтинг: 0 / 0
12.10.2011, 13:29
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37479948
Stupid_BOT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stupid_BOT
Участник
AndreTMИМХО, если функция в модуле, то неплохо бы было сделать её Public...Она и так Public ( If not explicitly specified using Public, Private, or Friend, Function procedures are public by default. )

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

Жаль, у меня ещё столько идей было (с)
...
Рейтинг: 0 / 0
13.10.2011, 09:05
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37480118
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
Stupid_BOT,
дык, я это еще в первом ответе написал.
...
Рейтинг: 0 / 0
13.10.2011, 10:45
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37480129
Stupid_BOT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stupid_BOT
Участник
kuklpStupid_BOT,
дык, я это еще в первом ответе написал.Дык, неправда Ваша. В тама Вы только факт констатировали, а не привели аргументированных тынцев на документацию.
...
Рейтинг: 0 / 0
13.10.2011, 10:50
| Ответить | Цитировать | Написать  
Excel присвоение значения ячейке в пользовательской функции
    #37480214
kuklp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kuklp
Гость
kuklpStupid_BOT, функция вовращает значение туда, откуда вызывается.
А в D1 у Вас нет никакой функции. Это что? Я это знаю и пишу об этом. А искать для Вас документацию... Я не библиотекарь, не архивариус:-) Тут уж Вы сами.
...
Рейтинг: 0 / 0
13.10.2011, 11:19
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel присвоение значения ячейке в пользовательской функции
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37478110&tid=2176397]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 56ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 207ms
total:  344ms
созд. / загр.: 344ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]