Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в результате поиска получить значение соседней ячейки? / 5 сообщений из 5, страница 1 из 1
04.03.2008, 11:23
    #35168975
Dimon111
Dimon111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в результате поиска получить значение соседней ячейки?
Делаю так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
With Worksheets( 1 ).Range("a1:a1082")
    Set c = .Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            TextBox1 = TextBox1 & c.Value & vbCrLf
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
При этом TextBox1 получает значение найденной ячейки. Как в TextBox2 при этом записать значение соседней (правой) ячейки?

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2008, 11:38
    #35169030
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в результате поиска получить значение соседней ячейки?
> Aaoig: Dimon111
>
> With Worksheets(1).Range("a1:a1082")
> Set c = .Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
> LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False)
> If Not c Is Nothing Then
> firstAddress = c.Address
> Do
> TextBox1 = TextBox1 & c.Value & vbCrLf

TextBox2.Text = TextBox2.Text & CStr(Cells(c.Row, c.Column).Value) & vbCrLf

> Set c = .FindNext(c)
> Loop While Not c Is Nothing And c.Address <> firstAddress
> End If
> End With

может так?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2008, 11:42
    #35169044
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в результате поиска получить значение соседней ячейки?
"Игорь Горбонос" сообщил/сообщила в новостях следующее:

> TextBox2.Text = TextBox2.Text & CStr(c.Worksheet.Cells(c.Row,
> c.Column + 1).Value) & vbCrLf

забыл плюсик написать ;)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2008, 11:50
    #35169080
Dimon111
Dimon111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в результате поиска получить значение соседней ячейки?
Велик и могуч VBA. В очередной раз выручили. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2008, 13:44
    #35169532
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в результате поиска получить значение соседней ячейки?
не забываем про offset и более экзотичный resize, в контексте данного примера эта ссылка выглядела бы так
Код: plaintext
c.offset(, 1 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как в результате поиска получить значение соседней ячейки? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 265ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162599]:
 0ms
get settings:
 4ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 21ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 196ms
total:  265ms
x
x
Закрыть


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