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

Программирование на Visual Basic for Applications
wap
Начинающий
Начинающий
 
Сообщения: 6
Зарегистрирован: 13.08.2007 (Пн) 14:14

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

Сообщение wap » 17.08.2007 (Пт) 15:40

Как в VBA определить число строк и число колонок в выделенном диапазоне ячеек?
Заодно, подскажите пожалуйста, как в массив данные из этих ячеек загнать, а то вдруг еще проблемы появятся, придется топик заводить :)

Genyaa
Обычный пользователь
Обычный пользователь
 
Сообщения: 59
Зарегистрирован: 17.10.2006 (Вт) 13:46

Сообщение Genyaa » 17.08.2007 (Пт) 16:37

Selection.Rows.Count - строк
Selection.Columns.Count - столбцов...

Про считывание в массив из ячеек можно прочесть здесь:

http://bbs.vbstreets.ru/viewtopic.php?t=33513
Всякое решение плодит новые проблемы.

dormouse
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 140
Зарегистрирован: 10.01.2007 (Ср) 21:58
Откуда: Волжский

Сообщение dormouse » 17.08.2007 (Пт) 17:19

Dim x As Byte, y As Byte
Dim i As Byte, j As Byte, a As Byte, b As Byte
Dim ar() As Integer
y = Selection.Rows.Count
x = Selection.Columns.Count
ReDim ar(x - 1, y - 1) As Integer
For i = Selection.Row To Selection.Row + y - 1
For j = Selection.Column To Selection.Column + x - 1
ar(a, b) = ActiveSheet.Cells(i, j).Value
a = a + 1
Next j
a = 0
b = b + 1
Next i
Stop
VBA, MSA97

KL
Microsoft MVP
 
Сообщения: 483
Зарегистрирован: 30.10.2005 (Вс) 0:31
Откуда: Madrid

Сообщение KL » 17.08.2007 (Пт) 17:40

dormouse писал(а):
Код: Выделить всё
Dim x As Byte, y As Byte
Dim i As Byte, j As Byte, a As Byte, b As Byte
Dim ar() As Integer
y = Selection.Rows.Count
x = Selection.Columns.Count
ReDim ar(x - 1, y - 1) As Integer
For i = Selection.Row To Selection.Row + y - 1
    For j = Selection.Column To Selection.Column + x - 1
        ar(a, b) = ActiveSheet.Cells(i, j).Value
        a = a + 1
    Next j
    a = 0
    b = b + 1
Next i
Stop


Ага, или так:

Код: Выделить всё
Dim ar As Variant
ar=Selection.Value


;-)
Привет,
KL

dormouse
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 140
Зарегистрирован: 10.01.2007 (Ср) 21:58
Откуда: Волжский

Сообщение dormouse » 17.08.2007 (Пт) 18:44

:P
VBA, MSA97


Вернуться в VBA

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

Сейчас этот форум просматривают: Yandex-бот и гости: 57

    TopList