エクセルの日付自動表示

質問

月が入ったタイトルをワードアートで表示した場合・・・

月の入力を変えただけで自動でその月の日付を変える方法はありますか？
１～４行までタイトルが入っています。
できない場合、ワードアートはそのままに、自動で日付を変える方法はありますか？

例えば、
「８月予定表」というタイトルをワードアートでつくっているとします。
一ヶ月分の日にちが入った表があり、タイトルの８月の部分を９月にしたとき、
自動で表の日にちがかわるやり方です。
表に余計な文字は表示したくありません。
できるでしょうか？

回答No.5

mu2011 · ベストアンサー

一例です。
予定表のレイアウトは考慮していませんので適宜調整して下さい。
（１）A1に日付入力（仮に2009/8と入力）し、セルの書式設定をユーザ定義でm"月予定表"として、フォント色を白を設定
（２）ワードアート→表示を選択→数式バーに=A1を入力
（３）A2に=IF(DATE(YEAR($A$1),MONTH($A$1)+1,0)>=DATE(YEAR($A$1),MONTH($A$1),ROW(A1)),DATE(YEAR($A$1),MONTH($A$1),ROW(A1)),"")を設定し、下方向に３１行分コピー
　　　因みにA2はセルの書式設定のユーザ定義でdを設定しておいて下さい。

回答No.10

imogasi

ワードアートの文字に見えるものも、出来上がったものは実態は画像である
ワードアートなどで、文字（＝実態は文字コード）で入力しーー＞変形して画像、にすることは出来ても
画像を文字コード化するのは普通出来ない（OCRソフトの機能分野）
ーー
まして文字に見えていても、画像の一部をとりだす（あるとすればエクセル関数だろうが）そんなものは無い。エクセルの関数はセルの価しか参照できない原則を知ってますか。
＞表に余計な文字は表示したくありません。
勝手なことを言っているが、ソフトは用意された機能以外はほとんど思ったとおりに、なるものではない。
全般に、原理とかそういうものが判ってくれば、こんな質問は出さないはず。
ーー
ワードアートでセルの値と連動
例えば、H1セルに「9月の予定表」と入れておく。
ワードアートで画像を作成する。その際文字はとりあえず何でもよい。OKでシートに画像が出来る。画像を編集モードにして、数式バー部に=H1と入れる。
H1の文字列を「10月の予定表」と変えると即座に換わる。
http://questionbox.jp.msn.com/qa2200737.html
ーー
質問者はVBAを勉強して無いだろうが
http://www.geocities.jp/ttak_ask/office_docu/eo3.html
のように
Sheet1のChangeイベントに
Private Sub Worksheet_Change(ByVal Target As Range)
n = ActiveSheet.DrawingObjects(1).Name
MsgBox n '参考表示
If Target.Address = "$A$2" Then
ActiveSheet.Shapes(n).TextEffect.Text = Month(Target.Value) & "月予定表"
End If
End Sub
を入れておく。
A2セル（A列に）日付（シリアル値の日付、文字列や１日の意味で
数１の入力は不可）2009/9/1を入れる。必要あらば、A列は書式で１日や９月１日以下に見せること。
これでワードアートは「９月予定表」になる。
A2を2009/10/1に変えると「１０月予定表」に変わる。
この方式だと月1回、絶対に日付を変えるときはA2を変えるからこの機能が発動する。
日付けを数を入れる場合も、2009/9/1などと入れる場合も、どちらもオートフィルで月中の日は簡単に入力・表示できる。

回答No.9

gyouda1114

＞セルの中の文字を反映させるためには、どこかに同じ文字がないとできませんよね？
余計な文字とはそのことです。

余計な文字を非表示にするのではいけないですよね?
ワードアートでタイトルを作るだけなら、セルの結果を反映させればいいと思いますが

回答No.8

kaisendon

> 表に余計な文字は表示したくありません。

回答番号：No.3さんの画像、A1,B1,A2セルの文字が「余計な文字」だと言うのであれば、
その文字の文字色を白（もしくは背景色と同色）にすれば良いだけでは？

それか、１行目、２行目の部分をを非表示にするとか、別のシートにするとか。

あとは、No.3さんのリンクを参考に。

正直、何が問題なのかさっぱりわかりません。
簡単にできるものを、何故難しくしようとしているのでしょうか？

あと、マルチポストはイクナイです。

お礼

ありがとうございます。
エクセルは初心者です。
白文字で消せば問題ないですね。そこまで頭が働きませんでした。

マルチポスト・・・
気を付けます。

