
Excel2010を使って来年の小遣い帳を作っています。
日付欄に「1/1」と入力したら「1日」と表示するようにユーザー設定をしています。
しかし、この場合のセルの値は「2012/1/1」になります。
来年用なので「1/1」と入力するだけで「2013/1/1」の値になるようにできないでしょうか?
最初のセルだけ「2013/1/1」と入力して「1日」と表示させるのですが、それ以降も「2013」を覚えさすことはできないでしょうか?
隣のセルに「=WEEKDAY()」関数で曜日を入力しているので「2013年」の値が必要なのです。
日付が続き番号ならオートフィルでコピーするのですが任意の日付入力です。
本当は「1」と入力したら「1日」、「5」と入力したら「5日」と表示させたいのですが・・・。(2013年の)
どうしても毎回「2013/*/*」と入力しないとダメでしょうか?
宜しくお願いします。
No.5ベストアンサー
- 回答日時:
どんな具合のを作りたいのですか?
例えばごく簡単な、1シートに「1か月分」の小遣い帳なら。
作成例:
A1に年を記入する
2013
(セルの書式設定の表示形式のユーザー定義で0年と設定しておく)
B1に月を記入する
1
(セルの書式設定の表示形式のユーザー定義で0月と設定しておく)
A3以下に「日付」を記入する
1や2や3の数字で
B3以下に
=IF(A3="","",TEXT(DATE($A$1,$B$1,A3),"aaa"))
と記入しておく
といった具合にしておくのが一番簡単です。
#オマケ
1枚のシートに2013年版1年分の小遣い帳
A1に
2013
を記入する(0年の表示形式)
A3に
1
を記入、A3以下のセルには0月の表示形式を付けておく
B3以下に日付を記入する
1,2,3
の数字で
2月になったらA16辺りに2を記入して以下2月とする
C3以下には
=IF(B3="","",TEXT(DATE($A$1,LOOKUP(99,$A$3:A3),B3),"aaa"))
と記入しておく。

できました。
ありがとうございます。
「#オマケ」の方が私の思っている形になりました。
「作成例」の方では、日付欄のデータが「1900/*/*」になります。
「#オマケ」は見た目が良いのでこちらを使いたいと思います。
No.3
- 回答日時:
こんばんは!
VBAになってしまいますが、一例です。
A列に日付データを 10/11 のように入力するとします。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてA列に日付データを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Columns(1)) Is Nothing Or Selection.Count <> 1 Then Exit Sub
If Target <> "" Then
Application.EnableEvents = False
Target = DateAdd("yyyy", 1, Target)
Application.EnableEvents = True
End If
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
できました。
ありがとうございます。
VBAコードをジーーとみているのですが私のレベルでは???。
でも、これは他でも応用できそうなのでちょっと頑張ってみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) DATEVALUE関数がエラーになる 2 2022/07/12 19:30
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) WORKDAY関数 4 2023/06/08 13:23
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
- Excel(エクセル) エクセルでセルの日付を和暦表示設定にしたらおかしなことに? 3 2022/05/25 11:47
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
エクセルで 来年の曜日の自動設定
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
英数字のみ全角から半角に変換
-
マクロ1があります。 A1のセル...
-
Office 2021 Professional Plus...
-
outlookのメールが固まってしま...
-
マクロ自動コピペ 貼り付ける場...
-
【Excel VBA】PDFを作成して,...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Excel 日付を比較したら、同じ...
-
teams設定教えて下さい。 ①ビデ...
-
別シートの年間行事表をカレン...
-
Microsoft Formsの「個人情報や...
-
エクセルの貼り付け「リンクさ...
-
Excelで〇のついたものを抽出し...
-
エクセルでXLOOKUP関数...
-
エクセル:一定間隔で平均値を...
-
Office2021を別のPCにインスト...
-
office2019 のoutlookは2025年1...
-
Microsoft 365 の一般法人向け...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
英数字のみ全角から半角に変換
-
大学のレポート A4で1枚レポー...
-
【Excel VBA】PDFを作成して,...
-
マクロ1があります。 A1のセル...
-
Office 2021 Professional Plus...
-
マクロ自動コピペ 貼り付ける場...
-
会社PCのメールが更新されない
-
Microsoft Formsの「個人情報や...
-
エクセルでXLOOKUP関数...
-
Excel 日付を比較したら、同じ...
-
Office2021を別のPCにインスト...
-
office2019 のoutlookは2025年1...
-
パソコンを買い替える際、前の...
-
outlookのメールが固まってしま...
-
Excel テーブル内の空白行の削除
-
office365って抵抗感ないですか?
-
Office(H&B2016)を使用中に古...
-
Outlook で宛先が複数の場合の人数
-
teams設定教えて下さい。 ①ビデ...
おすすめ情報