Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / перенос значений из массива в ячейки / 7 сообщений из 7, страница 1 из 1
19.07.2005, 10:37:41
    #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:56:38
    #33172798
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос значений из массива в ячейки
так cel или cell ?
option explicit rules
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2005, 15:07:18
    #33173774
p2x4
p2x4
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос значений из массива в ячейки
Иначе говоря, можно ли из фунуции присваивать значения произвольным ячейкам? Если да, то как?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2005, 15:09:16
    #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:20:02
    #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, 16:21:15
    #33174026
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос значений из массива в ячейки
у меня пишет нормально
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.07.2005, 16:32:58
    #33174047
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перенос значений из массива в ячейки
У меня тоже работает.

Нормальная конструкция, должно работать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / перенос значений из массива в ячейки / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 284ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185909]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 7ms
get forum data:
 1ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 198ms
total:  284ms
x
x
Закрыть


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