数式の入っているセルに文字入力

質問

エクセル2003を使っています。
数式(関数)の入っているセルに文字入力はできないでしょうか。

エクセルでカレンダーを作っているのですが、
ボックスカレンダーで関数で年月を入力したら
日にちが入るように関数を入れています。

1月のカレンダーで１と日付が入ったセルに
元旦と文字を入力したいのですが
できるのでしょうか？
できるとしたら　どうしたらいいのでしょうか？

回答No.2

wisemac21 · ベストアンサー

1例を示しますので、適当に応用してください。

A1に2011、A2に1、
D1:E19に祝日リスト

1月1日 元旦
1月2日 振替休日
1月10日 成人の日
2月11日 建国記念の日
3月21日 春分の日
4月29日 昭和の日
5月3日 憲法記念日
5月4日 みどりの日
5月5日 こどもの日
7月18日 海の日
9月19日 敬老の日
9月23日 秋分の日
10月10日 体育の日
11月3日 文化の日
11月23日 勤労感謝の日
12月23日 天皇誕生日

A4=TEXT(DATE($A$1,$A$2,ROW()-3),"d")&IF(ISNA(VLOOKUP(DATE($A$1,$A$2,ROW()-3),$D$4:$E$19,2,FALSE)),"",VLOOKUP(DATE($A$1,$A$2,ROW()-3),$D$4:$E$19,2,FALSE))

お礼

いろいろありがとうございました

補足

祝日表示されました。
曜日も入れたいときはどうしますか？

たとえば　1つのセルに

　1(土)元旦

どのように手を加えたらできますか。

よろしくお願いします。

回答No.7

m_and_dmp

オリジナルになるべく手を加えないで結果が希望通りになるようにしましたが、元旦以外の祝休日を表示させたくなると、条件式が複雑になりすぎるので、ANo.2の方法が良いと思います。

A3=IF(AND($C1=1,$G3=7),"元旦",IF(OR($G3="元旦",$G3<7),"",$G3-6))
B3=IF(AND($C1=1,$G3=6),"元旦",IF(OR($G3="元旦",$G3<6),"",$G3-5))
C3=IF(AND($C1=1,$G3=5),"元旦",IF(OR($G3="元旦",$G3<5),"",$G3-4))
D3=IF(AND($C1=1,$G3=4),"元旦",IF(OR($G3="元旦",$G3<4),"",$G3-3))
E3=IF(AND($C1=1,$G3=3),"元旦",IF(OR($G3="元旦",$G3<3),"",$G3-2))
F3=IF(AND($C1=1,$G3=2),"元旦",IF($G3="元旦","",$G3-1))
G3=IF(AND($C1=1,WEEKDAY(A1&"/"&C1&"/"&1)=7),"元旦",8-WEEKDAY(A1&"/"&C1&"/"&1))
A4=IF($G3="元旦",2,$G3+1)
あとは同じです。

お礼

いろいろありがとうございました。

回答No.6

tom04

こんばんは！
一つの案ですが、別セルに祝日名を表示させてはどうでしょうか？

一例ですが↓の画像で説明します。
別Sheet（画像ではSheet2に祝日データをシリアル値で作成しておきます。）
そして、Sheet2のB2～B16セルを範囲指定　→　祝日　と名前定義します。
（範囲指定した後に、直接名前ボックスに　祝日　と入力してOK）

Sheet1のA1セルに西暦年・A2に月の数値を入力します。
C1セルにその月の1日のシリアル値を表示させておきます。
（これが目障りであればフォントの色を「白」等に設定しておけば見えなくなります）
C1セルは
=DATE(A1,A2,1)

A5セルに
=IF(MONTH($C$1-WEEKDAY($C$1)+COLUMN(A1)+7*(ROW(A1)-1)/2)=$A$2,$C$1-WEEKDAY($C$1)+COLUMN(A1)+7*(ROW(A1)-1)/2,"")
A6セルに
=IF(OR(A5="",COUNTIF(祝日,A5)=0),"",INDEX(Sheet2!$A$2:$A$16,MATCH(A5,祝日,0)))
という数式を入れています。
そして、A5・A6セルを範囲指定　→　条件付書式から　→　数式が　→　数式欄に
=A6<>""
として書式　→　フォント　→　「赤」を選択

A5・A6セルを範囲指定し、A6セルのフィルハンドルで土曜の列までオートフィルでコピー！
そのまま（2行を範囲指定したまま）下へ2行ずつオートフィルでコピーすると
画像のような感じになります。

以上、参考になれば良いのですが
他に良い方法があればごめんなさいね。m(__)m

お礼

いろいろありがとうございました。
下のセルに入れることができるのですね。

回答No.5

m_and_dmp

その関数がユーザー関数（自分でお作りになった関数）なら、ちょっと細工すればできます。関数の中で処理したらいいのです。

お礼

ありがとうございました。

補足

回答ありがとうございます。

自分で作った関数です。
私の作った式は以下のとおりです。
どう処理したらいいのでしょうか？

A1に年　C1に月
次の行に曜日を入れています。

A3の行は
A3=IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=1,1,"")
B3=IF(A3<>"",A3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=2,1,""))
C3=IF(B3<>"",B3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=3,1,""))
D3=IF(C3<>"",C3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=4,1,""))
E3=IF(D3<>"",D3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=5,1,""))
F3=IF(E3<>"",E3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=6,1,""))
G3=IF(F3<>"",F3+1,IF(WEEKDAY($A$1&"/"&$C$1&"/"&1)=7,1,""))

A4の行は
A4=G3+1
B4=A4+1
C4=B4+1
D4=C4+1
E4=D4+1
F4=E4+1
G4=F4+1

A5～G6まではA4の行と同じように+1の式です。

A7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&G6+1))=TRUE,"",G6+1)
B7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&A7+1))=TRUE,"",A7+1)
C7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&B7+1))=TRUE,"",B7+1)
D7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&C7+1))=TRUE,"",C7+1)
E7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&D7+1))=TRUE,"",D7+1)
F7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&E7+1))=TRUE,"",E7+1)
G7=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&F7+1))=TRUE,"",F7+1)
A8=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&G7+1))=TRUE,"",G7+1)
B8=IF(ISERR(WEEKDAY($A$1&"/"&$C$1&"/"&A8+1))=TRUE,"",A8+1)

と関数を入れ、カレンダーを作っています。
よろしくお願いします。

回答No.4

noname#204879

》 1月のカレンダーで１と日付が入ったセルに
》 元旦と文字を入力したいのですが
》 できるのでしょうか？

やってみてください。そこのセルの数式が消えるだけです。
他に何か不都合が出ますか？ＹＥＳならそれを具体的に教えてください。

お礼

ありがとうございました

補足

ありがとうございました。

私の説明不足で申し訳ありませんでした。
数式の答を消さずに文字を入力したいのです。

回答No.3

wisemac21

回答２です。
補足です。
式は下へコピーしてください。

お礼

ありがとうございました

回答No.1

mu2011

>数式(関数)の入っているセルに文字入力はできないでしょうか。
　⇒出来ません。
　　一例ですが、現状の日付セルにIF関数で1月1日を判定して文字列を表示する様に数式を追記するとか、日付セルを２セル構成として、数式セルと入力セルとしては如何でしょうか。

お礼

ありがとうございます。

追記かセルを2つにするかですね。