[okshef]

kontox, можно и без макроса. Откройте окно форматов ячеек, выберите "Все форматы",
в окно "Тип" введите ДД-ММ-ГГГГ

[kontox]

okshef, не -не, тут задачка стоит именно рег.выражениями)

[Iska]

kontox, упакуйте образец Вашей рабочей книги в архив и выложите последний сюда, либо на RGhost.

[okshef]

kontox, код такой

Код:

Selection.NumberFormat = "dd-mm-yyyy"

Вместо Selecton вы можете использовать любое выражение массива, ячейки, а код вкладывать в циклы... Простор для фантазии огромен.

Все зависит от ваших хотелок и начальных условий

[Iska]

okshef, ему, наверное, всё же надо не просто установить, а заменить только те, где есть установленный формат «dd.mm.yyyy», т.е., по условию. И, наверное, будет проще использовать поиск и замену, что-то наподобие такого:

Код:

Sub Ìàêðîñ1()
    With Application
        With .FindFormat
            .Clear
            .NumberFormat = "m/d/yyyy"
        End With
        With .ReplaceFormat
            .Clear
            .NumberFormat = "dd-mm-yyyy"
        End With
    End With
    
    ActiveSheet.Cells.Replace What:="", Replacement:="", SearchFormat:=True, ReplaceFormat:=True
End Sub

хотя меня и удивляет выделенное (полный код был получен из макрорекордера).

[kontox]

Iska, а можете, помочь с таким преобразованием. вот для примера набор данных. Взял из головы

столбец A это id
B-фио
С номер кейса
D-состояние
E номер телефона

как можно сделать чтобы отобразились те данные, где
в столбце А тип number (4)

в столбце B тип varchar(20 char)
в столбце С тип varchar(12 char)
В столбце D тип number(1)
в столбце E тип number(11)

[Iska]

kontox, не понял от:

как можно сделать чтобы отобразились те данные, где в столбце А тип number (4) »

и ниже по тексту.

[kontox]

все разобрался))

[kontox]

Такс, вот второй день пытаюсь сам понять в чем дело, когда выполняешь макрос
пишет ошибку в этой строчке
.NumberFormat = "dd-mm-yyyy"