列を1つずつ非表示にしたい

Question

２時間にらめっこしていますがずっと黄色バーが消えません･･･。

B列のデータとC列のデータ
B列のデータとD列のデータ･･･と見比べる必要があります。

そこで、見比べやすくするためにC列～N列までを順番に列の非表示を行いたいのです。
そして、可能であれば一旦非表示にした列も逆順に再表示を行ないたいです。

for～NextとHiddenの組み合わせになるかと思うのですが
うまくいきません。
ご教示いただければさいわいです。

tom04 · Accepted Answer

No.2です。

＞使用者の任意で1列ずつ非表示されるようにしたいのです

マクロを実行するたびにC列から順に非表示にするようにしてみました。

Sub 非表示()
    Dim i As Long, j As Long
            For j = 14 To 3 Step -1
                If Columns(j).Hidden = True Then Exit For
            Next j
            If j < 14 Then
                Columns(j + 1).Hidden = True
            End If
End Sub

尚、再表示も必要だと思うので↓が再表示になります。

Sub 再表示()
    ActiveSheet.Columns.Hidden = False
End Sub

※　再表示は1列ずつの再表示ではなく、列すべてが再表示されます。

＞「-」ボタンを使用者が押下すると非表示になり・・・
アウトラインのような感じをお望みなのでしょうかね？
この辺がよく判らないので単純なマクロにしていますが、
ダブルクリックイベントなどにすれば対応できるような気がします。m(_ _)m

ママチャリ · Answer

ご希望のものとはちょっと違うので、お気に召さなければ読み捨てて下さい。
「ウィンド枠の固定」ってご存知ですか？VBAなんて大掛かりな仕組みを作らなくても十分対応できるかと・・・。

tatsu99 · Answer

No1です。
＞ですので、「+」ボタンでC列～以降を順番に非表示にすることで
＞B列と本来ミス内容が含まれる列を隣同士に並べたいのです。

「+」ボタンとは、添付図のようなコマンドボタンのことを言われているのでしょうか？（添付図の赤線で囲んだボタン）
もし、そうであれば、このボタンが１つなら、１つのマクロしか割り当てられません。
1つのマクロでは１つの機能（例えばC列を非表示にする）のみですので、
もし、他の機能（C,D列を非表示にする）とか更に他の機能（非表示にした列を再表示する）については、他のマクロが
必要になるかとおもいますが、いかがでしょうか。

tom04 · Answer

こんばんは！

＞B列のデータとC列のデータ
＞B列のデータとD列のデータ･･･と見比べる必要があります。

とは、行ごとの検索（見比べ）になるのでしょうか？
①　すなわち、B列2行目？（1行目が項目行になっているコトが多いので）からB列最終行までを対象に
各行ごとに判断するのか？

②　質問文では一致なのか不一致なのかが書いてありませんね。
B列と一致する場合のC～N列、それとは逆に不一致の場合のC～N列を非表示にするのか？

この辺が判らないとコードの記載のしようがありません。m(_ _)m

tatsu99 · Answer

＞そこで、見比べやすくするためにC列～N列までを順番に列の非表示を行いたいのです。
＞そして、可能であれば一旦非表示にした列も逆順に再表示を行ないたいです。
1回のマクロの操作で非表示にするのは１列（例えばC列）のみですよね。
それなら手作業で行っても問題ないと思いますが、マクロにこだわる理由は何でしょうか。
また、マクロで行うにしても、
①どの列を対象にするかの情報
②その列を非表示にするのか、元にもどすのかの情報
を外部から与える必要があるかと思いますが、それについてはどのように考えてますか。

列を1つずつ非表示にしたい

No.2です。

ご希望のものとはちょっと違うので、お気に召さなければ読み捨てて下さい。

No1です。

こんばんは！

＞そこで、見比べやすくするためにC列～N列までを順番に列の非表示を行いたいのです。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング