サポートシェアリングソリューション
OKWAVE Plus

このQ&Aは役に立ちましたか?

ベストアンサー
すぐに回答を!

一覧表から日記帳へ自動転記

2019/02/04 06:31

エクセルで日記帳(365日=365シート)作りたい
エクセル2010使用です。1シート、1日で365シート作成したいです。2点アドバイスお願いします。

1点目はシートコピーです。1枚目のシートに365シート共通の内容記述してあります。一度に365シート分コピー可能な方法。

2点目は、シート名の変更です。オートフィルのようなものはないのでしょうか。現在は1シートずつ名前変更の方法しか浮かびません。

3点目は一覧表があります。A1;年月日、B1;天気、C1;血圧・・・。このデータを作成したシートに自動転記したい。
現在は1月1日シートの各セルに =A2、=B2、=C2
1月2日シートの各セルに =A3、=B3、=C3と実施しています。

※OKWAVEより補足:「ひかりTVのサービスやISPぷらら」についての質問です。

質問者が選んだベストアンサー

ベストアンサー
2019/02/04 10:41
回答No.2

1.2.3ともVBAでやれば、苦はない。こういうことに関心がないなら、
ーー
1日づつ前日分をコピー(や次週1週間分)を習慣化すればよいのでは。
ーー
2には、簡単な良い方法が(意外にも)ない。
VBAでやれば簡単だが。
ーー
VBAで、日にちの入った名前のシートを作るなら
Sub test01()
For i = #2/1/2019# To #2/8/2019#
sn = "日記" & StrConv(Format(i, "mmdd"), vbWide)  '/は使えない Worksheets.Add.Name = sn
Next i
End Sub
を標準モジュールというシートに張り付けて実行すれば、簡単に作れます。
#2/1/2019#は「XXから」に当たる日付で、#2/8/2019#は、「yyまで」に当たる日付で、その間の、暦にある日付が入ったシート名のシートを作ります。
ただし、シート名には、スラッシュなど特殊記号で使えない文字があります。
表の罫線枠などのコピーは、シート名のタブをSHIFTキーを押しながら、から・までを指定し、コピー貼り付けすれば、貼り付け対象シートの、同じセル範囲に
表(枠と見出しだけとか)が貼りつくのでは。

このQ&Aは役に立ちましたか?

この質問は投稿から一年以上経過しています。
解決しない場合、新しい質問の投稿をおすすめします。

質問する

その他の回答 (2件中 1~2件目)

2019/02/04 07:01
回答No.1

1点目:シートの画面左上の◢マーク上で右クリックしてコピー。
2点目:シート名の変更は、オートフィルのような簡単なものはありません。
3点目:1月1日シートの各セルに =A2、=B2、=C2
1月2日シートの各セルに =A3、=B3、=C3とする以外に簡単な方法はありません。

関連するQ&A

お礼をおくりました

さらに、この回答をベストアンサーに選びますか?

ベストアンサーを選ぶと質問が締切られます。
なおベストアンサーを選びなおすことはできません。