| |
awu さま／yhar
完璧ですっ!あれほど抽象的な質問に対してこれほどのご回答を当日にいただけるとは！！
ありがとう御座いました。コードの内容はこれから熟読して理解に努めます。
いつの日か私自身もどなたかの役に立てるよう精進しますので今後ともよろしくお願いします！！！
▼awu さん：
>こんな感じで如何でしょうか。
>
>データの内容が分りませんので、提示のコードは、以下の条件になっております。
>
>・Calculateイベントを使用していますので、何処か空いているセル(例えばA1)に
> =SUBTOTAL(3,A7:Q50) 等の計算式を設定します。
> (フィルタのOn/Offで再計算になるような計算式が既にある場合は、不要です。)
>
>・日付等にフイルタを掛ける場合の条件は、内部ではシリアル値で処理されるため
> 表示される条件もそのままシリアル値で表示されます。
> (ちょっと工夫すれば、書式と同じ表示にすることは可能です。)
>
>・フイルタ位置は、自動で検出していますが、フィルタ解除時のレスポンス向上の
> ため表示された条件式を消去するためのコードが、3行目にありますので、
> フィルタ位置変更の時は、ここだけ変更してください。
>
>使用しているシートのシート名タブを右クリックして「コードの表示」を指定し、
>開いたコードウィンドウに下記コードをコピーして貼り付けます。
>
>これでたぶん ご希望通りの動作になると思います。
|
|
yhar
- 05/10/6(木) 18:08 -
