powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужен человек, готовый ставить задачки по массивам VBA
1 сообщений из 26, страница 2 из 2
Нужен человек, готовый ставить задачки по массивам VBA
    #39621980
194184710311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Казанский194184710311194184710311,
Можно как-то упростить код (сделать так, чтобы при МОЩНОМ заполнении строк и столбцов) просчёт был бы быстрым?Пробуйте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub sumStrStolb()
Dim x As Range
  Set x = Range("A1").CurrentRegion
  With x.Columns(1).Offset(, x.Columns.Count + 1)
    .FormulaR1C1 = Replace("=SUM(RC1:RC#)", "#", x.Columns.Count)
    .Value = .Value
  End With
  With x.Rows(1).Offset(x.Rows.Count + 1)
    .FormulaR1C1 = Replace("=SUM(R1C:R#C)", "#", x.Rows.Count)
    .Value = .Value
  End With
End Sub



Феноменально!
У Вашего кода 1 секунда и готово!
У моего 20 секунд.
И это при заполненных 150 строк*100столбцов.
Ещё интересней то, что с увеличением заполняемости строк и столбцов мой код начинает просчитывать дольше, а Ваш возможно тоже, но там замедление в милисекундах, однако.
Массивы не везде хороши(, тем более когда реализуешь алгоритм запоминания, а потом выплёвывания в нужные ячейки.
Чую меня ещё много ямок и ямищь ждёт, а на подходе новый офис с полюбому новыми функциями...
...
Рейтинг: 0 / 0
1 сообщений из 26, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужен человек, готовый ставить задачки по массивам VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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