+ Ответить в теме
Показано с 1 по 3 из 3

Тема: Макрос!

  1. #1
    dummy
    coder
    OJIdu is on a distinguished road
    Регистрация
    14.12.2009
    Сообщений
    14
    Вес репутации
    0

    По умолчанию Макрос!

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

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


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

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    developer mc-black is on a distinguished road Аватар для mc-black
    Регистрация
    08.05.2008
    Адрес
    Россия, Нижний Новгород
    Сообщений
    245
    Вес репутации
    11

    По умолчанию Re: Макрос!

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

    Для строковых
    Код :
    1. .Cells(i, j).Value= "'" & Format(CDate(Replace(Format(.Cells(i, j).Value, "0.00"), ",", "/")),"d.mm")

    Для дат с форматированием ячеек
    Код :
    1. .Cells(i, j).Value = CDate(Replace(Format(.Cells(i, j).Value, "0.00"), ",", "/"))
    На заказ: VBA, Excel mc-black@yandex.ru

  4. #3
    dummy
    coder
    OJIdu is on a distinguished road
    Регистрация
    14.12.2009
    Сообщений
    14
    Вес репутации
    0

    По умолчанию Re: Макрос!

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

+ Ответить в теме

Похожие темы

  1. Макрос для EXEL
    Помогите пожалуйста с макросом для EXEL! Есть прайс с большим количеством позиций товара!Каждый день прайс обновляется и мне нужно, чтоб в EXEL...
    от krazy в разделе MS Office и VB(A).
  2. Макрос для
    Всем добрый день! Подскажите, пожалуйста, возможно ли решение такой проблемы в экселе: На одном листе находится "статичная база" данных на 1500...
    от Derden в разделе MS Office и VB(A).
  3. Макрос
    Всем добрый вечер. Написал небольшую прогу, которая использует макрос. Макрос вычисляет значение выражения x=3((xxx+2y)(xxx+2y)-yyy-2y)-2(yyy+2x),...
    от ррррррроман в разделе Ассемблер
  4. Макрос для картинки???
    Здравствуйте... Может кто нибудь подкинет рабочий макрос для расположения картинки на листе Excel? А то до сих пор руками ровняю :-)
    от DzenDen1 в разделе MS Office и VB(A).
  5. Макрос в excel
    Добрый день! Необходимо написать макрос для следующего: Имеется таблица, со столбцом даты или периоды Нужно найти 2 ячейки с определенными датами,...
    от marine в разделе MS Office и VB(A).

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения