エクセルの列を表示・非表示させるマクロ

質問

エクセル２００７を使っています。
Sheet1は，多数の人がデータを入力するシートです。

Ａ列～Ｆ列までは，タイトル列ですが，
例えば井上さんはＧ列～Ｋ列に入力し，太田さんはＬ列～M列に入力し，・・・・という感じです。
それぞれの人が使用するとき，使いやすいように自分以外の列を非表示にする人が多いのです。
それは別にかまわないのですが，使用後に元に戻してくれない人が多くて困っています。
（会社には，パソコンのことをまったく知らないオバチャン達がいて，毎回「私のデータが無くなってる」と大騒ぎされるのです。）

そこで，Sheet1から他のシートに移動するとき，自動的にすべての列が再表示されるようになればいいなと思い，質問しました。

さらに，この質問をしながら思いついたことですが，

例えばSheet2にコマンドボタンを多数作成して，それぞれの人の名前を割り当てたシートを用意したら便利ですよね。

つまり，先ほどの太田さんが自分のボタンを押したとすると，
Sheet1に移動し，無関係な列（G～K列と，N～GU列〔最終列です〕）を非表示にするようなマクロがあれば，さらに便利だと思うのです。

分かりにくい文章で申し訳ありませんが，
(1)　コマンドボタンに割り当てて，Sheet1に移動し，不必要な列を非表示にするマクロ
(2)　シートが移動すると，すべての列を再表示しておくマクロ
以上　２点を教えていただきたいのですが，
よろしくお願いします。

回答No.1

kybo · ベストアンサー

1)
標準モジュールに貼り付けし、フォームコントロールのコマンドボタンに登録します。

Sub 井上さん()
Worksheets("Sheet1").Columns("G:H").Hidden = True
End Sub

2)
Sheet1のシートの見出しで右クリックし、コード表示で貼り付け

Private Sub Worksheet_Deactivate()
Columns.Hidden = False
End Sub

お礼

早速のご回答ありがとうございました。

思い通りのマクロができました。
早速　導入してみようと思います。
ありがとうございました。

回答No.2

keithin

「コマンドボタン」の使い方はご存じなのでしたら，下記を応用してください。

その１：
シート２にオートシェイプなどで皆さんの名前のボタンを用意する
その中からたとえば伊藤さんボタンには下記のマクロを右クリックして登録しておく

手順：
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub 伊藤_show()
worksheets("Sheet1").columns("G:Z").hidden = true
worksheets("Sheet1").columns("G:K").hidden = false
end sub

その２：
＞Sheet1は，多数の人がデータを入力するシートです。

伊藤さんが作業を終えた後，ブックを開きっぱなしにしてそのまま次の田中さんが席を替わって自分のデータを入れるみたいな仕事の仕方をしているのですか？？
少なくとも，皆さんには自分のデータを入れたらブックを保存して閉じるぐらいまでは指導しましょう。

標準モジュールに
sub Auto_Open()
worksheets("Sheet1").columns("G:Z").hidden = false
end sub

と載せておく。

お礼

早速のご回答ありがとうございました。

思い通りのマクロができました。
早速　導入してみようと思います。
ありがとうございました。