Макрос заменяющий символ один на другой
Chelovekov
Дата: Суббота, 06.02.2021, 03:57 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
0
±
Замечаний:
80% ±
Здравствуйте, прошу Вас, помочь, решить одну проблему. Нужно написать макрос, который будет заменять в дате, точку на нужный год. Пример прикрепляю.
Здравствуйте, прошу Вас, помочь, решить одну проблему. Нужно написать макрос, который будет заменять в дате, точку на нужный год. Пример прикрепляю. Chelovekov
Ответить
Сообщение Здравствуйте, прошу Вас, помочь, решить одну проблему. Нужно написать макрос, который будет заменять в дате, точку на нужный год. Пример прикрепляю. Автор - Chelovekov 06.02.2021 в 03:57
Nic70y
Дата: Суббота, 06.02.2021, 08:26 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
Sub u_247()"a" ).End(xlUp).Row"d1" ) & " " "a2:a" & u).Replace What:=". " , Replacement:=vEnd Sub
Sub u_247()"a" ).End(xlUp).Row"d1" ) & " " "a2:a" & u).Replace What:=". " , Replacement:=vEnd Sub
Nic70y ЮMoney 41001841029809
Ответить
Сообщение [vba]
Sub u_247() u = Cells(Rows.Count , "a").End(xlUp ).Row v = Range("d1") & " " Range("a2:a" & u ).Replace What :=". ", Replacement :=vEnd Sub
Автор - Nic70y 06.02.2021 в 08:26
Chelovekov
Дата: Воскресенье, 07.02.2021, 15:46 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация:
0
±
Замечаний:
80% ±
Огромное спасибо, а можно доработать макрос. Сделать так что бы он изменял данные, не по заданному диапазону, а только выделенные ячейки.
Огромное спасибо, а можно доработать макрос. Сделать так что бы он изменял данные, не по заданному диапазону, а только выделенные ячейки. Chelovekov
Ответить
Сообщение Огромное спасибо, а можно доработать макрос. Сделать так что бы он изменял данные, не по заданному диапазону, а только выделенные ячейки. Автор - Chelovekov 07.02.2021 в 15:46
_Igor_61
Дата: Воскресенье, 07.02.2021, 18:11 |
Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация:
90
±
Замечаний:
0% ±
_Igor_61
Ответить
Сообщение Автор - _Igor_61 07.02.2021 в 18:11
mgt
Дата: Вторник, 09.02.2021, 12:55 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация:
26
±
Замечаний:
0% ±
Не совсем понятно, куда в примере время подевалось?
Private Sub sdsd()Dim c As RangeFor Each c In Selection.CellsReplace (c.Value, ". " , Range("d1" ).Value & " " )Next End Sub
Не совсем понятно, куда в примере время подевалось?
Private Sub sdsd()Dim c As RangeFor Each c In Selection.CellsReplace (c.Value, ". " , Range("d1" ).Value & " " )Next End Sub
mgt
Ответить
Сообщение Не совсем понятно, куда в примере время подевалось?
Private Sub sdsd()Dim c As RangeFor Each c In Selection.Cells c.Value = Replace(c.Value , ". ", Range("d1").Value & " ")NextEnd Sub
Автор - mgt 09.02.2021 в 12:55
Nic70y
Дата: Вторник, 09.02.2021, 13:41 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
mgt , зачем цикл?u = Cells(Rows.Count, "a").End(xlUp).Row
mgt , зачем цикл?u = Cells(Rows.Count, "a").End(xlUp).Row
Nic70y ЮMoney 41001841029809
Ответить
Сообщение mgt , зачем цикл?u = Cells(Rows.Count, "a").End(xlUp).Row
Автор - Nic70y 09.02.2021 в 13:41 
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
