Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)
kazu (7739), 条件付書式 (2647)
- [[20060529075203]]
- #score: 6690
- @digest: 7ae573da2461d97f643b5e667fe4a0a9
- @id: 22458
- @mdate: 2006-05-29T04:52:54Z
- @size: 2094
- @type: text/plain
- #keywords: 20040518154753 (15241), myday (9702), 月拝 (7323), 見以 (7323), 日色 (6634), 色マ (4777), windowxp (4200), stra (3516), 答2 (2892), ・ha (2721), 別コ (2622), 以来 (2256), 示3 (2179), perpage (2081), 力例 (1983), estindex (1943), estseek2 (1943), 月入 (1836), 力", (1614), 年") (1515), カレ (1354), format (1303), 日" (1133), attr (1026), phrase (1001), clip (992), 土日 (879), レン (843), autofit (815), ンダ (743), 『カ (730), 余分 (727)
- 『カレンダーの作成』（きんめい）
[[20040518154753]]『カレンダーの作成』（hide） VBAを使ってカレンダーを作るにはどうしたらいいのでしょうか? 上の質問を見ました 土曜日を青に、日曜を赤のフォントにするには? についてお教え下さい。色々調べましたが 1 VBAでなくてもという回答 2 別コードの教示 3 VBAの本で見つけられませんでした 宜しくお願いします。 WindowXP Excel2002 ---- 下記の検索結果の中に合うものはあるでしょうか。（余分なもの、重複もあるでしょうけど） 【土 日 色 条件付書式】 http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E5%9C%9F%E3%80%80%E6%97%A5%E3%80%80%E8%89%B2%E3%80%80%E6%9D%A1%E4%BB%B6%E4%BB%98%E6%9B%B8%E5%BC%8F&perpage=100&attr=&order=@uri+STRA&clip=-1 【土 日 色 マクロ】 http://www.excel.studio-kazu.jp/cgi-bin/estindex/estseek2.cgi?phrase=%E5%9C%9F%E3%80%80%E6%97%A5%E3%80%80%E8%89%B2%E3%80%80%E3%83%9E%E3%82%AF%E3%83%AD&perpage=100&attr=&order=@uri+STRA&clip=-1 (みやほりん)(-_∂)b ---- [[20040518154753]]のVBAにフォントの色を変更する条件を追加してみました。(Hatch) Sub Sample() 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 ---- みやほりんさん・Hatchさんありがとうございました 実はこのコード、2004年1月拝見以来の課題でしたので、 解決してとてもうれしいです。 今後とも宜しくお願いいたします。Byきんめい... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200605/20060529075203.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608132 words.
訪問者：