Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поиск значения и запись в массив / 18 сообщений из 18, страница 1 из 1
01.11.2006, 13:36:20
    #34097371
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
У меня следующий вопрос. Есть код:

Код: plaintext
1.
2.
3.
4.
5.
Dim r As Range

For Each r In Range("B:B")
If r.Value = "да" Then qwer = r.Address(RowAbsolute:=False)
w = Mid(qwer,  3 )
Next r

В колонке B ищется слово "да" и если оно находится, то qwer присваивается адрес ячейки, а w присваивается номер строки. Как записать в массив все w (если "да" встречается не один раз)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 13:45:52
    #34097429
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Примерно как-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim r As Range
Dim w() as Long
Dim i as Long

i =  0 
For Each r In Range("B:B")
If r.Value = "да" Then
    Redim Preserve w(i)
    w(i) = r.Row
    i = i +  1 
End If
Next r
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 13:53:37
    #34097471
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Если у меня встречается 2 раза "да", то записывается в w последний номер
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 13:59:45
    #34097505
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
andMegaMЕсли у меня встречается 2 раза "да", то записывается в w последний номер
Это утверждение? Вы мой код пробовали?
Вообще-то w() - это массив и в нем содержатся все строки, где встречается "да"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 13:59:56
    #34097509
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
ВСЕ работает, только надо i не от нуля, а от единицы считать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:01:20
    #34097517
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
andMegaMВСЕ работает, только надо i не от нуля, а от единицы считать
Обоснуйте.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:04:29
    #34097532
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
andMegaMЕсли у меня встречается 2 раза "да", то записывается в w последний номер не понятно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:06:58
    #34097546
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
НЕ могу понять почему, но если от нуля, то первая строка где есть "да" не учитывается и из 4-ёх "да" записываются последние 3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:12:29
    #34097571
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
andMegaMНЕ могу понять почему, но если от нуля, то первая строка где есть "да" не учитывается и из 4-ёх "да" записываются последние 3
А так пробовали?
Код: plaintext
msgbox w( 0 )

Массивы в VB по умолчнию создаются с индексом от нуля. Посмотрите в дебаггере содержимое массива.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:19:52
    #34097600
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Блин!!! А вот про слона то я и забыл.Спасибо за подсказку. А как мне записать в колонку "A" подряд все W(i)? Я пробовал вроде того:

Код: plaintext
1.
2.
For q =  1  To ActiveCell.SpecialCells(xlLastCell).Row
Cells(q,  1 ).Value = w(i)
Next q
Но че-то не пашет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:28:12
    #34097633
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Вот так работает, но все равно не корректно
Код: plaintext
1.
2.
For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
Cells(i,  1 ).Value = w(i -  1 )
Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:31:57
    #34097650
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim j As Long
Dim i as Long
Dim rng As Range ' Ячейка начала вывода столбца
    
Set rng = ActiveSheet.Range("A1")
j =  0 
    
For i = LBound(w) To UBound(w)
    rng.Offset(j,  0 ).Value = w(i)
    j = j +  1 
Next i

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:39:38
    #34097699
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Огромное спасибо!!! Все работает. Вопрос считаю закрытым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 14:54:12
    #34097770
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
k-nike
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim j As Long
Dim i as Long
Dim rng As Range ' Ячейка начала вывода столбца
    
Set rng = ActiveSheet.Range("A1")
j =  0 
    
For i = LBound(w) To UBound(w)
    rng.Offset(j,  0 ).Value = w(i)
    j = j +  1 
Next i



Можно обойтись без цикла:

Sub etst()
With ActiveSheet.[A1]
.Resize(UBound(w) + 1).Value = Application.Transpose(w)
End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 15:04:12
    #34097818
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
KL (XL)[quot k-nike][src vba]Можно обойтись без цикла:

Sub etst()
With ActiveSheet.[A1]
.Resize(UBound(w) + 1).Value = Application.Transpose(w)
End With
End Sub
класно
давно искал способ запихать массив в диапозон без перебора
интересно быстей ли будет работать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 15:15:05
    #34097876
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub jh()
    Dim f( 1  To  3 ) As Long
    Dim x As Long
    Dim a
    f( 1 ) =  1 
    f( 2 ) =  2 
    f( 3 ) =  3 
    a = Timer
    For x =  1  To  10000 
        Range("A1:A3") = Application.Transpose(f)
    Next
    MsgBox Timer - a
End Sub
3,5 сек

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub jh2()
    Dim f( 1  To  3 ) As Long
    Dim x As Long, i As Long
    Dim a
    f( 1 ) =  1 
    f( 2 ) =  2 
    f( 3 ) =  3 
    a = Timer
    For x =  1  To  10000 
        For i =  1  To UBound(f)
            Cells(i,  1 ) = f(i)
        Next
    Next
    MsgBox Timer - a
End Sub
7,5 сек
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 16:08:54
    #34098147
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
Код: plaintext
Application.Transpose()

Что-то не нашел такого метода в хелпе. Это недокументированный метод?
И как тогда вставить этим способом не столбец, а строку?

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2006, 16:20:55
    #34098199
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск значения и запись в массив
k-nike
Код: plaintext
Application.Transpose()

Что-то не нашел такого метода в хелпе. Это недокументированный метод?Это не метод, а функция раб. листа. Задокументирована она как

Код: plaintext
Application.WorksheetFunction.Transpose

синтаксис Application.Transpose действительно недокументированный, существует для совместимости с версиями до XL97 и ведет себя слегка по иному, т.е. может возвращать значение ошибки не вызывая остановки кода. За это последнее и за краткость его и использую.

k-nikeИ как тогда вставить этим способом не столбец, а строку?
Код: plaintext
1.
2.
3.
4.
Sub Test()
    With ActiveSheet.[A1]
        .Resize(,UBound(w) +  1 ).Value = w
    End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поиск значения и запись в массив / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 332ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184009]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 234ms
total:  332ms
x
x
Закрыть


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