土日の列幅の自動変更を教えてください。

行事予定表をＤ列の3行目を1日として右に31日までの日付を作成し
4行目に曜日を関数で自動表示しています。
土日の列幅は自動で２に変更するような関数やマクロがあれば教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： yone_sk 回答日時： 2009/11/13 16:48

> 土日の列幅は自動で２に変更するような関数やマクロがあれば教えてください。

ExcelVBAがわかると思っていいのでしょうか？
であれば
------------------------------------------
Const c = 4 '開始Col
Const r = 4 '開始Row
Dim i As Integer
i = c
While Cells(r, i) <> ""
　If (Cells(r, i) = "土") Or (Cells(r, i) = "日") Then
　　Range(Cells(r, i), Cells(r, i)).ColumnWidth = 2
　End If
　i = i + 1
Wend
------------------------------------------
いかがでしょう？

この回答へのお礼

早速のご教示、ありがとうございます。
ＶＢＡは、初心の初心ですが、ちゃんとできました。
また、よろしくお願いします。

お礼日時：2009/11/13 17:07