Private Sub UserForm_Initialize()
    Dim i  As Long
    Dim lngLastRow As Long
    
    lngLastRow = Sheets(con相手科目).Cells(con最大科目数, 1).End(xlUp).Row
    Me.ListBox1.RowSource = con相手科目 & "!A2:A" & lngLastRow
    
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