VBA выделять жирным шрифтом внутри ячейки

Question

Еженедельно Мне нужно выполнять действие на работе, которое в основном состоит из извлечения отчета с действиями, которые произойдут на следующей неделе, и форматирования его в шаблон сообщения, который использует наша компания.Поскольку нам нужно отправлять одно сообщение на сайт, а их несколько, я автоматизировал большую часть работы с помощью макроса, но есть еще одна вещь, чтобы эта электронная таблица работала идеально - в качестве стандарта для наших внутренних коммуникаций, временидействия должны быть выделены жирным шрифтом, и вот где я застрял.

Я не очень разбираюсь в программировании на VBA, но я пытаюсь кое-что сделать, пока что я выделил жирным шрифтом часть текста внутри ячейки, но когда дело доходит до чисел, ничего не происходит, и я не надеваюНе знаю точно, почему - я предполагаю, что это потому, что ЧЧ: ММ или ММ / ДД / ГГГГ - это просто репрезентативные формы показа числа, например, 254225 будет 09/02/2010.

ячейки, которые я пытаюсь изменить, содержат следующую информацию

10/04/2018 15: 22 * ​​1007 *

, и мне нужно, чтобы они были

10/04/2018 15: 22 * ​​1012 *

Это значительно сократило бы время, затрачиваемое на выполнение этого упражнения - с 2 часов до 30 минут.

Действительно ценювсе ответы, заранее спасибо.

Answer 1

Скажем, у нас есть реальные дата / время в столбце A , например:

10/10/2018 23:30
10/31/2018 06:30
09/26/2018 20:44
11/17/2018 07:11
10/13/2018 16:16
09/20/2018 13:26
10/08/2018 01:06
11/10/2018 14:33
10/16/2018 11:28
11/16/2018 11:53
10/20/2018 08:51
11/23/2018 04:25
10/21/2018 12:41
10/29/2018 14:35
10/14/2018 16:09
11/15/2018 11:56
11/20/2018 10:16
09/21/2018 22:45
10/21/2018 17:55
10/21/2018 19:29

при запуске этого простого макроса:

• преобразует их в текст
• укрепляет часть времени

Sub marine()
    Dim rng As Range, r As Range
    Set rng = Intersect(Columns(1), ActiveSheet.UsedRange)
    For Each r In rng
        r.Value = "'" & r.Text
        r.Characters(12, 5).Font.Bold = True
    Next r
End Sub

Answer 2

Я не знаю ни одного метода для форматирования только жирного шрифта, если используется формат числа / даты, такой как MM/DD/YYYY HH:MM.Я почти уверен, что это возможно только с текстом.

Поэтому я рекомендую разделить дату и время на 2 разных столбца:

Перед тем как дублировать, например, дату столбца A с формулой =A:A в столбец B, а затем отформатируйте столбцы

A                   B
10/04/2018 15:22    =A:A

1. Столбец числового формата A MM/DD/YYYY, чтобы он отображал только часть даты.
2. Столбец числового формата B HH:MMпоэтому он показывает только часть времени.
3. Форматируйте столбец B жирным шрифтом.

Таким образом, результат будет

A                   B
10/04/2018          15:22

в 2 разных столбцах (где столбецB выделено жирным шрифтом).