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

Макрос!

Добавлено: 10 фев 2010, 17:03
OJIdu
Добрый вечер, подскажите с макросом.
У меня при помощи макроса создается новый лист,
В него записывается в один столбец город, в другой дата.
Мне бы хотелось изменить формат даты, чтобы она создавалась не с "," а с "."
выглядит это так

Ярославль 1,02
Ярославль 2,02
Ярославль 3,02
Ярославль 4,02

- - - - - - - - - - - -
а мне бы хотелось чтобы вот так
Ярославль 1.02
Ярославль 2.02
Ярославль 3.02
Ярославль 4.02



Код такой

For c = 5 To z
For b = 2 To jlastcolumn Step 2
If .Cells(c, b).Value <> "" Then
Sheets("Lists").Cells(count_list, 1).Value = .Cells(c, 1).Value
Sheets("Lists").Cells(count_list, 2).Value = .Cells(3, b).Value
count_list = count_list + 1
End If
Next b
Next c


Заранее очень благодарен.!

Re: Макрос!

Добавлено: 11 фев 2010, 00:14
mc-black
Из Вашей программы не следует, где берется дата, а где город, поэтому подсказка немного абстрактная:

Для строковых

Код: Выделить всё

.Cells(i, j).Value= "'" & Format(CDate(Replace(Format(.Cells(i, j).Value, "0.00"), ",", "/")),"d.mm")
Для дат с форматированием ячеек

Код: Выделить всё

.Cells(i, j).Value = CDate(Replace(Format(.Cells(i, j).Value, "0.00"), ",", "/"))

Re: Макрос!

Добавлено: 11 фев 2010, 10:44
OJIdu
Спасибо mc-black .
Этот код очень помог мне.