[[20190627121718]]　『チェックボックスを利用してオートフィルタで抽潤x（よっしー）　ページの最後に飛ぶ

『チェックボックスを利用してオートフィルタで抽出する』（よっしー）

１つのセルの中に４つのチェックボックス(Activexコントロール)を記載して、そのチェックボックスの選択結果を別セルに表示して、その別セルにオートフィルタを適用してチェックボックスで選択したものだけを表示するマクロを作成したいのですが、
「チェックボックスで選択したものを表示する」マクロと、「選択をクリアにする」マクロをそれぞれ作成して動かした時に、「チェックボックスで選択したものを表示させる」のはうまくいくのですが、そのご「選択をクリアにする」マクロを動作させた時に、選択クリアで表示できても、チェックボックスが選択できないという事象がおこります。

調べてみると、チェックボックスのプロパティの中で「top」の数値がおかしな表示となり選択ができなくなるということがわかり、プロパティで「top」の数値を修正すると問題なくチェックボックスの選択ができるようになります。

チェックボックスの結果を用いてフィルタ掛けした場合でも、選択解除した後にプロパティをいじることなくチェックボックスを選択できるようにしたいのですが、どなたかご教示願えませんか。

チェックボックスで選択したものを表示
SUB

        Row(”3:3”).Select
        Selection.Autofilter
        ActiveSheet.Range(“A3”).Autofilter Field:=21,Criterial1=“true”
End sub

選択クリアにする
Sub

       ActiveSheet.ShowAllData
End sub

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

チェックボックスをまったく見ていないコードを提示されても、何のことやらさっぱり…。あと、コードは手打ちせず、動いているものをコピペしてください。動かないコードを貼られると、直す手間がかかるので、失礼ですよ。

それに、選択解除するにはチェックボックスのValueプロパティをFalseにする、しか方法がないと思うのですが、なんでプロパティをいじっては駄目なのでしょう？
（???） 2019/06/27(木) 17:02

チェックボックスの書式設定にて、「オブジェクトの位置関係」を「セルに合わせて移動やサイズ変更をする」にしたら、どうなりますか？

なお、この変更を行う前に、オートフィルタは解除もしくは全データを表示している状態で行ってください。
また、Topの数値は正しい状態（本来自分が配置したい場所にチェックボックスがある）状態で行ってください。

私の環境（Excel2013）では、この設定にすることにより、オートフィルターを設定してもTopが変わることなく、オートフィルタですべて表示にしても正常にクリックできます。

これで改善されない場合は、申し訳ありませんが私には分かりかねますので、他の方のコメントをお待ちください。

（う） 2019/06/27(木) 17:05

ちなみにこの現象は、マクロは関係なく、手動操作でも起きますよね？
私は手動操作で発生しました。
マクロがどうこう以前に、まずは手動で正しく動くのか確認してください。

見当違いでしたら申し訳ありません。
（う） 2019/06/27(木) 17:12

コントロールのサイズが勝手に小さくなる、というのが問題（Topが変わる？大きさが変わるというのならば経験があります）であれば、事前にコントロールのサイズ（WidthとHeight）をメモしておき、クリア時にでもコントロールのサイズを固定値でセットする、というコードを書けば抑止できるでしょう。でも、プロパティいじるから、これも駄目なのですかね？
（???） 2019/06/27(木) 17:29

???様
作業している端末がネット環境になく、ケータイで打ち込むしか方法がなかったため、コードを手打ちしました。どうしても実施したくこの掲示板で助けていただこうと思い、投稿しました。今後はネット環境がない場合投稿しないようにします。誠に申し訳ありませんでした。
（よっしー） 2019/06/27(木) 17:49

う様
ご指摘の方法で改善しました。ありがとうございました。
おっしゃる通り、手動でも発生することを確認することを失念しておりました。お手数をおかけして申し訳ありませんでした。
（よっしー） 2019/06/27(木) 18:01

コメント返信：

[ 一覧(最新更新順) ]

[[20190627121718]] 『チェックボックス を利用してオートフィルタで抽潤x（よっしー） ページの最後に飛ぶ

[[20190627121718]]　『チェックボックスを利用してオートフィルタで抽潤x（よっしー）　ページの最後に飛ぶ