ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите функцию...
10 сообщений из 10, страница 1 из 1
Подскажите функцию...
    #33242453
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аленочка
Участник
Есть ли такая функция, которая будет добавлять к диапазону ячеек еще одну строку. Но только не union.А то вот это дело жутко тормозит:


Код: plaintext
1.
2.
3.
4.
If r1 Is Nothing Then
    Set r1 = Range(Cells((i - 1) * 3 + 1, 1), Cells((i - 1) * 3 + 1, 1))
  Else
    Set r1 = Union(r1, Range(Cells((i - 1) * 3 + 1, 1), Cells((i - 1) * 3 + 1, 1)))
  End If
...
Рейтинг: 0 / 0
31.08.2005, 08:55
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33242552
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
Set r1 = Range("" & r1.Address & ", " & _
  Range(Cells((i -  1 ) *  3  +  1 ,  1 ), Cells((i -  1 ) *  3  +  1 ,  1 )).Address & "")
...
Рейтинг: 0 / 0
31.08.2005, 09:46
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33242701
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
Resize Property
Resizes the specified range. Returns a Range object that represents the resized range.
Syntax
expression. Resize ( RowSize, ColumnSize )
expression Required. An expression that returns a Range object to be resized.
RowSize Optional Variant. The number of rows in the new range. If this argument is omitted, the number of rows in the range remains the same.
ColumnSize Optional Variant. The number of columns in the new range. If this argument is omitted, the number of columns in the range remains the same.
...
Рейтинг: 0 / 0
31.08.2005, 10:32
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33242754
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Я тоже сначала подумал про Resize. Но потом, прочитав внимательнее, я понял, что Аленочка хочет в один диапазон объединить два диапазона, а не расширить имеющийся.
...
Рейтинг: 0 / 0
31.08.2005, 10:43
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33244734
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аленочка
Участник
Пользователь2Я тоже сначала подумал про Resize. Но потом, прочитав внимательнее, я понял, что Аленочка хочет в один диапазон объединить два диапазона, а не расширить имеющийся.

Я хочу не объеденить, а расширить, вот например у меня в диапазоне 1000 строк и к нему постоянно добавляется по одной строке, можно использовать union, но на практике это занимает много времени и наверное точки зрения экономии памяти тоже неэффективно.

Поэтому нужны другие способы решения проблемы.
...
Рейтинг: 0 / 0
01.09.2005, 03:54
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33244743
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аленочка
Участник
Вот так?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim i As Integer
Dim r1 As Range

Set r1 = Nothing

For i = 1 To Cells(1, 2).Value

  If r1 Is Nothing Then
    Set r1 = Range(Cells((i - 1) * 3 + 1, 1), Cells((i - 1) * 3 + 1, 1))
  Else
    r1.Resize(Range(Cells((i - 1) * 3 + 1, 1), Cells((i - 1) * 3 + 1, 1)))
  End If

Не работает!
...
Рейтинг: 0 / 0
01.09.2005, 05:06
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33244744
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аленочка
Участник
Пользователь2
Код: plaintext
1.
2.
Set r1 = Range("" & r1.Address & ", " & _
  Range(Cells((i -  1 ) *  3  +  1 ,  1 ), Cells((i -  1 ) *  3  +  1 ,  1 )).Address & "")


Работает...
...
Рейтинг: 0 / 0
01.09.2005, 05:08
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33244746
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аленочка
Участник
Пользователь2
Код: plaintext
1.
2.
Set r1 = Range("" & r1.Address & ", " & _
  Range(Cells((i -  1 ) *  3  +  1 ,  1 ), Cells((i -  1 ) *  3  +  1 ,  1 )).Address & "")


Если вас не затруднит, объясните смысл этой записи и преимущество перед union.
Заранее спасибо
...
Рейтинг: 0 / 0
01.09.2005, 05:13
| Ответить | Цитировать | Написать  
Подскажите функцию...
    #33244748
Фотография Аленочка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Аленочка
Участник
Пользователь2
Код: plaintext
1.
2.
Set r1 = Range("" & r1.Address & ", " & _
  Range(Cells((i -  1 ) *  3  +  1 ,  1 ), Cells((i -  1 ) *  3  +  1 ,  1 )).Address & "")


При большом размере диапазона не работает, так как ограничение строки до 256 символов
...
Рейтинг: 0 / 0
01.09.2005, 05:27
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Подскажите функцию...
    #34426557
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
Утож.... мне тоже самое сейчас приходится делать...
строки в разнобой по всему листу и их очень много... :(
придётся Union использовать....
...
Рейтинг: 0 / 0
30.03.2007, 10:08
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите функцию...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33242552&tid=2164283]:
 0ms
get settings:
 5ms
get forum list:
 21ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 144ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 209ms
total:  453ms
созд. / загр.: 453ms
x
x
Закрыть


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