Excel VBA質問箱 IV

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

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


7095 / 13644 ツリー ←次へ | 前へ→

【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(日付)+1,1)
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(日付)+1,1)
>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

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

因みに必要なのは年と月だけ。

7095 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free