EXCELのマクロ機能を教えて下さい

質問

お忙しい中、何時もありがとうございます。
EXCELで表を作成していますが、作業領域を一度に、表示したり非表示にしようとしています。
数式を入れる知識が無い為、【ツール】から【マクロの新しいマクロの登録】を使い、消したい行を指定、右クリックで【表示しないをクリック】。一行づつ消したり、CTRLキーを使い、行を先に指定してから一度に表示しないをクリックしてマクロの記録を終了させてみましたが、いざマクロ機能を使うと表のあるA列からAH列全てが非表示になってしまいます。
同じ要領で逆に表示する事をこの機能を使ってやってみましたがそれは反映されました。

どこに誤りがあるのか教えて頂ければあり難いです。
忙しい時間に申し訳ありませ

回答No.1

mshr1962 · ベストアンサー

マクロの内容を確認してください。
例１．G,I,K,M列が非表示になります
Range("G:G,I:I,K:K,K:K,M:M").Select
Selection.EntireColumn.Hidden = True

例２．G,H,I,J,K,L,M列が非表示になります
Range("G:M").Select
Selection.EntireColumn.Hidden = True

例３．現在選択されてる全ての列が非表示になります。
Selection.EntireColumn.Hidden = True

行列の表示と非表示切り替えならマクロを使うより、アウトラインのグループ化の方が便利です。
http://www.geocities.jp/oyakamassan_m/exceltips/excel60.html

お礼

お礼が遅くなり申し訳ありません。
マウスを使って工程を記録しその後、マクロの編集を開き見てはしたものの、その意味がわからず思案してました。
よくわかりました。

またグループ化という方法も始めて知り、大変役に立ちました。
有難うございました。

回答No.4

noname#158634

グループ化で非表示にすればいいじゃない。

https://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=excel+%E3%82%B0%E3%83%AB%E3%83%BC%E3%83%97%E5%8C%96&num=50

お礼

早速、回答頂き有難うございました。
お礼が遅くなり申し訳ありません。

この質問をするまで恥ずかしながらグループ化という方法を知りませんでした。
大変参考になりました。
有難うございます。

回答No.3

imogasi

>数式を入れる知識が無い為
普通のエクセルで「数式」というと、関数式をセルに入れるを意味します。関数式ではシートなどの表示・非表示は原理的に左右出来ない。
それを言うなら、「ＶＢＡコードをどう作成したらよいかわかりません」、でしょう。
ーーー
以下の疑問に対して、お礼欄ででも、内容を補足のこと。
内容が質問ではあいまい。
（１）指定行を非表示か指定列を非表示ですか
（２）複数行や列を非表示ですか
（３）飛び飛びの行などですか
これらはマクロの記録で判るはずだが。
ーー
問題は非表示にする行を、操作者（質問者）が指定するのか、シート上のデータで、何か条件を満たすものを非表示にするのか、質問に書かれていないでしょう。よく質問文を読み直してみて。
ーー
また実行のキッカケは、イベントというものにするのか（ボタンに登録）やショートカットキーで実行か、単体で実行か
などあります。経験を積んではっきり言えるように、なってください。
＞いざマクロ機能を使うと表のあるA列からAH列全てが非表示になってしまいます。
どうなってほしいのか書いてないのでは。
ＶＢＡコードに即したことを書く前に、どうなってほしいのか書くべきです。
なおセル範囲（例B４：Ｅ６）だけを非表示にするようなことは出来ないはず。

回答No.2

keithin

どんなマクロが記録されたのかナイショなので「ここが違いますからこう直しましょう」と指摘も出来ませんが，単純に言えば記録されたマクロに誤りがあるので上手く動きません。
もっともご相談のような現象が起きるのは，恐らく作業中の表範囲で「セルを結合している」からではないかとは思います。

作成例：
sub macro1()
　columns("B:B").hidden = true
　columns("D:E").hidden = true
　columns("H:H").hidden = true
end sub

お礼

早速の回答有難うございます。
またお礼が遅くなり申し訳ありません。

作ったデーターを確認したところ確かに表題の部分を結合処理をしていました。
大変参考になりました。
有難うございました。