8:30から9:30開始があったらセルを青色にするよ

2024年10月18日 00:09

この説明は、ChatGPTで作成しています。

このプロシージャは、Excelのセルに入力された時間情報を調べて、「8:30から9:30の間に始まる」時間が含まれている場合、そのセルを青色に変えるという動作を行います。これを行うために、特定の時間形式を正規表現というパターンで見つけ出し、その条件に合ったセルの色を変えています。

仕組みを簡単に説明します：

SpeedUpプロシージャの呼び出し
プロシージャの最初と最後で、`Call SpeedUp`という命令があります。これは、処理の高速化のために、別のVBAコードを使っていることを示しています。`SpeedUp(False)`と書かれている部分で元に戻す動作も行っています。画面の更新を停止・再開する仕組みかもしれません。
正規表現（RegExp）を使って時間を探す
`Set reg = CreateObject("VBScript.RegExp")`というコードで、正規表現を使えるようにしています。正規表現とは、特定のパターンに合う文字列を見つけるための方法です。この場合、「8:30から9:30の間に始まる時間」を探すために、以下のようなパターンが設定されています：
- `(8:[3-5][0-9]|9:0[0-9]|9:[12][0-9]|9:30)～`
  これは、8時30分から59分、9時00分から9時30分までの時間を見つけるためのパターンです。
セルを一つずつチェック
`For Each myRng In Selection`の部分で、選択されている範囲のセルを一つずつ調べます。各セルの値が、正規表現で定義された時間パターンに当てはまるかどうかを`reg.Test(txt)`で確認し、当てはまればそのセルの背景色を青色（ColorIndex = 5）に変更します。
エラー処理
`On Error Resume Next`と書かれている部分は、エラーが発生しても無視して次の処理を続けるようにするためのコードです。

まとめ

このプロシージャは、Excelのセルの中に「8:30から9:30」の間の時間が含まれているかどうかを探し、それに該当するセルを青色にするものです。セルを一つずつ確認しながら処理を行っているため、Excel上の時間管理やタスクの可視化に役立ちます。

Sub 八時半から九時半開始があったらセルを青色にするよ()
'    Application.ScreenUpdating = False
    Call SpeedUp
    Dim reg
    Set reg = CreateObject("VBScript.RegExp")   'オブジェクト作成
    Dim myRng As Range
    Dim txt As String
    With reg
        .Pattern = "(8:[3-5][0-9]|9:0[0-9]|9:[12][0-9]|9:30)～"
        .IgnoreCase = True
        .Global = True
    End With
    On Error Resume Next
    For Each myRng In Selection
            txt = myRng.Value
            If reg.Test(txt) Then
                myRng.Interior.ColorIndex = 5
            End If
    Next myRng
    Call SpeedUp(False)
'    Application.ScreenUpdating = True
End Sub

英訳

Highlight Cells with Times Between 8:30 and 9:30

This explanation is generated using ChatGPT.

This procedure checks the time information in selected Excel cells. If a time between 8:30 and 9:30 is found in the cell, it changes the cell's background color to blue. The process uses regular expressions to identify the specific time pattern and colors the matching cells accordingly.

How it works:

Calling the SpeedUp procedure
At the start and end of the procedure, `Call SpeedUp` is used to presumably improve performance. It might involve turning off and on screen updates or some similar optimization. The line `SpeedUp(False)` restores the normal settings at the end.
Using regular expressions to find time
The line `Set reg = CreateObject("VBScript.RegExp")` initializes the use of regular expressions. Regular expressions are a way to search for text patterns. In this case, the pattern looks for times between 8:30 and 9:30 using this expression:
- `(8:[3-5][0-9]|9:0[0-9]|9:[12][0-9]|9:30)`
  This matches times like 8:30-59 and 9:00-9:30.
Checking each cell
The line `For Each myRng In Selection` loops through each selected cell in Excel. For each cell, the value is tested against the regular expression pattern using `reg.Test(txt)`. If it matches, the cell's background color is changed to blue (ColorIndex = 5).
Error handling
The line `On Error Resume Next` ensures that any errors encountered during the process are ignored, allowing the code to continue running.

Summary

This procedure is useful for checking if any cell contains a time between 8:30 and 9:30 and automatically highlights those cells in blue. It helps with managing time-based data or task visualization in Excel by scanning and formatting the cells based on the given condition.

この記事が気に入ったらサポートをしてみませんか？