Как одним запросом получить все строки диапазона Range

Программирование на Visual Basic for Applications
Павел_В
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 09.07.2005 (Сб) 9:52

Как одним запросом получить все строки диапазона Range

Сообщение Павел_В » 02.02.2006 (Чт) 11:39

Никто случаем не знает как одним запросом получить все строки диапазона Range
т.е. если диапазон A1:F1 пуст, то что он пуст мы можем узнать из Range("A1:F1").Text а вот в случае не пустоты каких-то ячеек входящих в этот диапазон текст выдает ошибку, А мне нужно получить весь список строк ОДНИМ ЗАПРОСОМ (прошу заметить), так как все другие способы по перебору ячеек я знаю....
Плиз, кто откликнется РЕСПЕКТ

Павел_В
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 09.07.2005 (Сб) 9:52

Сообщение Павел_В » 02.02.2006 (Чт) 13:57

Наверное я не правильно выразился
мне необходимо одним запросом получить
из Range("A1:F1").Text получить список значений каждой ячейки входящей в этот дипазон одним запросом в какую нибудь переменную или массив переменных ..... заранее благодарен

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.02.2006 (Чт) 14:19

.value :roll:
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Павел_В
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 09.07.2005 (Сб) 9:52

Сообщение Павел_В » 02.02.2006 (Чт) 14:33

и что мне даст Range("A1:F1").Value
только ошибку...

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.02.2006 (Чт) 15:08

А мне даёт массив значений.
Что я делаю неправильно?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Павел_В
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 09.07.2005 (Сб) 9:52

Сообщение Павел_В » 02.02.2006 (Чт) 17:00

Сорри прогнал, спасибо!!!
а как мне теперь этот массив перевести в строку не используя цикл .....

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 02.02.2006 (Чт) 17:09

Join зацени.
Но такие потребности заставляют думать, что задача решается неправильными способами.
Lasciate ogni speranza, voi ch'entrate.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 02.02.2006 (Чт) 17:09

Кто-то из нас извращенец, и кажется не я... И как ты себе представляешь эту строку?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Павел_В
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 09.07.2005 (Сб) 9:52

Сообщение Павел_В » 02.02.2006 (Чт) 17:18

Код: Выделить всё
Sub ter()
Dim str() As String
d = Range("A1:F1").Value
Join sourcearray:=d, delimiter:=";"
MsgBox d
End Sub


что-то ошибку выдает ....
а почему извращенец ???

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 02.02.2006 (Чт) 17:20

F1 нажми...
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 88

    TopList