Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Макрос заменяющий символ один на другой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос заменяющий символ один на другой (Макросы/Sub)
Макрос заменяющий символ один на другой
Chelovekov Дата: Суббота, 06.02.2021, 03:57 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, прошу Вас, помочь, решить одну проблему. Нужно написать макрос, который будет заменять в дате, точку на нужный год. Пример прикрепляю.
Спасибо.
К сообщению приложен файл: 2677834.xlsx(8.5 Kb)
 
Ответить
СообщениеЗдравствуйте, прошу Вас, помочь, решить одну проблему. Нужно написать макрос, который будет заменять в дате, точку на нужный год. Пример прикрепляю.
Спасибо.

Автор - Chelovekov
Дата добавления - 06.02.2021 в 03:57
Nic70y Дата: Суббота, 06.02.2021, 08:26 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6750
Репутация: 1539 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_247()
    u = Cells(Rows.Count, "a").End(xlUp).Row
    v = Range("d1") & " "
    Range("a2:a" & u).Replace What:=". ", Replacement:=v
End Sub
[/vba]


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_247()
    u = Cells(Rows.Count, "a").End(xlUp).Row
    v = Range("d1") & " "
    Range("a2:a" & u).Replace What:=". ", Replacement:=v
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 06.02.2021 в 08:26
Chelovekov Дата: Воскресенье, 07.02.2021, 15:46 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Огромное спасибо, а можно доработать макрос. Сделать так что бы он изменял данные, не по заданному диапазону, а только выделенные ячейки.
 
Ответить
СообщениеОгромное спасибо, а можно доработать макрос. Сделать так что бы он изменял данные, не по заданному диапазону, а только выделенные ячейки.

Автор - Chelovekov
Дата добавления - 07.02.2021 в 15:46
_Igor_61 Дата: Воскресенье, 07.02.2021, 18:11 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 376
Репутация: 76 ±
Замечаний: 0% ±

Excel 2007
только выделенные ячейки

Пять выделенных ячеек, пятьдесят, пятьсот? В конкретном диапазоне или произвольном? Select в помощь, но будьте осторожны.... Из Вашего последнего сообщения напрашивается вывод, что следующие вопросы будут - через две или через три или .... ячеек или строк... В чём заключается основная задача?
 
Ответить
Сообщение
только выделенные ячейки

Пять выделенных ячеек, пятьдесят, пятьсот? В конкретном диапазоне или произвольном? Select в помощь, но будьте осторожны.... Из Вашего последнего сообщения напрашивается вывод, что следующие вопросы будут - через две или через три или .... ячеек или строк... В чём заключается основная задача?

Автор - _Igor_61
Дата добавления - 07.02.2021 в 18:11
mgt Дата: Вторник, 09.02.2021, 12:55 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 22
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010
Не совсем понятно, куда в примере время подевалось?

[vba]
Код
Private Sub sdsd()
Dim c As Range
For Each c In Selection.Cells
    c.Value = Replace(c.Value, ". ", Range("d1").Value & " ")
Next
End Sub
[/vba]
 
Ответить
СообщениеНе совсем понятно, куда в примере время подевалось?

[vba]
Код
Private Sub sdsd()
Dim c As Range
For Each c In Selection.Cells
    c.Value = Replace(c.Value, ". ", Range("d1").Value & " ")
Next
End Sub
[/vba]

Автор - mgt
Дата добавления - 09.02.2021 в 12:55
Nic70y Дата: Вторник, 09.02.2021, 13:41 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 6750
Репутация: 1539 ±
Замечаний: 0% ±

Excel 2010
mgt, зачем цикл?
достаточно
Range("a2:a" & u)
заменить на
и соот
u = Cells(Rows.Count, "a").End(xlUp).Row
не нужно.
стандартные средства Excel побыстрее будут.


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщениеmgt, зачем цикл?
достаточно
Range("a2:a" & u)
заменить на
и соот
u = Cells(Rows.Count, "a").End(xlUp).Row
не нужно.
стандартные средства Excel побыстрее будут.

Автор - Nic70y
Дата добавления - 09.02.2021 в 13:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос заменяющий символ один на другой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!