Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ускорение работы макроса - Страница 3 - Мир MS Excel

Старая форма входа
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ускорение работы макроса (Макросы/Sub)
Ускорение работы макроса
ZamoK Дата: Пятница, 04.09.2015, 09:05 | Сообщение № 41
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация: 4 ±
Замечаний: 0% ±

Excel 2003-2016
SLAVICK, В вашем примере имеет место небольшая "заковырка" т.е. если узел в количественном отношении число дробное, оно и отображается дробным, но разузловывается округлённым до целого, можно ли поправить сие недоразумение
К сообщению приложен файл: 4545.xlsm (97.2 Kb)

Я не Гуру, но стремлюсь!
 
Ответить
СообщениеSLAVICK, В вашем примере имеет место небольшая "заковырка" т.е. если узел в количественном отношении число дробное, оно и отображается дробным, но разузловывается округлённым до целого, можно ли поправить сие недоразумение
Автор - ZamoK
Дата добавления - 04.09.2015 в 09:05
SLAVICK Дата: Пятница, 04.09.2015, 09:20 | Сообщение № 42
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Замените
[vba]
Код
Sub ertert(d As Dictionary, ByVal t As String, ByVal k As Long)
на
Sub ertert(d As Dictionary, ByVal t As String, ByVal k As Double)
[/vba]
<_<
К сообщению приложен файл: 1814147.xlsm (98.1 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеЗамените
[vba]
Код
Sub ertert(d As Dictionary, ByVal t As String, ByVal k As Long)
на
Sub ertert(d As Dictionary, ByVal t As String, ByVal k As Double)
[/vba]
<_<
Автор - SLAVICK
Дата добавления - 04.09.2015 в 09:20
ZamoK Дата: Пятница, 04.09.2015, 10:39 | Сообщение № 43
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация: 4 ±
Замечаний: 0% ±

Excel 2003-2016
SLAVICK, Спасибо все отлично!

Я не Гуру, но стремлюсь!
 
Ответить
СообщениеSLAVICK, Спасибо все отлично!
Автор - ZamoK
Дата добавления - 04.09.2015 в 10:39
ZamoK Дата: Пятница, 04.09.2015, 10:46 | Сообщение № 44
Группа: Проверенные
Ранг: Обитатель
Сообщений: 268
Репутация: 4 ±
Замечаний: 0% ±

Excel 2003-2016
SLAVICK, А почему сортировка по столбцу В в результате работает без учета двух строк снизу?
К сообщению приложен файл: 0015745.xlsm (97.3 Kb)

Я не Гуру, но стремлюсь!

Сообщение отредактировал ZamoK - Пятница, 04.09.2015, 10:49
 
Ответить
СообщениеSLAVICK, А почему сортировка по столбцу В в результате работает без учета двух строк снизу?
Автор - ZamoK
Дата добавления - 04.09.2015 в 10:46
SLAVICK Дата: Пятница, 04.09.2015, 11:33 | Сообщение № 45
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Потому что n = к-во элементов, а сортировка происходит не с 1-й строки а с 3-й.
Код
3-1=2
:D
Поэтому добавьте после выгрузки массива:
[vba]
Код
n = n + 2
или   
n = .Cells(Rows.Count, 2).End(xlUp).Row' Просчет последней заполненной ячейки в 2-м столбце
[/vba]
B)
К сообщению приложен файл: 4049585.xlsm (96.2 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 04.09.2015, 11:34
 
Ответить
СообщениеПотому что n = к-во элементов, а сортировка происходит не с 1-й строки а с 3-й.
Код
3-1=2
:D
Поэтому добавьте после выгрузки массива:
[vba]
Код
n = n + 2
или   
n = .Cells(Rows.Count, 2).End(xlUp).Row' Просчет последней заполненной ячейки в 2-м столбце
[/vba]
B)
Автор - SLAVICK
Дата добавления - 04.09.2015 в 11:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Ускорение работы макроса (Макросы/Sub)
  • Страница 3 из 3
  • «
  • 1
  • 2
  • 3
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!