Страницы: 1
RSS
Замена части значения ячеек с помощью макроса
 
Добрый день,
Собственно есть следующая проблема: есть ячейки, в них есть даты типа "13.04.2020". С помощью Ctrl+H производится замена "2020" на "", чтобы в итоге получилось "13.04.".
Для того, чтобы автоматизировать этот процесс с помощью записи создается макрос. Но когда те же самые действия производятся макросом результат получается "04/13/".
Как собственно прийти к целевому значению? Где именно проскакивает ошибка?

Вообще в исходных данных проценты, но из-за того, что эксель переводит их в даты, приходится плясать с бубном, чтобы вернуть их обратно в проценты. Это собственно первый этап этого танца, и руками он делается нормально, но при попытке его автоматизировать, получается вот такая ошибка. Буду очень благодарен, если кто-нибудь подскажет, как делать это проще.
Код
Sub Макрос1()
    Range("D10:D24").Select
    Selection.Replace What:="2020", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub
 
Добрый день!
Вы знакомы с таким понятием как "формат ячеек" ? Если нет то почитайте в интернете.
 
Андрей_26, Если просто поменять формат ячеек, то 24.05.2020 превратиться в 43975, а не в 24,5%
 
mmsh, здравствуйте
Исправление чисел, превратившихся в даты
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
в соседний столбец протянуть скопировать вставить в исходный как значения
Код
=ЕСЛИ(A10<43831;A10;ТЕКСТ(A10;"ДД.ММ."))
Лень двигатель прогресса, доказано!!!
 
Jack Famous, Спасибо. Решил проблему через Файл - Параметры - Дополнительно - Убрать галочку с "Использовать системные разделители"
 
UDF
Код
Function iDate(cell$)
 With CreateObject("VBScript.RegExp")
     .Pattern = "(\d{2}\.)(\d{2}\.)\d{4}"
     If .Test(cell) Then
       iDate = .Replace(cell, "$1$2")
     Else
       iDate = cell
     End If
 End With
End Function
Страницы: 1
Наверх