Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8146 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34924】翌月を表示させたい。 m(__)m 06/2/16(木) 10:49 質問[未読]
【34925】Re:翌月を表示させたい。 ぱっせんじゃー 06/2/16(木) 11:16 発言[未読]
【34926】Re:翌月を表示させたい。 ぱっせんじゃー 06/2/16(木) 11:17 発言[未読]
【34927】Re:翌月を表示させたい。 m(__)m 06/2/16(木) 11:27 お礼[未読]
【34928】Re:翌月を表示させたい。 Kein 06/2/16(木) 12:55 回答[未読]
【34949】Re:翌月を表示させたい。 m(__)m 06/2/16(木) 17:11 質問[未読]
【34951】Re:翌月を表示させたい。 Kein 06/2/16(木) 17:27 回答[未読]
【34954】Re:翌月を表示させたい。 初心者2 06/2/16(木) 17:44 お礼[未読]
【34924】翌月を表示させたい。
質問  m(__)m E-MAIL  - 06/2/16(木) 10:49 -
引用なし
パスワード
   こんにちは。
VBAではないのですが、分かる方がいましたら
教えてください。

常に日付が入った特定セルの翌月を表示させたいのですが
どのようにすれば良いでしょうか？
例えばC5セルに2006/02/16となっていたら
A1セルには2006年3月と表示させたいのです。

教えて頂けると大変助かります。
【34925】Re:翌月を表示させたい。
発言  ぱっせんじゃー  - 06/2/16(木) 11:16 -
引用なし
パスワード
   なんだかインチキくさい方法ですが・・・。

A1に日付

ツール → アドイン で分析ツールにチェック
=EDATE(A1,1)-RIGHT(TEXT(A1,"dd"),2)+1
【34926】Re:翌月を表示させたい。
発言  ぱっせんじゃー  - 06/2/16(木) 11:17 -
引用なし
パスワード
   >2006年3月と表示させたいのです。

見落としてました。
表示形式を変更してください。
【34927】Re:翌月を表示させたい。
お礼  m(__)m E-MAIL  - 06/2/16(木) 11:27 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
ありがとうございました！！
早速試してみます。
【34928】Re:翌月を表示させたい。
回答  Kein  - 06/2/16(木) 12:55 -
引用なし
パスワード
   Sub MyNextM()
　 Dim MyD As Date
　
　 With Range("C5")
　　　If Not IsDate(.Value) Then Exit Sub
　　　MyD = DateAdd("m", 1, .Value)
　 End With
　 With Range("A1")
　　　.NumberFormat = "yyyy年m月"
　　　.Value = MyD
　 End With
End Sub

というコードで出来ますが、手作業で数式入力とセルの書式設定のみでも
出来るはずです。
【34949】Re:翌月を表示させたい。
質問  m(__)m E-MAIL  - 06/2/16(木) 17:11 -
引用なし
パスワード
   ▼Kein さん：

出来ました！！
ありがとうございます！


>手作業で数式入力とセルの書式設定のみでも
>出来るはずです。

=C5+30にして、表示形式を何年何月に設定する
ということでしょうか？
【34951】Re:翌月を表示させたい。
回答  Kein  - 06/2/16(木) 17:27 -
引用なし
パスワード
   >表示形式を何年何月に設定
そうです。で、入力する数式は

=EOMONTH(C5,1)

というのが一番簡単ですね。
【34954】Re:翌月を表示させたい。
お礼  初心者2 E-MAIL  - 06/2/16(木) 17:44 -
引用なし
パスワード
   ▼Kein さん：
ありがとうございました！！

EOMONTHという関数は初めて知りました。
感激です。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8146 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free