Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7109 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41245】月末日の表示方法 toshi 06/8/3(木) 8:00 質問[未読]
【41246】Re:月末日の表示方法 Hirok 06/8/3(木) 8:12 回答[未読]
【41247】Re:月末日の表示方法 toshi 06/8/3(木) 9:06 質問[未読]
【41248】Re:月末日の表示方法 ぱっせんじゃー 06/8/3(木) 9:25 発言[未読]
【41249】Re:月末日の表示方法 toshi 06/8/3(木) 9:43 お礼[未読]
【41251】Re:月末日の表示方法 Jaka 06/8/3(木) 10:46 発言[未読]
【41245】月末日の表示方法
質問  toshi  - 06/8/3(木) 8:00 -
引用なし
パスワード
   A1に平成年号、B1に月、C1に日を入力後その月の月末日をC2に自動表示させたいのですが方法が判りません　月によっては月末が28日とか30日と色々と有ります　
すいませんが　よろしくご指導をお願い申し上げます。
【41246】Re:月末日の表示方法
回答  Hirok  - 06/8/3(木) 8:12 -
引用なし
パスワード
   Function Getumatu(日付 As date) As Variant
Dim 翌月一日　As Date
翌月一日=Dateserial(Year(日付)，Month(日付)＋１，１）
Getumatu =Dateadd("d" ,-1,翌月一日）
End Function

関数式に=getumatu(C1)にしてやってください
【41247】Re:月末日の表示方法
質問  toshi  - 06/8/3(木) 9:06 -
引用なし
パスワード
   ▼Hirok さん：
>Function Getumatu(日付 As date) As Variant
> Dim 翌月一日　As Date
>翌月一日=Dateserial(Year(日付)，Month(日付)＋１，１）
>Getumatu =Dateadd("d" ,-1,翌月一日）
>End Function
>
>関数式に=getumatu(C1)にしてやってください

早々のご回答感謝しております
直接コピー後貼り付けで　書き込みをしましたが　実行方法が判りません
初心者で申し訳ありません　またお手数をお掛けします
【41248】Re:月末日の表示方法
発言  ぱっせんじゃー  - 06/8/3(木) 9:25 -
引用なし
パスワード
   横から失礼します。

ユーザー定義関数ですので標準モジュールに記述してください。

あとは一般関数の使い方と同じです。
C1には
2006/8/3
のように日付を入力します。
挿入→関数→ユーザー定義
で挿入してもいいですね。
【41249】Re:月末日の表示方法
お礼  toshi  - 06/8/3(木) 9:43 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
>横から失礼します。
>
>ユーザー定義関数ですので標準モジュールに記述してください。
>
>あとは一般関数の使い方と同じです。
>C1には
>2006/8/3
>のように日付を入力します。
>挿入→関数→ユーザー定義
>で挿入してもいいですね。

出来ました
色々とご指導頂きまして　有難う御座いました
またお世話に成ると思いますので　その節は宜しくお願いします
【41251】Re:月末日の表示方法
発言  Jaka  - 06/8/3(木) 10:46 -
引用なし
パスワード
   >A1に平成年号、B1に月、C1に日を入力後その月の月末日をC2に自動表示させたい
=DATE(YEAR(DATEVALUE("H" & A1 & "/" & B1 & "/" & C1)),
MONTH(DATEVALUE("H" & A1 & "/" & B1 & "/" & C1))+1,1)-1

今日の月末
=DATE(YEAR(TODAY()),MONTH(TODAY())+1,1)-1

日付が入ったＡ１の月末
=DATE(YEAR(A1),MONTH(A1)+1,1)-1

因みに必要なのは年と月だけ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7109 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free