本文へ移動
サポートシェアリングソリューション
OKWAVE Plus

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

ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:一覧表から日記帳へ自動転記)

エクセルで日記帳を作成する方法とアドバイス

2023/10/12 16:23

このQ&Aのポイント
  • エクセルを使用して日記帳を作成する方法について1点目はシートコピー、2点目はシート名の変更、3点目は一覧表からの自動転記に関するアドバイスをまとめました。
  • 1点目のシートコピーには一度に365シート分をコピーする方法を紹介します。2点目のシート名の変更では、オートフィルのような機能はないため、1シートずつ名前を変更する方法を説明します。
  • 3点目では、一覧表のデータを作成したシートに自動転記する方法を解説します。現在はシートごとにセルの数式を変更しているようですが、よりスマートな方法を提案します。
※ 以下は、質問の原文です

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

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とする以外に簡単な方法はありません。

お礼をおくりました

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

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