Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3811 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【60176】オートフィルタ後の行番号の取得 たかし 09/2/2(月) 12:07

【60177】Re:オートフィルタ後の行番号の取得 kanabun 09/2/2(月) 12:39

【60178】Re:オートフィルタ後の行番号の取得 たかし 09/2/2(月) 13:49


	【60176】オートフィルタ後の行番号の取得

たかし - 09/2/2(月) 12:07 -


	引用なし

	パスワード

いつも、お世話になっています。
履歴を参照して、下記のようなマクロを作成しました。
やりたいことは、オートフィルタで絞り込んだ結果の最初と最後の行番号の取得です。

Private Sub ComboBox1_Change()
With Worksheets("AAAA")
　If .AutoFilterMode Then
　　.AutoFilterMode = False
　End If
　LtW = ComboBox1.List(ComboBox1.ListIndex)
　.Range("B1").AutoFilter Field:=3, Criteria1:=LtW
　CE = .Range("C65536").End(xlUp).Row
　CA = .Range("C:C").SpecialCells(xlCellTypeVisible).Areas.Item(2).Row
　If CA > CE Then
　　CA = 2
　End If
　MsgBox CA & ", " & CE
End With
end sub

Private Sub UserForm_Initialize()
　Dim Dic As Object　 'Dictionary
　Dim RR As Range
　Dim R As Range
　
If Sheets("LIST").Range("F2") = 1 Then
　With Sheets("MCSV")
　　Set Dic = CreateObject("Scripting.Dictionary")
　　Set RR = .Range("C2")
　　Set RR = Range(RR, RR.End(xlDown))
　
　　For Each R In RR
　　　Dic(R.Value) = Empty
　　Next
　　　Me.ComboBox1.List = Dic.keys

　　Set Dic = Nothing
　End With
end sub

B列に複数のデータがある場合には動作しますが、1種類のデータしかない場合に,
下記部分でエラーになってしまいます。
CA = .Range("C:C").SpecialCells(xlCellTypeVisible).Areas.Item(2).Row

例
A列　B列　　　　　　 A列　B列
番号名前　　　　　　番号名前
1　 AAA　　　　　　　1　 AAA
2　 BBB　問題ない　　2　 AAA　エラー発生
3　 AAA　　　　　　　3　 AAA

エラーの回避方法があれば、教えていただけないでしょうか。
よろしくお願い致します。


	【60177】Re:オートフィルタ後の行番号の取得

kanabun - 09/2/2(月) 12:39 -


	引用なし

	パスワード

▼たかしさん：

>エラーの回避方法があれば

フィルタかけたあと、
ある列の可視行数 .SpecialCells(xlCellTypeVisible).Count
を取得して、その数に対して条件分岐すればよいのではないでしょうか？

たとえば, 提示のサンプルで B列に対して "BBB"でフィルタをかけたとすると、

　　Dim n As Long
　　Dim CA As Long, CE As Long
　　With Worksheets("AAAA")
　　　　.AutoFilterMode = False
　　　　With .Range("A1").CurrentRegion.Columns(2)
　　　　　　.AutoFilter 1, "BBB"
　　　　　　n = .SpecialCells(xlVisible).Count
　　　　　　Select Case n
　　　　　　　Case 1
　　　　　　　　　MsgBox "抽出なし"
　　　　　　　Case Else
　　　　　　　　　CE = .Cells(.Cells.Count + 1).End(xlUp).Row
　　　　　　　　　CA = .SpecialCells(xlVisible).Areas.Item(2).Row
　　　　　　　　　MsgBox CA & ", " & CE, , n - 1 & "行抽出"
　　　　　　End Select
　　　　　　.AutoFilter
　　　　End With
　　End With


	【60178】Re:オートフィルタ後の行番号の取得

たかし - 09/2/2(月) 13:49 -


	引用なし

	パスワード

▼kanabun さん：
早速の返信、ありがとうございます。

アドバイスを元に、作成しなおしました。
エラーなく動作するようになりました。
ありがとうございました。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3811 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free