作者別: it-yobi

以下のような表で、全ての項目が一致するデータが入力された時のみに、行全体を色付けする方法について解説していきます。

１つの項目に同じデータが入力された時に対象のセルを色付け

まず初めに、１つの項目のみで判定する方法について解説していきます。
特定の条件を満たしたセルのみを色付けする場合は、『条件付き書式』を活用します。
条件付き書式には、予め「重複した値を色付けする」という設定が用意されていますが、こちらの設定は複数列の場合に対応できないため、あえて条件式を作成して実現していきます。

条件式を作成する場合、色付けしたい行のみに「TRUE」が表示される数式を作成する必要があります。

例えば、商品名の項目のみで判定する場合、以下の数式を作成することで、先頭行（セルC3）に対して、同じ商品名の行のみに「TRUE」と表示することができます。

=C3:C20=C3
// 表の範囲を3～20行とした場合

この数式の結果のTRUEの数を集計することが出来れば、その行（セルC3の行）が重複しているのかどうかを判定することができます。
実は、TRUEという値は「1」、FALSEという値は「0」として管理されています。
そのため、「*」や「+」などの演算子を用いることで、数値として表示することができます。

=(C3:C20=C3)*1

後は、数値をSUM関数で以下のように合計するだけで、TRUEの数を求めることができます。

=SUM((C3:C20=C3)*1)

この数式の表の範囲のみを「$」で固定して、他の行にコピーし、重複している商品名の行のみに２以上の数値が表示されることを確認します。

=SUM(($C$3:$C$20=C3)*1)
// コピーする際に表の範囲が移動しないように「$」で固定する

ただ、このままですと、空白の行に関しても、２以上の数値が表示されてしまいます。
そのため、空白の行に関してはカウントしないように、「$C$3:$C$20=C3」という条件に「商品名が空白でない」という条件を加えます。
「尚且つ」という条件を加える場合は、「*」で条件式を掛けるだけで実現できます。

=SUM(($C$3:$C$20=C3)*($C$3:$C$20<>""))
// 「*1」は不要になる

このような数式を作成することができましたら、先頭に入力した以下の数式のみをコピーし、条件付き書式にて設定していきます。

=SUM(($C$3:$C$20=C3)*($C$3:$C$20<>""))

上記の数式は、セルC3に対する数式のため、セルC3を基準に対象の範囲を選択します。

次に、[ホーム]タブの[条件付き書式]から[新しいルール]を選択します。

次に、以下の画面で[ルールの種類]を[数式を使用して書式設定するセルを決定]にし、表示されたテキストボックス内に、先ほどコピーした数式を貼り付け、「１より大きい場合」という条件を加えます。
※条件付き書式に設定した数式は、選択範囲の基準のセルから他の選択範囲に相対参照で反映されます。（「$」が付いている参照は絶対参照になります。）

=SUM(($C$3:$C$20=C3)*($C$3:$C$20<>""))>1

後は、好みの書式を[書式]から設定します。

以上の設定で確定することによって、以下のように、商品名で同じ値が入力されているセルのみに色付けすることができました。

全ての項目が一致するデータが入力された時に行全体を色付け

先ほどの手順と同様に、次は、全ての項目が一致するデータの数を求める数式を作成します。

その際は、以下のように、他の項目に対しての条件も「*」で加えます。

=SUM(($B$3:$B$20=B3)*($C$3:$C$20=C3)*($D$3:$D$20=D3)*($C$3:$C$20<>""))
// 色の反映に関しては商品名が入力されている前提とする：$C$3:$C$20<>""

こちらの数式を、先ほどと同じ手順で条件付き書式に設定していくのですが、今後は単体の列ではなく、表全体の列を色付けしたいです。
そのような際は、以下のように、数式の列の参照を固定する必要があります。

=SUM(($B$3:$B$20=$B3)*($C$3:$C$20=$C3)*($D$3:$D$20=$D3)*($C$3:$C$20<>""))

では、数式を条件付き書式に設定していきます。
上記の数式は、表の先頭行（３行目）を基準とした数式になります。
そのため、表の先頭行（３行目）を基準として表全体を選択します。

次に、[ホーム]タブの[条件付き書式]から[新しいルール]を選択し、[ルールの種類]を[数式を使用して書式設定するセルを決定]にして、表示されたテキストボックス内に、先ほどの数式を貼り付け、「１より大きい場合」という条件を加えます。
書式に関しても設定します。

=SUM(($B$3:$B$20=$B3)*($C$3:$C$20=$C3)*($D$3:$D$20=$D3)*($C$3:$C$20<>""))>1

上記の設定で確定することによって、全ての項目が一致するデータの行のみを自動で色付けすることができます。

以下のように、複数シートの表（従業員別の１日の予定表）を、ボタンを押すだけで１つの表にまとめる機能の開発方法について解説していきます。

※こちらで開発したファイルは、記事の最後にて配布しています。

開発準備

まず初めに、[開発]タブを選択し、[マクロ]を選択します。

表示された以下の画面にて、開発する機能の名前を入力し、[作成]を選択します。
こちらでは、「getSchedule」と入力しています。

次に表示される以下の画面の「Sub ○○」から「End Sub」の間にコードを記述します。

コードの記述

以下のコードを記述します。

