エクセルで土日列の非表示方法を教えて下さい

質問

各シートに各月の暦を作成しています。
Ｂ５に月の１日を入力すると横列Ｃ５Ｄ５・・・に
１日、２日・・・３１日まで自動的に日にちが入るようにしています。
また、その下のＢ６の行に曜日が出るようにしていますが、
土日の列幅を０（非表示）にしたいのですが、方法を教えてください。
よろしく、お願いいたします。

回答No.2

zap35 · ベストアンサー

マクロがよければ、以下のようなマクロでもできます。ただしB5:AF5の「日にち」は「2007/11/19」のようなエクセルの日付形式で入力され、書式設定で「1日」「2日」のような表示になっているものとします。

以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro1()
Dim idx As Integer
For idx = 5 To 35
　　If Weekday(Cells(5, idx).Value) = vbSunday Or _
　　　　Weekday(Cells(5, idx).Value) = vbSaturday Then
　　　　Columns(idx).Hidden = True
　　Else
　　　　Columns(idx).Hidden = False
　　End If
Next idx
End Sub

お礼

早速のご教示、ありがとうございました。
出来ました。早速利用させていただきます。
また、よろしくお願いいたします。

回答No.1

syuyama

自動で、ということですか？
自動でならばマクロを使わないとできないと思います。

手動でいいのならば、
土日の列で右クリック→表示しない
です。

補足

自動でということで、お願いいたします。
よろしく、お願いいたします。