Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61799 / 76732

←次へ　｜　前へ→


	【19547】Re:月末の日付けを取得

ichinose - 04/11/8(月) 22:46 -


	引用なし

	パスワード

▼mickeypapa さん：
こんばんは。

>今回も皆様のお力をお借りします。
>ユーザーフォームのコンボボックスに
>1月、2月、・・・・・12月とアイテムがあり、
>その月を選んだときに、日付を表示する
>テキストボックス(txtDay=Format(Date, "mm/dd")に
>10月→10/31 、11月→11/30 と月末の日付が表示されるようにしたいのですが、
>宜しくお願い致します。
コンボボックスがCombobox1だとすると、

'========================================
Private Sub ComboBox1_Change()
　 TextBox1.Text = Format(CDate(ComboBox1.Value + 1 & "/1") - 1, "m/d")
End Sub

こんな方法でいかがですか？
翌月の一日から1日引けば、当月の月末ですよね？

1 hits

▼

【19546】月末の日付けを取得 mickeypapa 04/11/8(月) 22:34