|
▼kanabun さん:
一応理解できました。
ただ、
'データが1行も抽出されていなければ、Exitする
Dim ListRange As Range
With CopyTo.CurrentRegion '抽出データ範囲から
On Error Resume Next '↓ 見出しを除く
Set ListRange = Intersect(.Cells, .Offset(1))
On Error GoTo 0
If ListRange Is Nothing Then Exit Sub
End With
下から2行目のコードのイメージは判りますが、このコードでListRangeは何を指すのでしょう?
いつもExitになり、コメントに変更すると動作が繋がりますが・・・・
最終行近くにもListRangeがあるので、どのように理解すると
よいのでしょう。
ListBox1への表示に色々な条件があるかも知れませんが
兎に角11列を先ず表示させれば、っと強引に
コードを書きました。こんな感じでしょうか?
Sheets("WAREA").Activate
Dim myVal As Variant
myVal = Sheets("WAREA"). _
Range(Cells(1, 6), Cells(Rows.Count, 6).End(xlUp)).Resize(, 30).Value
With UserForm1
.ListBox1.ColumnCount = 11
.ListBox1.ColumnWidths = "30;30;30;30;30;30;50;30;30;30;25"
.ListBox1.List = myVal
End With
|
|