Макрос!

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
OJIdu
Сообщения: 14
Зарегистрирован: 14 дек 2009, 10:18

Макрос!

Сообщение 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


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

Аватара пользователя
mc-black
Сообщения: 245
Зарегистрирован: 08 май 2008, 15:09
Откуда: Россия, Нижний Новгород
Контактная информация:

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"), ",", "/"))
На заказ: VBA, Excel mc-black@yandex.ru

OJIdu
Сообщения: 14
Зарегистрирован: 14 дек 2009, 10:18

Re: Макрос!

Сообщение OJIdu » 11 фев 2010, 10:44

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

Ответить