Макрос!

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Макрос!

Re: Макрос!

OJIdu » 11 фев 2010, 10:44

Спасибо mc-black .
Этот код очень помог мне.

Re: Макрос!

mc-black » 11 фев 2010, 00:14

Из Вашей программы не следует, где берется дата, а где город, поэтому подсказка немного абстрактная:

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

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

.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"), ",", "/"))

Макрос!

OJIdu » 10 фев 2010, 17:03

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

Ярославль 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


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

Вернуться к началу