FindNext и With - Мир MS Excel

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/FindNext и With - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

FindNext и With (Макросы/Sub)

FindNext и With

Iater

Дата: Среда, 21.05.2014, 11:30 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте!

у меня такой вопрос: можно ли в With проверить несколько диапазонов?

[vba]

Код

With Worksheets("Лист4").Range("H6:H" & j)
Set result = .Find(What:=Worksheets("Лист3").Range("d2").Offset(r, 0).Value, LookIn:=xlValues)

[/vba]

а ещё бы я хотел, чтобы искать в диапазоне ("S6:S" & j). Но не дает. Пробовал так:

[vba]

Код

With Worksheets("Лист4").Range("H6:H" & j) And Worksheets("Ëèñò4").Range("S6:S" & j)
Set result = .Find(What:=Worksheets("Лист3").Range("d2").Offset(r, 0).Value, LookIn:=xlValues)

[/vba]

Ответить

SkyPro

Дата: Среда, 21.05.2014, 11:58 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

[vba]

Код

With Sheets(1).Range("A1:A" & j, "C1:C" & j)

[/vba]

Range позволяет задать несколько несмежных диапазонов через запятую.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Среда, 21.05.2014, 12:01

Ответить

Hugo

Дата: Среда, 21.05.2014, 13:51 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Но только это как-то коряво работает - попробуйте его выделить, или заполнить чем-то.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

FindNext и With (Макросы/Sub)

Страница 1 из 1
1