Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Определить диапазон формулы массива. / 14 сообщений из 14, страница 1 из 1
17.10.2019, 10:40
    #39877481
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
Есть написанная на VBA функция, которая используется в формуле массива - т.е. она принимает некоторые аргументы и возвращает двумерный массив вариантов. Всё пока обычно.

Есть необходимость улучшить и упростить расчёт - однако для этого необходимо определить, в какой именно диапазон (адрес типа "$A$10:$C$20" вполне достаточен) вводится эта формула массива. Это будет влиять на итоги, а заодно позволит избавиться от #Н/Д, если массив-результат меньше этого диапазона.

Пытался вспомнить, видел ли где - не вспомнил. Пытался искать - всё не то...

Если кто помнит решение - ткните пальцем. Или хотя бы от чего плясать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 10:45
    #39877488
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
конкретики мало, может хоть определение самой функции показать, что за параметры там и как вызов происходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 10:48
    #39877493
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
https://support.office.com/en-us/article/areas-function-8392ba32-7a41-43b3-96b0-3695d2ec6152

AREAS()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 10:50
    #39877495
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
https://support.office.com/en-us/article/hlookup-function-a3034eec-b719-4ba3-bb65-e1ad662ed95f

HLOOKUP()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 10:51
    #39877498
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
https://support.office.com/en-us/article/address-function-d0c26c0d-3991-446b-8de4-ab46431d4f89

ADDRESS()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 11:07
    #39877517
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
Akina,

вроде Application.caller про это - на бегу плохо помню
если только диапазон - должно хватить

попробуй
если не поедет - напиши - вечером поищу скрижали
лет 10 назад где-то что-то использовал, можно поискать...

а если еще "старое значение" в этом месте нужно, то надо по форуму полазить - тогда же мне это надо было и я даже тему заводил.
все прахом в памяти...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 11:09
    #39877522
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
booby,

да, наверно в офисной ветке оно было...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 11:15
    #39877529
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
booby,

точно, для формулы массива -
Debug.Print Application.Caller.Address
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 11:15
    #39877530
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
Konst_Oneконкретики мало, может хоть определение самой функции показать, что за параметры там и как вызов происходитДа чхать на текст функции.

Грубо - есть некая

Код: vbnet
1.
2.
3.
4.
5.
Public Function MyFunc(src As Range) As Variant()
Dim ar As Variant()
' что-то делаем
MyFunc = ar
End Function



Мы на листе выделяем некий диапазон, скажем A10:C20, вводим формулу =MyFunc(A1:B4) и жмём Ctrl-Shift-Enter.

Задача - внутри функции, кодом, получить диапазон "$A$10:$C$20".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 11:29
    #39877553
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
boobyдля формулы массива -
Debug.Print Application.Caller.AddressСпасибо, оно...

Только почему-то под отладкой оно даёт "Error", а без отладки - нормально возвращает адрес. Странно... но буду смотреть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 12:42
    #39877635
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
Akinaboobyдля формулы массива -
Debug.Print Application.Caller.AddressСпасибо, оно...

Только почему-то под отладкой оно даёт "Error", а без отладки - нормально возвращает адрес. Странно... но буду смотреть.
под отладкой Vartype(Application.caller) = 10 и Typename(Application.caller) = "Error"
а тебе нужен
Typename(Application.caller) = "Range"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 13:06
    #39877652
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
booby , хуже - нет стабильности. Под отладкой Typename(Application.caller) то "Range", то "Error" - и я всё никак не могу уловить, от чего это зависит.

А в рантайме всё шоколадно. Приходится отлаживаться через debug.pring и msgbox - не совсем удобно, но и не страшно, не впервой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2019, 14:00
    #39877695
booby
booby
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
Akina,

msgbox не надо - плохо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2019, 21:08
    #39878524
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel. Определить диапазон формулы массива.
Akina booby , хуже - нет стабильности. Под отладкой Typename(Application.caller) то "Range", то "Error" - и я всё никак не могу уловить, от чего это зависит.

Так как функция ожидает, что Application.Caller имеет тип Range, то и при отладке это нужно обеспечить.
Например, так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Test()
  ' Debugging
  Range("A1:B2").FormulaArray = "=MyFunc(C2:D10)"
End Sub

Public Function MyFunc(src As Range) As Variant()
  If TypeName(Application.Caller) = "Range" Then
    Debug.Print Application.Caller.Address
  Else
    '...
  End If
  
  Dim ar() As Variant
  ' что-то делаем
  MyFunc = ar
  
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Excel. Определить диапазон формулы массива. / 14 сообщений из 14, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 409ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2154869]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 271ms
total:  409ms
x
x
Закрыть


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