Excel VBAを使用してリストの特定の番号のデータを調査票に表示する方法について説明します。以下のコード例を参考にしてください。
“`vba
Sub データを表示する()
Dim リスト As Worksheet
Dim 調査票 As Worksheet
Dim 番号 As Long
Dim i As Long
‘ シート名を指定してリストと調査票のシートオブジェクトを取得
Set リスト = ThisWorkbook.Sheets(“リスト”)
Set 調査票 = ThisWorkbook.Sheets(“調査票”)
‘ 特定の番号を入力してください
番号 = 5
‘ リストのデータを調査票に表示
For i = 2 To リスト.Cells(Rows.Count, 1).End(xlUp).Row
If リスト.Cells(i, 1).Value = 番号 Then
調査票.Cells(2, 2).Value = リスト.Cells(i, 2).Value ‘ 名称を表示
調査票.Cells(3, 2).Value = リスト.Cells(i, 3).Value ‘ 数値を表示
Exit For ‘ 番号が一致した場合はループを終了
End If
Next i
End Sub
“`
上記のコードでは、”リスト”と”調査票”というシート名を指定しています。適宜、シート名を自分の環境に合わせて修正してください。
番号の部分には、データを表示したい特定の番号を入力してください。これによって、リストの中から該当する番号のデータを探し、調査票に表示します。
このコードは、リストの最初の列に番号、2番目の列に名称、3番目の列に数値が入力されていることを前提としています。必要に応じて列の位置や範囲を修正してください。
また、このコードは番号が一致する最初のデータのみを表示します。複数のデータを表示する場合や、動作をカスタマイズしたい場合は、コードを変更する必要があります。
ユーザーが特定の番号を入力する方法については、別途UIを作成したり、他の方法を使用する必要があります。このコード例は、番号を直接コード内に入力する方法を示しています。
以上のコード例を参考にして、自分の要件に合わせて変更・修正を行ってください。