Ускорение Udf / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ускорение Udf

23 сообщений из 23, страница 1 из 1

Ускорение Udf

#39693683

maxim863

Гость

Есть UDF , которая работает хорошо , но медленно .
Я знаю как ускорять Sub :
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Подойдет ли это для Function ?
Если нет , то как ускорить Udf ?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Function Fav(Diapozon As Range) As Long
Application.Volatile

Dim n As Long

For x = 1 To 4
   For y = 0 To 1
   
     If Diapozon.Value = Cells(31, 3).Value Then
      n = 0
      Exit For
     End If
     
       If Diapozon.Value = Cells(x + 29, y + 10).Value Or Diapozon.Offset(0, 1).Value = Cells(x + 29, y + 10).Value Then
          n = 1
       End If
       
   Next y
Next x

Fav = n

End Function

...

Рейтинг:

0 / 0

27.08.2018, 13:27

| Ответить | Цитировать | Написать

Ускорение Udf

#39693695

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

В данном случае можно ускорить, если забрать в один прием нужные данные в массив и обрабатывать там, а не дергать Cells в цикле.

Кроме того, если хорошо подумать, то тоже можно ускорить.
Например результат вот этого условия как-то изменится, если проверить его 8 раз вместо одного?
maxim863

Код: vbnet

If Diapozon.Value = Cells(31, 3).Value Then

...

Рейтинг:

0 / 0

27.08.2018, 13:35

| Ответить | Цитировать | Написать

Ускорение Udf

#39693697

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Сам Diapozon.Value нужно тоже присвоить переменной, а не дергать его с листа каждый раз.
Любое обращение к листу работает медленно, количество обращений нужно сводить к минимуму

...

Рейтинг:

0 / 0

27.08.2018, 13:39

| Ответить | Цитировать | Написать

Ускорение Udf

#39693853

ldfanate

Участник

Сообщения: 269

Рейтинг: 0 / 0

1) поднять выше цикла - зачем крутить 4х2=8 раз одну и ту же статичную проверку?
If Diapozon.Value = Cells(31, 3).Value Then
n = 0
Exit For
End If

2) неэффективный (медленный) поячеечный поиск совпадения в цикле - заменить на два программных вызова функции рабочего листа ЕОШИБКА(ПОИСКПОЗ)
If Diapozon.Value = Cells(x + 29, y + 10).Value Or Diapozon.Offset(0, 1).Value = Cells(x + 29, y + 10).Value Then
n = 1
End If

3) отказаться от программной функции рабочего листа, и пп.1-2 реализовать в виде обычных формул на листе - это самый быстрый по скорости способ.

...

Рейтинг:

0 / 0

27.08.2018, 16:58

| Ответить | Цитировать | Написать

Ускорение Udf

#39693856

ldfanate

Участник

Сообщения: 269

Рейтинг: 0 / 0

кстати cells в вашем алгоритме берётся с активного листа - т.е. на двух соседних листах формула работать будет по разному, и при переключении между листами тоже.
это так и задумано?

м.б. всётаки надо Diapozon.parent.cells( ... ) везде - чтобы подсчёт в формуле шёл ровно по тому листу, на котором ваш Diapozon ?

...

Рейтинг:

0 / 0

27.08.2018, 17:02

| Ответить | Цитировать | Написать

Ускорение Udf

#39693920

Казанский

Гость

предлагал уже...
21649253

...

Рейтинг:

0 / 0

27.08.2018, 19:09

| Ответить | Цитировать | Написать

Ускорение Udf

#39694153

maxim863

Гость

ldfanate,
Это специально , потому что у меня 14 листов с этой функцией . Каждый лист должен вычисляться отдельно .

...

Рейтинг:

0 / 0

28.08.2018, 11:03

| Ответить | Цитировать | Написать

Ускорение Udf

#39694155

maxim863

Гость

Казанский,
Спасибо , так и сделаю

...

Рейтинг:

0 / 0

28.08.2018, 11:04

| Ответить | Цитировать | Написать

Ускорение Udf

#39694432

ldfanate

Участник

Сообщения: 269

Рейтинг: 0 / 0

авторЭто специально , потому что у меня 14 листов с этой функцией . Каждый лист должен вычисляться отдельно.

Так в итоге все 14 листов будут вычисляться ровно по тому единственному листу, на котором ты в данный момент стоишь.

Просто ты не видишь содержимое неактивных листов, но они всёравно пересчитаются. Стяни формулами результат с тех 14ти листов на 1 лист (или окна в экселе расположи "плиткой" чтобы сразу несколько листов видеть), - и увидишь, что формула на всех 14ти посчитает чёрти-что, т.к. Cells.value будут все с текущего листа (ActiveSheet) браться.

Если хочешь чтобы каждая считала по тому листу, который подставляется во входной параметр Diapazon, нужно именно явно указывать Diapozon.parent.cells(...).value.

...

Рейтинг:

0 / 0

28.08.2018, 15:53

| Ответить | Цитировать | Написать

Ускорение Udf

#39694786

maxim863

Гость

ldfanate,
Так я же специально для этого использую

Код: vbnet

Application.Volatile

...

Рейтинг:

0 / 0

29.08.2018, 11:26

| Ответить | Цитировать | Написать

Ускорение Udf

#39694791

iMrTidy

Участник

Сообщения: 775

Рейтинг: 0 / 0

maxim863ldfanate,
Так я же специально для этого использую

Код: vbnet

Application.Volatile

Прочитайте внимательно, что Вам пишут.

...

Рейтинг:

0 / 0

29.08.2018, 11:29

| Ответить | Цитировать | Написать

Ускорение Udf

#39694829

maxim863

Гость

