Замена слов при помощи макроса.

Вход

Регистрация

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

= Мир MS Excel/Замена слов при помощи макроса. - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена слов при помощи макроса. (Макросы/Sub)

Замена слов при помощи макроса.

Chelovekov

Дата: Вторник, 26.01.2021, 14:39 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Excel 2016

Здравствуйте. Прошу, Вас помог написать макрос для замены слов в ячейках.
Пример прилагаю.
Спасибо

К сообщению приложен файл: 4068589.xlsx(8.4 Kb)

Ответить

RAN

Дата: Вторник, 26.01.2021, 14:52 | Сообщение № 2

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

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

Сообщений: 5413

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

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

2010

[vba]

Код

Sub Мяу()
    Dim cl As Range
    For Each cl In Selection
        If InStr(cl, Cells(1, 4).Value) Then
            cl.Value = CDate(Cells(2, 4).Value + TimeValue(Split(cl, " ")(1)))
        End If
    Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Chelovekov

Дата: Вторник, 26.01.2021, 14:57 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Excel 2016

А можно, Вас, попросить, вставить этот код в пример.
Спасибо.

Ответить

Serge_007

Дата: Среда, 27.01.2021, 10:37 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 13707

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

Замечаний: ±

Excel 2010

Chelovekov, см вложение

К сообщению приложен файл: 20210127_Chelov.xls(34.5 Kb)

Яндекс-деньги:41001419691823 | WMR:126292472390

Ответить

Chelovekov

Дата: Среда, 27.01.2021, 15:37 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 192

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

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

Excel 2016

Огромное всем спасибо. Просто не понял как использовать .

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена слов при помощи макроса. (Макросы/Sub)

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