ド素人でも学べるExcelVBA講座　第12回ボタン

ユーザーズインターフェースを設置
シート上の設定
1. 担当者のドロップダウンリスト
2. 抽出するデータ
プログラムを作る
ボタンを設置する
まとめ
1. 関連記事:

ユーザーズインターフェースを設置

　前回の表データの抽出プログラムにインターフェースを付けて、自分以外のユーザーにも使ってもらえるようにしよう。
　図のようにドロップダウンリストとボタンを設置することで、担当者ごとのデータを抽出できるようにする。

シート上の設定

　プログラムを作るまえに、シート上のインターフェースを作っていこう。

担当者のドロップダウンリスト

　今回はF1セルに入力規則でドロップダウンリストを設置して、そこから担当者を選べるようにする。
ドロップダウンリストを設定するプログラムもVBAで書く事ができるが、ここではシート上の操作で実現することにしよう。

　まず、メニューの「データ」からデーターツールの中にある「入力規則」のアイコンをクリックする。

　するとダイアログが出るので、以下のように設定する。
入力値の種類は「リスト」。元の値には、「山田,小林,佐藤,(クリア)」と入力する。

　(クリア) に関してはそれまでのデータを消去する時に使う。

抽出するデータ

　抽出するデータは、担当者はドロップダウンリストに表示されるので、日付、品名、金額の3つにする。
シートの G1セル、H１セル、I1セルにそれぞれ、日付、品名、金額と項目名を記入しておこう。

プログラムを作る

　プログラムは前回の最後に作ったプログラム（macro6）を改造していけば良いだろう。
変更部分は、抽出先がG,H,I列に変わる事。そして品目名で検索していたのが、担当に変わる事などだ。
検索する値は、F1セルにある値で抽出する。もし「（クリア）」だった場合は、値をクリアするだけだ。

Sub macro8()
    Dim i As Long
    Dim lastRow As Long, row As Long
    
    lastRow = Cells(Rows.Count, "G").End(xlUp).row   '(1)
    
    If lastRow < 2 Then lastRow = 2   '(2)
    
    Range("G2:I" & lastRow).Clear   '(3)
    
    If Range("F1") = "(クリア)" Then Exit Sub   '(4)
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).row   '(5)
    row = 2          '(6)
    For i = 2 To lastRow
        If Cells(i, "D") = Range("F1") Then   '(7)
            Range("A" & i & ":C" & i).Copy
            Cells(row, "G").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            row = row + 1
        End If
    Next i
End Sub

　少々プログラムが長くなったので、一応解説しておく。これまでやった事のあるコマンドばかりなので一行一行の詳細な説明は良いだろう。
　(1)では、抽出列の最終行を得ている。(2)では、データが無かった場合データ範囲を２行目に矯正する。
(3)で以前のデータをクリア。(4)は新規のコードだが、F1セルの値が “(クリア)” だった場合、データをクリアした時点で処理は終了するので、Exit Sub で処理を終えている。

　(5)では、データ部分の最終行を得ている。(6)で抽出行の初期値をセットしている。
(7)は条件分岐部分で、F1セルの値とD列の値を比較している。もし同じ場合は、コピーして抽出列に貼り付けを行う。

　尚、PasteSpecial Paste:=xlPasteValuesAndNumberFormats　という覚えずらいコマンドの入力は入力候補機能を利用すると便利だ。以下のページに使い方の詳細があるので確認してほしい。
　・Cellsで入力候補が表示されない