|
▼JINましん さん:
>早速の回答ありがとうございます。
>下の(例)のように先頭に項目行を入れてみましたが、下記のVBA
>ではうまく動きませんでした。
Keinさんの回答で上手く動作するはずですよ。
>Cells.EntireRow.Hidden = False で止まります。
止まるはずが無いのですが・・・
>それと、項目のフィルタでは、「うえ」とかのあいまいな検索
>フィルタってできるのでしょうか。
このテーマは今のコードを完全に動かしてからにされては?
>お手数かけて申し訳ありません。
>初心者ですみませんが回答よろしくお願いします。
>
>(例)
> A B C D
>1 番号 ID 回答 項目
>2 123 345 678 あいうえお
>3 910 111 123 えおかきく
>4 456 789 101 かきくせの
>5 112 124 256 あいうまた
>
>
>>フィルターを使うなら、先頭に項目行を入れるのが必須となります。
項目行が必要であれば次のコードを入れてみてください。
あくまでD列での検索ですので、inputboxには、その列の検索文字を
間違わずに入れる事です。
Sub MyFilter()
Dim CkSt As String
CkSt = Application.InputBox("抽出する値を入力して下さい")
If CkSt = "" Then Exit Sub
Cells.EntireRow.Hidden = False
On Error Resume Next
With Range("D2", Range("D65536").End(xlUp)).Offset(, 26)
.Formula = "=IF($D2=" & """" & CkSt & """" & ","""",1)"
.SpecialCells(3, 1).EntireRow.Hidden = True
.ClearContents
End With
If Err.Number <> 0 Then
MsgBox "抽出されたデータはありません", 48
Err.Clear
End If
End Sub
下のコードは戻し用です
Sub MyUnFilter()
Cells.EntireRow.Hidden = False
End Sub
試してみてください。
|
|