Перенос значений на другой лист( замена метода Find) - Страница 2

Старая форма входа

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

Перенос значений на другой лист( замена метода Find) (Макросы/Sub)

Перенос значений на другой лист( замена метода Find)

bmv98rus

Дата: Среда, 22.05.2019, 13:55 | Сообщение № 21

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

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

Сообщений: 4115

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

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

Excel 2013/2016

Цитата InExSu, 22.05.2019 в 12:46, в сообщении № 20 ()

'когда-нибудь c станет Nothing, говорю как краевед

Михаил, когда?
Естесвенно я говорю о полном коде, где до цикла
[vba]

Код

    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do

[/vba]а не только цикле.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

InExSu

Дата: Среда, 22.05.2019, 15:14 | Сообщение № 22

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

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Цитата bmv98rus, 22.05.2019 в 13:55, в сообщении № 21 ()

когда?

Сей же час. Во вложении.

К сообщению приложен файл: FindNext_InExSu.xlsb (13.7 Kb)

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

bmv98rus

Дата: Среда, 22.05.2019, 15:36 | Сообщение № 23

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

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

Сообщений: 4115

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

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

Excel 2013/2016

InExSu, Да, я про изменение значений не посмотрел. Рубит сук на котором сидит.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

nilem

Дата: Среда, 22.05.2019, 18:21 | Сообщение № 24

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

Цитата InExSu, 22.05.2019 в 15:14, в сообщении № 22 ()

Сей же час. Во вложении.

[vba]

Код

c.Value = 5
Set c = .FindNext(c)

[/vba]
Пример, скорее, для Replace, а не FindNext имхо
А вот так, чтобы Not c Is Nothing было актуально именно для FindNext?

Яндекс.Деньги 4100159601573

Ответить

InExSu

Дата: Среда, 22.05.2019, 19:06 | Сообщение № 25

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

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Цитата nilem, 22.05.2019 в 18:21, в сообщении № 24 ()

Пример, скорее, для Replace, а не FindNext

Дискуссия о том, что пример из справки сам себя и ... победил :-)

Цитата nilem, 22.05.2019 в 18:21, в сообщении № 24 ()

чтобы Not c Is Nothing было актуально именно для FindNext?

Вы хотите цикл:
[vba]

Код

Set c = .FindNext(c)
Loop While c Is Nothing ' ?

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Перенос значений на другой лист( замена метода Find) (Макросы/Sub)

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