エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20120524165313]]: #score: 4241; @digest: 38f3a08b35bc73824cd1e9824775cacd; @id: 59061; @mdate: 2012-05-24T12:08:09Z; @size: 1863; @type: text/plain; #keywords: 行me (7323), bg8 (6955), グ実 (5317), 、w2 (4405), autofilter (3413), calculate (3255), criteria2 (2821), operator (1664), 純粋 (1632), autofiltermode (1531), ド記 (1518), w2 (1251), ルタ (1245), フィ (1043), ィル (992), トフ (965), criteria1 (962), selection (953), 直後 (914), オー (824), 索結 (626), イベ (618), 変化 (560), ベン (506), field (492), 解除 (490), select (488), 一例 (482), タオ (474), range (449), 残念 (438), address (422); 『VBA オートフィルタの設定』（サン）
VBA初心者です。エクセル2003です。よろしくお願いします。 A8:Z8にオートフィルタをかけいて、W2とX2には数式で検索結果（文字）がでる様にしています。実行したい事が、W2の値が変更したら、フィルタがかかっていれば解除し再度A8:Z8にフィルタをかけ、E列のオートフィルタオプションで W2と等しい OR X2と等しいという設定で抽出したいのですが出来ません。アドバイスお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("W2").Address Then If ActiveSheet.AutoFilterMode = False Then Range("A8:BG8").Select Selection.AutoFilter End If Selection.AutoFilter Range("A8:BG8").Select Selection.AutoFilter Range("E8").AutoFilter Field:=5, Criteria1:=Range("W2"), Operator:=xlOr, _ Criteria2:=Range("X2") End If End Sub ---- 数式でW2が変化するなら Calculateイベントじゃないかな（みやほりん） ---- すでに、みやほりんさんから回答があるけど、計算式によるセルの値の変化では、残念ながらChangeイベントが発生しないので Calculateを使わざるを得ない。ただ、アップされたコード自体、ちょっと見直した方がいいかな。実際には、必ずオートフィルターがかかっている状況だろうから、必ずRange("A8:BG8").Select は実行されるんだけど純粋ににコードだけを見ると、上の If で条件に合わなければSelectされない。なのに、End If の直後で、Selection を使っているね。そもそもが Select/Selection は使わないほうがいい。以下、コード記述の一例。 Private Sub Worksheet_Calculate() 'フィルターが設定されていればいったん解除 If Me.AutoFilterMode Then Me.AutoFilter.Range.AutoFilter Range("A8:BG8").AutoFilter 'あらためて範囲指定でオートフィルター設定 'フィルタリング実行 Me.AutoFilter.Range.AutoFilter Field:=5, Criteria1:=Range("W2"), Operator:=xlOr, Criteria2:=Range("X2") End Sub (ぶらっと) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201205/20120524165313.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