回答No.7

tttry

訂正です。

=IF($A$1=2,"",IF($A$1=4,"",IF($A$1=6,"",IF($A$1=11,"",DATE($L$1,月,L38)))))

=IF(月=2,"",IF(月=4,"",IF(月=6,"",IF(月=11,"",DATE($A$1,月,L38)))))

A1には、西暦を入力してました。

考えたら、他の回答者さんのおっしゃるように、year関数を使えば良いみたいですね。

回答No.6

tttry

日付関数を使う必要があるので、月だけではなく、西暦である２００９をどこかのセルに入力する必要がありますよ。

例えば、Ａ列のＡ１に西暦の２００９を前もって入れておきます。

そして、４行目までがタイトルが入っているので、５行目以降に１から３１の数字を入れて置きます。

実際に日数を表示したいが、Ｂ列の４行目からとすると、Ｂ列４行目のセルには、=date(A1,月,A4)と関数で入力した上で、セルの書式設定から、分類をユーザー定義を選択し、種類を小文字でｄとすれば、本来date関数だと2009/8/1と表示される所が、日付の１が表示されます。

ただ、それだと、２月４月６月１１月の日付が間違った数字が表示されますので、２９日以降は、=IF($A$1=2,"",IF($A$1=4,"",IF($A$1=6,"",IF($A$1=11,"",DATE($L$1,月,L38)))))と言う関数を入れて下さい。

その上で、Ａ列を表示しないとして隠せば良いと思います。

但し、うるう年には気をつけてください。

回答No.4

某HN クロメート(Chromate)（@CoalTar）

＞月の入力を変えただけで自動でその月の日付を変える方法はありますか？
ワードアートの文字列を判断材料にするためには、人間の判断が必要になることから、マクロの使用になるでしょう。

＞できない場合、ワードアートはそのままに、自動で日付を変える方法はありますか？
A5セル =DATE(A2,A3,1)
A6セル =A5+1
A22セルまでオートフィル
A33セル
=IF(A32="","",IF(DAY(A32)+1=DAY(A32+1),A32+1,""))
A35セルまでオートフィル
(A6セルからこのような数式をコピーしても良いですが無駄なので)
添付図参照
直接的な回答ではないので参考まで

回答No.3

gyouda1114

A1に　2009　
B1に　9　　
A2に　=B1&"月予定表"　B1を変更すれば自動的に変更されます。
A4に　=DATE($A$1,$B$1,1)　A1、B1を変更すれば自動的に変更されます。
A5に　=A4+1　下方にオートフィル　月末を過ぎると翌月になります。

ワードアートにセルの中の文字を反映させたい。
http://pc.nikkeibp.co.jp/article/knowhow/20090309/1012986/
A2をワードアートに反映すればタイトルとして使えます。

補足

ありがとうございます。
自動で表示する表はできるのですが、今回つくるものは、ワードアートの月と表の日付を連動させたいのです。
セルの中の文字を反映させるためには、どこかに同じ文字がないとできませんよね？
余計な文字とはそのことです。
わかりにくいですよね？

回答No.2

USKy

月の日付は31日・30日・28日（29日）と月ごとに変わりますから、これを一様にワークシート関数で片付けるのは不可能です。

またワードアートからデータを抜く（ワードアートを参照する）ワークシート関数も用意されていませんから、ワードアートの内容によって値を返すこともできません。

カレンダー様の表を作る場合ですが、例えばセルB5が1日になるように下方向に日付を入れるとするなら、セルB5にはマニュアルで日付を入力し、B6～B35の30行には「1つ上のセル＋１」という数式（セルB6には「=B5+1」）を入れます。
そうしておけば、セルB5に月初日付を入力するだけで意向は自動表示されますね。

31行（31日分）の表ですから、セルB5に9/1と入れると最終行は10/1になってしまいますね。都合が悪ければその行を削除するしかないでしょう。むろん2月も同様です。

セルの書式設定を変えれば日付の表示形式も簡単に変えられますし、ワークシート関数を組み合わせて曜日を表示することもできます。

これを当面その表が必要な期間分だけ、例えば年内分などをまとめて作って１つのブックに保存しておくのがベターです。日報のように、多人数にファイルを配付するならなおさらですね。

回答No.1

kmetu

ワードアートとの連携ではありませんが
一ヶ月分の日にちが入った表を最初の日だけ日付を入れて
たとえばA1が最初の日でA2以降に日付があるならA2を=A1+1とかにして
下にフィルしておけば
A!を変更しただけでその後の日付は変わりますよ。