「教えて!ピックアップ」リリース!

いつもお世話になっております。



① worksheetsメソッドは失敗しました。
LR = ThisWorkbook.Worksheets("B").Range("B" & Rows.Count).End(xlUp).Row

② rowsメソッドは失敗しました。
With Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion
.AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4
End With


ThisWorkbook Workbooks("xx.xlsm")をつけてもエラーになります。
ユーザーフォーム上にあるのでなにか付け加えないといけないのでしょぅか
いけないのでしょぅか



下記のコードをがあります。
AutoFilterMode = False
With Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion
.AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4

End With



With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
End With


With ListView1
.View = lvwReport
.FullRowSelect = True
.AllowColumnReorder = True
.Gridlines = True
.AllowColumnReorder = True
.CheckBoxes = True
.ForeColor = vbBlue

.ColumnHeaders.Add , , "NO", 70
.ColumnHeaders.Add , "B", "名前", 100
.ColumnHeaders.Add , "C", "性別", 50
.ColumnHeaders.Add , "D", "血液型", 50
.ColumnHeaders.Add , "F", "生年月日", 100

Dim LR As Long
LR = ThisWorkbook.Worksheets("B").Range("B" & Rows.Count).End(xlUp).Row 'B列最終行

For R = 2 To LR
If Rows(R).Hidden = False Then

With ListView1.ListItems.Add
.Text = Range("B" & R).Value
.SubItems(1) = Range("C" & R).Value
.SubItems(2) = Range("D" & R).Value
.SubItems(3) = Range("E" & R).Value
.SubItems(4) = Range("F" & R).Value


End With
End If
Next
End With

AutoFilterMode = False

A 回答 (1件)

こんにちは


エラー内容については、すべての情報が欲しい所ですね

① 通常エラーは発生しないと思いますが、アクティブなシートがBシート以外なら発生する可能性があるかも・・

使用環境状況が良く分からないので
LR = ThisWorkbook.Worksheets("B").Range("B" & ThisWorkbook.Worksheets("B").Rows.Count).End(xlUp).Row

LR = ThisWorkbook.Worksheets("B").Range("B1048576").End(xlUp).Row
で試してみてください

②rowsメソッド?
Range("B1").CurrentRegion が成立していないか
.AutoFilter field:=5, Criteria1:=">=" & ListBox3, Operator:=xlAnd, Criteria2:="<=" & ListBox4 
field:=5が成立していないか、
各リストボックスの値でAutoFilterが成立していないか・・・
Workbooks("xx.xlsm").Worksheets("B").Range("B1").CurrentRegion.select
stop
で範囲を確認してみては?

いずれにしても あてずっぽな回答になると思いますので
エラー番号、エラー内容を再度掲示する方が良いかと・・
    • good
    • 0
この回答へのお礼

いつもありがとうございます。
早速ためしてみます

お礼日時:2022/06/07 16:09

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング