Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ограничение аргумента Multiple Range, как решить? / 3 сообщений из 3, страница 1 из 1
09.03.2010, 11:36
    #36508471
МавДи
МавДи
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ограничение аргумента Multiple Range, как решить?
Как можно сделать?

Код: 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
| Ответить | Цитировать | Написать  
09.03.2010, 17:08
    #36509519
Shamanus
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ограничение аргумента Multiple Range, как решить?
МавДи,

если я не ошибаюсь проблема не в длине аргумента а в длине "заховаемых" Range-м диапазонов. Он больше 30 кажись не ест. По крайней мере формулы Excel имеют ограничение в 30 диапазонов перечислением.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2010, 18:58
    #36509835
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ограничение аргумента Multiple Range, как решить?
Строка адреса в 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Ограничение аргумента Multiple Range, как решить? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 896ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2178389]:
 0ms
get settings:
 9ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 590ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 22ms
get tp. blocked users:
 1ms
others: 254ms
total:  896ms
x
x
Закрыть


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