Excelマクロでユーザー入力を使ったオートフィルターとクリップボードコピーの方法

Excelのマクロを使って、ユーザーに入力させた文字でオートフィルターをかけ、その結果を処理する方法について解説します。ここでは、インプットボックスでユーザーが入力した文字を使ってフィルターを設定し、特定のデータをクリップボードにコピーするマクロを作成します。実務で役立つこの機能を効率よく利用するための手順を見ていきましょう。

オートフィルターを使ってユーザー入力を処理する
フィルターを使ったデータ抽出の注意点
日付と文字列を結合してクリップボードにコピーする方法
まとめ：オートフィルターとクリップボードコピーのマクロ

オートフィルターを使ってユーザー入力を処理する

まず、オートフィルターを使って特定のデータを抽出するために、ユーザーにインプットボックスで文字を入力させます。これにより、動的にフィルターをかけることができます。

以下のVBAコードで、インプットボックスを使ってユーザーからの入力を受け取り、その入力に基づいてC3セルのフィルターを設定する方法を説明します。

Sub FilterAndCopy()
Dim userInput As String
Dim today As String
Dim cellValue As String

    ' インプットボックスで文字を入力させる
    userInput = InputBox("フィルターの条件を入力してください：")
    If userInput = "" Then Exit Sub

    ' C3セルでフィルターを設定する
    Range("C3").AutoFilter Field:=1, Criteria1:=userInput

    ' 本日日付を取得する
    today = Format(Date, "yyyymmdd")
    ' フィルターされた行のG列の値を取得
    cellValue = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Cells(1, 7).Value

    ' 結果をクリップボードにコピー
    Dim result As String
    result = today & " " & cellValue & " 完了"

    ' クリップボードにコピーする
    Dim DataObj As Object
    Set DataObj = CreateObject("MSForms.DataObject")
    DataObj.SetText result
    DataObj.PutInClipboard
End Sub

このコードでは、インプットボックスで入力された値を元に、C3セルに設定されたフィルターを適用しています。また、フィルター結果からG列の値を取得し、本日日付と共にクリップボードにコピーする処理も行っています。

フィルターを使ったデータ抽出の注意点

オートフィルターを使ってデータを抽出する際には、いくつかの注意点があります。フィルターを適用する範囲やデータの構造に問題があると、マクロが正しく動作しないことがあります。

たとえば、フィルター対象となる列が空でないこと、またフィルター設定が正しいセル範囲に適用されているかを確認することが重要です。また、フィルターの結果として表示されるセルの位置が変動するため、`SpecialCells(xlCellTypeVisible)`を使用して、表示されているセルだけを処理するようにしています。

日付と文字列を結合してクリップボードにコピーする方法

マクロ内で本日日付（`yyyymmdd`形式）と、フィルターされたデータ（G列の値）を結合してクリップボードにコピーする方法は、VBAの`DataObject`を利用しています。このオブジェクトを使うことで、簡単に文字列をクリップボードに格納できます。

上記のコードで、`today`と`cellValue`を連結し、その結果をクリップボードにコピーしています。`DataObject`は、Excel VBAでは標準で使用できないため、`MSForms`ライブラリを参照設定する必要があります。参照設定は、VBAエディタの「ツール」→「参照設定」から「Microsoft Forms 2.0 Object Library」を選択してください。