iMrTidy,
Стоп ! Я не то написал . Конкретно эту функцию я использовать не буду , ее заменю функциями Excel . Но у меня есть 2 проги , работающие по тому же принципу . И они вроде норм работают .

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Function дляппр15(Diapozon As Range) As Long
'для ситуации
Application.Volatile
Dim n As Long
Dim C As Range
Dim m As Long
Dim ws As Worksheet

Set ws = Application.Caller.Worksheet

m = -1
n = 0
For Each C In Diapozon.Rows

If C.Value = 1 Then
m = m + 1
   If ws.Cells(101, 42 + (m * 21)).Value = 1 And C.Offset(0, 1).Value = 1 Then
     n = n + 1
   End If
End If
Next C

дляппр15 = n
End Function

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Function дляппр15(Diapozon As Range) As Long
'для ситуации
Application.Volatile
Dim n As Long
Dim C As Range
Dim m As Long

n = 0
For Each C In Diapozon.Rows

   If C.Value = 1 And C.Offset(0, 1).Value = 1 Then
     n = n + 1
   End If

Next C

дляппр15 = n
End Function

...

Рейтинг:

0 / 0

29.08.2018, 11:53

| Ответить | Цитировать | Написать

Ускорение Udf

#39694839

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

maxim863по тому же принципупо какому по тому же? сравниmaxim863

Код: vbnet

Cells(31, 3).Value

maxim863

Код: vbnet

ws.Cells(101, 42 + (m * 21)).Value

...

Рейтинг:

0 / 0

29.08.2018, 12:01

| Ответить | Цитировать | Написать

Ускорение Udf

#39694852

maxim863

Гость

Shocker.Pro,
в этой я не сомневаюсь . А вот во второй ,после ваших замечаний , начинаю сомневаться .

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Function дляппр15(Diapozon As Range) As Long
'для ситуации
Application.Volatile
Dim n As Long
Dim C As Range
Dim m As Long

n = 0
For Each C In Diapozon.Rows

   If C.Value = 1 And C.Offset(0, 1).Value = 1 Then
     n = n + 1
   End If

Next C

дляппр15 = n
End Function

...

Рейтинг:

0 / 0

29.08.2018, 12:11

| Ответить | Цитировать | Написать

Ускорение Udf

#39694854

maxim863

Гость

Shocker.Pro,
По одинаковому принципу-на каждом листе Udf

...

Рейтинг:

0 / 0

29.08.2018, 12:12

| Ответить | Цитировать | Написать

Ускорение Udf

#39694881

iMrTidy

Участник

Сообщения: 775

Рейтинг: 0 / 0

maxim863Shocker.Pro,
По одинаковому принципу-на каждом листе Udf

Если внимательно перечитать весь топик, то можно найти ответы на Ваши вопросы и даже больше.

...

Рейтинг:

0 / 0

29.08.2018, 12:39

| Ответить | Цитировать | Написать

Ускорение Udf

#39694884

maxim863

Гость

iMrTidy,
А если не перечитывать ?

...

Рейтинг:

0 / 0

29.08.2018, 12:44

| Ответить | Цитировать | Написать

Ускорение Udf

#39694890

iMrTidy

Участник

Сообщения: 775

Рейтинг: 0 / 0

maxim863iMrTidy,
А если не перечитывать ?

Полагаю, если нет желания перечитывать, то не стоило и просить о помощи.

...

Рейтинг:

0 / 0

29.08.2018, 12:54

| Ответить | Цитировать | Написать

Ускорение Udf

#39694896

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

maxim863в этой я не сомневаюсьв этой всё делается относительно Diapozon, следовательно лист будет нужный.

и, блин, "диапАзон"!!!!
у меня уже глаз выпал это читать которую неделю

...

Рейтинг:

0 / 0

29.08.2018, 12:59

| Ответить | Цитировать | Написать

Ускорение Udf

#39694897

maxim863

Гость

iMrTidy,
Никакой просьбы и не было

...

Рейтинг:

0 / 0

29.08.2018, 13:00

| Ответить | Цитировать | Написать

Ускорение Udf

#39694909

iMrTidy

Участник

Сообщения: 775

Рейтинг: 0 / 0

maxim863iMrTidy,
Никакой просьбы и не было

Так Вы сюда пишете "так поговорить"?

maxim863Подойдет ли это для Function ?
Если нет , то как ускорить Udf ?
Т.е. вот это просьбой о помощи не считается?

...

Рейтинг:

0 / 0

29.08.2018, 13:16

| Ответить | Цитировать | Написать

Ускорение Udf

#39695373

maxim863

Гость

iMrTidy,
В этом топике был только один адекватный ответ ,который я и использовал (большое спасибо автору)
Все остальное - переливание воды , в основном исходящее от вас
И просьбу от вопроса вы отличить ,видимо, не в состоянии

...

Рейтинг:

0 / 0

30.08.2018, 10:26

| Ответить | Цитировать | Написать

Ускорение Udf

#39695381

iMrTidy

Участник

Сообщения: 775

Рейтинг: 0 / 0

maxim863iMrTidy,
В этом топике был только один адекватный ответ ,который я и использовал (большое спасибо автору)
Все остальное - переливание воды , в основном исходящее от вас
И просьбу от вопроса вы отличить ,видимо, не в состоянии

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

...

Рейтинг:

0 / 0

30.08.2018, 10:39

| Ответить | Цитировать | Написать

23 сообщений из 23, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ускорение Udf

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39694791&tid=2155015]:	0ms
get settings:	9ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	38ms
get topic data:	12ms
get forum data:	3ms
get page messages:	66ms
get tp. blocked users:	1ms
others:	283ms

total:	436ms