VBA到單元格中的粗體數字

Question

每周我需要在工作中執行一項活動，該活動主要包括提取報告以及接下來一周將要發生的活動，並將其格式化為公司使用的溝通模板。 由於我們需要在每個站點發送一次通信，並且其中有一些通信，因此我已經使用宏自動完成了大部分工作，但是還有最后一件事可以使此電子表格完美運行-作為我們內部通信的標准，活動必須以粗體顯示，這就是我要堅持的地方。

我對VBA編程了解不多，但我正在嘗試一些事情，到目前為止，我不得不在單元格中加粗文本的一部分，但是當涉及到數字時，什么也沒發生，我也不知道為什么-我假設這是因為HH：MM或MM / DD / YYYY只是顯示數字的代表形式，例如254225將是09/02/2010。

我嘗試更改的單元格包含以下信息

10/04/2018 15:22

我需要他們成為

10/04/2018 15:22

它將大大減少執行此活動所需的時間-從2小時減少到30分鍾左右。

真的感謝所有答復，在此先感謝您。

Answer 1

如果使用數字/日期格式（例如MM/DD/YYYY HH:MM ），我不知道有什么方法可以僅格式化時間粗體。 我很確定這僅適用於文本。

因此，我建議將日期和時間分為2個不同的列：

因此，例如將公式=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列為粗體）。

Answer 2

假設我們在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