ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / перенос значений из массива в ячейки
7 сообщений из 7, страница 1 из 1
перенос значений из массива в ячейки
    #33172742
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
Господа, проясните почему функция указанная ниже не передаёт значения диапазону ячеек?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Function sort(rng As Range, out As Range)
    Dim cel As Range
    Dim us() As Double
    Dim I As Integer
    I =  0 
    For Each cel In rng
       ReDim Preserve us(I +  1 )
       us(I) = cel.Value
       I = I +  1 
    Next cel
    Call BubbleSort(us(), I +  1 )
    I =  0 
    For Each cell In out
       cell.Value = us(I)  'По моему тут затык!?
       I = I +  1 
    Next cell
            
End Function
...
Рейтинг: 0 / 0
19.07.2005, 10:37:41
| Ответить | Цитировать | Написать  
перенос значений из массива в ячейки
    #33172798
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
так cel или cell ?
option explicit rules
...
Рейтинг: 0 / 0
19.07.2005, 10:56:38
| Ответить | Цитировать | Написать  
перенос значений из массива в ячейки
    #33173774
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
Иначе говоря, можно ли из фунуции присваивать значения произвольным ячейкам? Если да, то как?
...
Рейтинг: 0 / 0
19.07.2005, 15:07:18
| Ответить | Цитировать | Написать  
перенос значений из массива в ячейки
    #33173781
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
конечно можно
dim R as range
dim V as long
set R=Range("A10")
v=10
r.value=v
cells(v,1).value=v 'в a10 пишем значение v
range("A" & v).value=v ' тоэе самой
...
Рейтинг: 0 / 0
19.07.2005, 15:09:16
| Ответить | Цитировать | Написать  
перенос значений из массива в ячейки
    #33173816
p2x4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
p2x4
Гость
big-duke
dim R as range
dim V as long
set R=Range("A10")
v=10
r.value=v

В err.description пишет: Application-defined or object-defined error
...
Рейтинг: 0 / 0
19.07.2005, 15:20:02
| Ответить | Цитировать | Написать  
перенос значений из массива в ячейки
    #33174026
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
у меня пишет нормально
...
Рейтинг: 0 / 0
19.07.2005, 16:21:15
| Ответить | Цитировать | Написать  
перенос значений из массива в ячейки
    #33174047
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
У меня тоже работает.

Нормальная конструкция, должно работать.
...
Рейтинг: 0 / 0
19.07.2005, 16:32:58
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / перенос значений из массива в ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33172798&tid=2185909]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 239ms
total:  410ms
созд. / загр.: 410ms
x
x
Закрыть


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