Excel VBA質問箱 IV

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

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


61805 / 76738 ←次へ | 前へ→

【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日引けば、当月の月末ですよね?
0 hits

【19546】月末の日付けを取得 mickeypapa 04/11/8(月) 22:34 質問
【19547】Re:月末の日付けを取得 ichinose 04/11/8(月) 22:46 回答
【19561】Re:月末の日付けを取得 mickeypapa 04/11/9(火) 17:25 お礼
【19548】Re:月末の日付けを取得 かみちゃん 04/11/8(月) 22:55 回答
【19562】Re:月末の日付けを取得 mickeypapa 04/11/9(火) 17:29 お礼
【19563】Re:月末の日付けを取得 mickeypapa 04/11/9(火) 17:56 質問
【19577】Re:月末の日付けを取得 mickeypapa 04/11/9(火) 21:18 発言
【19580】Re:月末の日付けを取得 Kein 04/11/9(火) 21:43 発言
【19582】Re:月末の日付けを取得 mickeypapa 04/11/9(火) 21:55 お礼

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