Добрый вечер, подскажите с макросом.
У меня при помощи макроса создается новый лист,
В него записывается в один столбец город, в другой дата.
Мне бы хотелось изменить формат даты, чтобы она создавалась не с "," а с "."
выглядит это так
Ярославль 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
Заранее очень благодарен.!
Макрос!
Модератор: Naeel Maqsudov
- mc-black
- Сообщения: 245
- Зарегистрирован: 08 май 2008, 16:09
- Откуда: Россия, Нижний Новгород
- Контактная информация:
Из Вашей программы не следует, где берется дата, а где город, поэтому подсказка немного абстрактная:
Для строковых
Для дат с форматированием ячеек
Для строковых
Код: Выделить всё
.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
Спасибо mc-black .
Этот код очень помог мне.
Этот код очень помог мне.