задание аргумента функции, вызываемой из процедуры...

[noxs]

Привет всем.

Нужно:

в vbe написать процедуру

Код: Выделить всё

s()

которая вызывает функцию

Код: Выделить всё

f(R as Range)

Предполагаемое использование:

пользователь на данном листе выделяет одну активную ячейку (в нее будет записан результат работы процедуры), нажимает alt+f8 (вызов процедуры), после вызова процедуры пользователю должна быть предоставлена возможность задать

Код: Выделить всё

R

(прямоугольная матрица)--аргумент функции

Код: Выделить всё

f

Вопрос:

как пользователю предоставить возможность задать прямоугольную матрицу?

например, можно ли вызвать менюшку задания аргумента функции, которая появляется при вызове любой встроенной excel-вской функции?

надеюсь мой вопрос понятно сформулирован, спасибо

[GSerg]

Вообще, диалог с юзером осуществляется через UserForm. Но раз аргумент единственный, то тогда пусть юзер сначала выделяет диапазон на листе, а потом вызывает макрос s:

Код: Выделить всё

sub s()
  f selection
end sub

sub f(byval r as excel.range)
  'чего-то делаем с R
end sub

[noxs]

Вообще, диалог с юзером осуществляется через UserForm. Но раз аргумент единственный, то тогда пусть юзер сначала выделяет диапазон на листе, а потом вызывает макрос

ответ понятен, спасибо,
правда не ясна вот эта строчка

Код: Выделить всё

  f selection

ОДНАКО:

предполагалось, что пользователь выбирает ячейку, в которой будет впоследствие отображен результат работы процедуры (в процедуре это может быть реализовано например через ActiveCell), но если он после этого будет задавать аргумент функции через Selection, то ячейка, в которую будет сохраняться результат работы процедуры уже не будет активной.

Есть еще идеи? Или я чего-то не поняла?

[GSerg]

f selection - это вызов процедуры F с параметром Selection

Если нужно результат помещать в одну ячейку, а аргумент диапазонный, то не проще ли написать единственную функцию F(byval r as excel.range), а вызывать её как встроенную функцию листа?

[noxs]

Если нужно результат помещать в одну ячейку, а аргумент диапазонный, то не проще ли написать единственную функцию F(byval r as excel.range), а вызывать её как встроенную функцию листа?

к сожалению нет, поскольку мне нужно в зависимости от значения функции раскрашивать это значение в разные цвета , а функция не может изменять ячейку

[RayShade]

Да ну, неужели не может? А как же доступ через Sheet.Cells(i,j)?

[noxs]

Да ну, неужели не может? А как же доступ через Sheet.Cells(i,j)?

сорри, за мою неграмотность в vb, я только учусь и все свои знания беру из статей msdn и многочисленных форумов

нельзя ли привести коротенький, но полный пример функции, подтверждающий ваш ответ?

[GSerg]

А формат-условное форматирование не подходит?
2 RayShade: функциям листа запрещено менять лист

[noxs]

А формат-условное форматирование не подходит?

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

код говорит лучше всяких объяснений

[GSerg]

Поясняю наглядно
Код: