aaaaaaaaaaaaaa

Question

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

Answer 1

たとえばこんな感じでどうでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        Dim wName As String, wMonth As Date
        With Target.Worksheet
            wName = .Cells(Target.Row, "B").Value
            wMonth = .Cells(2, Target.Column).Value
        End With
        
        Dim ws As Worksheet, arr
        Set ws = Sheets("一覧表")
        arr = ws.UsedRange.Value
        
        Dim i, buf
        For i = 2 To UBound(arr, 1)
            If arr(i, 1) = wName And arr(i, 6) <= wMonth And wMonth <= arr(i, 7) Then
                buf = buf & Join(Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6)), "|") & vbLf
            End If
        Next
        If buf <> "" Then CreateObject("WScript.Shell").Popup buf, 1
End Sub

Comments

[退会済みユーザー]

For i = 2 To UBound(arr, 1)
の下に
If arr(i, 1) = wName Then
みたいなのが抜けていませんか？

[jinoji]

本当ですね。コピペのミスでした。
ご指摘ありがとうございます。修正しました。

[退会済みユーザー]

ありがとうございます！
無事に表示されました！