Sub getSchedule()
    
    Dim mWs As Worksheet
    Set mWs = Worksheets("全員")
    
    Dim ws As Worksheet
    Dim i As Long
    
    mWs.Range("B4:B33").ClearContents
    
    For i = 4 To 33
        For Each ws In Worksheets
            If ws.Name <> mWs.Name Then
                If ws.Cells(i, "B").Value <> "" Then
                    mWs.Cells(i, "B").Value = _
                        mWs.Cells(i, "B").Value & _
                        ws.Name & "：" & ws.Cells(i, "B").Value & vbLf
                End If
            End If
        Next ws
    Next i
    
End Sub

では、コードについて解説していきます。

    Dim mWs As Worksheet
    Set mWs = Worksheets("全員")

集約するシート情報を変数「mWs」に割り当てています。

    Dim ws As Worksheet
    Dim i As Long

繰り返し処理で扱う変数を定義しています。
変数「ws」は各シートを繰り返す際に活用し、変数「i」は各行を繰り返す際に活用します。

    For i = 4 To 33
        '処理
    Next i

Forでの予定表の先頭行から最終行までを繰り返しています。

        For Each ws In Worksheets
            If ws.Name <> mWs.Name Then
                '処理
            End If
        Next ws

繰り返し処理の内側のFor Eachでは、ブックに存在するシート１つ１つの情報を順番に変数「ws」に割り当てて、「全員」シート以外の場合に内側の処理を実行するように記述しています。

                If ws.Cells(i, "B").Value <> "" Then
                    mWs.Cells(i, "B").Value = _
                        mWs.Cells(i, "B").Value & _
                        ws.Name & "：" & ws.Cells(i, "B").Value & vbLf
                End If

最深部では、「全員」シート以外の各シートに対し、対象行（i）の予定の有無を確認しています。
先頭のIfで予定が存在しているかどうかを確認し、予定が存在している場合に、「全員」シートに追加するように記述しています。
「全員」シートに、元々の予定に加え、対象シート（ws）の対象行（i）の予定と改行（vbLf）を加えるように記述しています。

ボタンの作成

コードが完成しましたら、「全員」シートに実行用のボタンを用意します。
ボタンは、[開発]タブの中の[挿入]から作成することができます。

完成

以上の手順で、機能が完成します。
実行することで、以下のように、複数シートの予定の内容を「全員」シートにまとめて表示することができます。

▼サンプルファイル▼

野外イベントなどで販売数を管理しながら受付業務を行う際、商品が購入される度、販売数の数値を直接入力するのは大変です。
そのため、こちらでは、特定の商品の販売数のセルをダブルクリックするだけで、その販売数に１を加えることができる機能を開発していきます。
また、何かしらの原因でデータが紛失しないように、販売数を加算する度、自動で保存される機能も加えていきます。

こちらでは、以下の商品ごとの販売数を管理した表を活用して開発していきます。

※こちらで開発したファイルは記事の最後にて配布しています。

開発準備

「特定のセルをダブルクリックすると同時に、何かしら処理を実行する」という仕組みは、該当するシートモジュールのイベントプロシージャを活用することで実現できます。

シートモジュールは、該当するシートのタブ上で右クリックし、[コードの表示]を選択することで表示することができます。

選択すると、以下のエディタ画面（VBE）が表示されます。
また、該当するシートのシートモジュールが表示された状態になります。
「Option Explicit」は、VBEの設定内容次第では表示されません。「Option Explicit」についての解説はこちらでは省略します。

次に、該当するシートのセルをダブルクリックすると同時に処理が実行される特殊なプロシージャ（イベントプロシージャ）を用意する必要があります。
そのためには、シートモジュールの左上のリストから「Worksheet」を選択します。

「Worksheet」を選択すると、自動で「Worksheet_SelectionChange」というプロシージャが表示されます。
このプロシージャは、該当するシート上のいずれかのセルが選択されると同時に処理が実行されるイベントプロシージャと呼ばれるものになります。

ただ、今回使用するイベントプロシージャは、セルがダブルクリックされると同時に処理が実行されるものになります。
そのため、右上のリストから「BeforeDoubleClick」を選択します。

表示された「Worksheet_BeforeDoubleClick」というプロシージャを活用します。
「Worksheet_SelectionChange」というプロシージャに関しては削除して問題ないです。

コードの記述

以下のコードを記述します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Column = 3 And _
        Target.Row >= 3 And _
        Target.Row <= 20 Then
        
        Cancel = True
        Target.Value = Target.Value + 1
        ThisWorkbook.Save
        
    End If
    
End Sub

では、コードについて解説していきます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Column = 3 And _
        Target.Row >= 3 And _
        Target.Row <= 20 Then

        '省略

    End If
    
End Sub

「Worksheet_BeforeDoubleClick」というプロシージャの引数の「Target」に、ダブルクリックされたセルの情報が渡されるため、そのセルの情報から、表の対象の範囲内がダブルクリックされたのかどうかを確認しています。
こちらでは、「３列目、尚且つ、３～２０行目の間のセル」と販売数のセルの範囲内がダブルクリックされたかどうかを確認しています。

この条件を満たした場合に関してのみ、Ifの中の処理を実行します。

        Cancel = True
        Target.Value = Target.Value + 1
        ThisWorkbook.Save

セルをダブルクリックすると、通常、セルが編集モードになるのですが、引数の「Cancel」をTrueにすることで、編集モードにならなくなります。
その後、ダブルクリックされたセルの値に１を加えて、ブックを保存しています。

以上の内容で実現できます。
販売数のセルをダブルクリックすることで、ダブルクリックされたセルの値に１を加えて、ブックが保存されます。

▼サンプルファイル▼