[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『カレンダーの作成』(きんめい)
[[20040518154753]]『カレンダーの作成』(hide)
VBAを使ってカレンダーを作るにはどうしたらいいのでしょうか?
上の質問を見ました 土曜日を青に、日曜を赤のフォントにするには? についてお教え下さい。色々調べましたが 1 VBAでなくてもという回答 2 別コードの教示 3 VBAの本で見つけられませんでした 宜しくお願いします。
WindowXP
Excel2002
下記の検索結果の中に合うものはあるでしょうか。(余分なもの、重複もあるでしょうけど)
【土 日 色 条件付書式】
【土 日 色 マクロ】
(みやほりん)(-_∂)b
Dim myDay As String Dim i As Long Rows("1:4").Clear myDay = Application.InputBox("年月を入力して下さい。 (入力例) 2003/01" _ , "年月入力", Format(Date, "yyyy/mm"), Type:=2) Range("A1").Value = Format(myDay, "yyyy年") Range("A2").Value = Format(myDay, "mm月")
For i = 1 To 31 Cells(3, i).Value = i & "日" Cells(4, i).Value = Format(myDay & "/" & i, "aaa") '---ここから If Cells(4, i).Value = "土" Then Range(Cells(3, i), Cells(4, i)).Font.Color = vbBlue End If If Cells(4, i).Value = "日" Then Range(Cells(3, i), Cells(4, i)).Font.Color = vbRed End If '---ここまで If Day(CDate(Format(myDay & "/" & i, "yyyy/mm/dd")) + 1) = "1" Then Exit For Next Columns.AutoFit End Sub
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.