powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ограничение аргумента Multiple Range, как решить?
3 сообщений из 3, страница 1 из 1
Ограничение аргумента Multiple Range, как решить?
    #36508471
МавДи
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как можно сделать?

Код: plaintext
1.
2.
3.
Sql = "B8:J8,B10:J10,B12:J12,B14:J14,B16:J16,B18:J18,B20:J20,B22:J22,B24:J24,B26:J26,B28:J28,B30:J30,B32:J32,B34:J34,B36:J36,B38:J38,B40:J40,B42:J42,B44:J44,B46:J46,B48:J48,B51:J51,B53:J53,B55:J55,B58:J58,B60:J60,B62:J62,B64:J64,B66:J66,B68:J68,B71:J71,B75:J75,B78:J78,B80:J80,B82:J82,B84:J84,B86:J86,B88:J88,B90:J90,B92:J92,B94:J94,B96:J96,B98:J98,B100:J100,B102:J102,B104:J104,B107:J107,B109:J109,B112:J112,B114:J114,B118:J118,B121:J121,B123:J123,B125:J125,B127:J127,B129:J129,B131:J131,B133:J133,B135:J135,B137:J137,B139:J139,B142:J142,B144:J144,B146:J146,B148:J148,B150:J150,B154:J154,B157:J157,B159:J159,B161:J161,B163:J163,B166:J166,B170:J170,B174:J174,B176:J176,B178:J178,B180:J180,B182:J182,B184:J184,B186:J186,B188:J188,B190:J190,B192:J192,B194:J194,B196:J196,B198:J198,B201:J201,B203:J203"
Set rng=ActiveSheet.Range(Sql)


По моим наблюдениям длина аргумента не может превышать 256 символов, у меня больше в несколько раз, можно ли как то помочь моему горю?
...
Рейтинг: 0 / 0
Ограничение аргумента Multiple Range, как решить?
    #36509519
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
МавДи,

если я не ошибаюсь проблема не в длине аргумента а в длине "заховаемых" Range-м диапазонов. Он больше 30 кажись не ест. По крайней мере формулы Excel имеют ограничение в 30 диапазонов перечислением.
...
Рейтинг: 0 / 0
Ограничение аргумента Multiple Range, как решить?
    #36509835
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Строка адреса в Range("Адрес") не должна быть длинее 255 символов.
Разбейте на части и объедините с помощью Union()
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub TEST()
  Sql = "B8:J8,B10:J10,B12:J12,B14:J14,B16:J16,B18:J18,B20:J20,B22:J22,B24:J24,B26:J26,B28:J28,B30:J30,B32:J32,B34:J34,B36:J36,B38:J38,B40:J40,B42:J42,B44:J44,B46:J46,B48:J48,B51:J51,B53:J53,B55:J55,B58:J58,B60:J60,B62:J62,B64:J64,B66:J66,B68:J68,B71:J71,B75:J75,B78:J78,B80:J80,B82:J82,B84:J84,B86:J86,B88:J88,B90:J90,B92:J92,B94:J94,B96:J96,B98:J98,B100:J100,B102:J102,B104:J104,B107:J107,B109:J109,B112:J112,B114:J114,B118:J118,B121:J121,B123:J123,B125:J125,B127:J127,B129:J129,B131:J131,B133:J133,B135:J135,B137:J137,B139:J139,B142:J142,B144:J144,B146:J146,B148:J148,B150:J150,B154:J154,B157:J157,B159:J159,B161:J161,B163:J163,B166:J166,B170:J170,B174:J174,B176:J176,B178:J178,B180:J180,B182:J182,B184:J184,B186:J186,B188:J188,B190:J190,B192:J192,B194:J194,B196:J196,B198:J198,B201:J201,B203:J203"
  Set Rng = Range(Mid(Sql,  1 ,  253 ))
  Set Rng = Union(Rng, Range(Mid(Sql,  255 ,  247 )))
  Set Rng = Union(Rng, Range(Mid(Sql,  503 ,  249 )))
  Set Rng = Union(Rng, Range(Mid(Sql,  753 )))
  Rng.Select
End Sub
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ограничение аргумента Multiple Range, как решить?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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