日付けと曜日の結合

質問

以前に質問して日付けと曜日を同じセルに表示して条件付き書式から日曜日に色をつけることができましたが、これだと年月日まで色がつきます。
そこでＢ１に年度の2009、Ｃ１に月の１１、Ｂ３から日付けの１から３１を入力。Ｃ３に=date(b1,c1,b3) と式を入れ　年月日を表示、
ｄ３に　=TEXT(DATえ($B$1,$C$1,$B3),"aaa")　として条件書式で日曜日を赤表示にしました。　ほかの　１つのセルに　ｃ３とｄ３を結合して表示したいのですが、　=c3&d3 では表示できません。　ｃ３、ｄ３の結果を文字列にするとかして　結合できないものでしょうか。よろしくお願いします。

回答No.1

MotoShin · ベストアンサー

=TEXT(C3,"yyyy/mm/dd aaa")
むしろこんな感じではだめでしょうか？

回答No.4

KURUMITO

解答Ｎｏ3です。
日にちの表示と曜日の表示を一つのセルにして日曜日の文字だけに赤色を付けることは関数ではできません。マクロを使うことになります。
マクロを作成する前に該当のシートのＢ3セルには次の式を入力して下方にオートフィルドラッグします。
=IF(OR(B$1="",C$1="",MONTH(DATE(B$1,C$1,ROW(A1)))<>C$1),"",TEXT(DATE(B$1,C$1,ROW(A1)),"yyyy/m/d")&"("& TEXT(DATE(B$1,C$2,ROW(A1)),"aaa")&")")
セルには文字列として入力されることになります。
その後にシート見出しで該当のシート名を右クリックして「コードの表示」をクリックします。
表示される画面の右側の画面に次のマクロを入力します。

Sub 日曜日色付け()
Dim i As Integer
Dim n As Integer
Dim MOJI As String
For i = 3 To 33
If WorksheetFunction.CountIf(Range("B" & i), "*日*") > 0 Then
Range("B" & i).Select
n = Len(Range("B" & i).Value)
MOJI = Range("B" & i).Value
ActiveCell.FormulaR1C1 = MOJI
With ActiveCell.Characters(Start:=n - 1, Length:=1).Font
.Color = -16776961
End With
End If
Next
End Sub
マクロを実行するためには「開発」タブの「マクロ」をクリックし、表示の画面で日曜日色付けを選択して「実行」すればよいでしょう。

回答No.3

KURUMITO

＝Ｃ3＆Ｄ3のような式を使った場合にはＣ3セルは日付の入ったセルで、そのデータはシリアル値(1900年1月1日が1となっている数値）で評価されていますのでそのシリアル値が表示され2009年11月1日は40118となって＝Ｃ３＆Ｄ3は40118日のように表示されてしまいますね。
2009/11/1日のように表示するのでしたら次のような式にすることが必要です。Ｃ3の値をシリアル値ではなく日付の形をした文字列にすることが必要です。
=TEXT(C3,"yyyy/m/d")&D3
Ｄ3の曜日はＣ3の値から直接、aaaとすることで求めることができますので、
次の式でよいのですが。
=TEXT(C3,"yyyy/m/d aaa")
なお、Ｂ3から下方のセルには１から31まで入力をしているようですが年と月が別のセルで設定されているのですから次のような式を直接にＢ3セルに入力し下方にオートフィルドラッグすればよいでしょう。設定した月に応じた日付を表示させることができます。
=IF(MONTH(DATE($B$1,$C$1,ROW(A1)))<>C$1,"",DATE($B$1,$C$1,ROW(A1)))
式を入力し下方にドラッグした時点ではシリアル値がセルに表示されます。
その後にそれらのセルを右クリックして「セルの書式設定」から「表示形式」の「日付」で任意の表示形式を選ぶこともできますし、単に１と数値のみを表示させるのでしたら、「ユーザー定義」を選び、右の種類の窓に　ｄ　のみを入力すれば、11月でしたら30までの数値が表示されますね。
日や曜日を含めてＢ3セルから下方に表示させるのでしたら「ユーザー定義」で、例えば　d"日"(aaa) のように入力すればよいでしょう。
このようにすることでＢ列のみで日にちや曜日を表示させることができますね。

補足

すみません。質問の仕方が悪かったですね。２つのセルは結合できましたが、年月日を省いて曜日だけに色をつけたいのですが・・・・
簡単な方法はありませんンか

回答No.2

MotoShin

こうしたらさらに利用するセルが減ります。
=TEXT(DATE(B1,C1,B3),"yyyy/mm/dd aaa")