Excel VBA質問箱 IV

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

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


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

【21646】日付を判断する mickeypapa 05/1/25(火) 18:14 質問[未読]
【21652】Re:日付を判断する りすりす 05/1/25(火) 19:39 発言[未読]
【21654】Re:日付を判断する ponpon 05/1/25(火) 20:04 発言[未読]
【21656】Re:日付を判断する mickeypapa 05/1/25(火) 21:08 お礼[未読]
【21653】Re:日付を判断する ponpon 05/1/25(火) 19:57 回答[未読]
【21657】Re:日付を判断する mickeypapa 05/1/25(火) 21:47 お礼[未読]

【21646】日付を判断する
質問  mickeypapa WEB  - 05/1/25(火) 18:14 -

引用なし
パスワード
   こんにちは、今回も世をしくお願い致します。
日付を比較して以前の日付であればコードを実行するようにしたいと考えています。
ユーザーフォーム起動時に
TextBox1 = Format(Date, "yyyy/m/d")で日付を表示していますが、その日付と
セルに入力された日付を比較して、今日の日付と同じか、それ以前の日付であれば
コードを実行したいのですが、日付をどのように比較するのか分からないので宜しくご教授下さいますようお願い致します。
現在は、セルにTextBox1の日付を書き込み、別のセルに =""&Z2 としてセルの表示形式を、標準として
2005/1/25 であれば、38377 を得て、他の日付との比較をして、判断をしております。

【21652】Re:日付を判断する
発言  りすりす  - 05/1/25(火) 19:39 -

引用なし
パスワード
   [XL2002] 日数および時間計算に関するワークシート関数について
http://support.microsoft.com/default.aspx?scid=kb;ja;416574

【21653】Re:日付を判断する
回答  ponpon  - 05/1/25(火) 19:57 -

引用なし
パスワード
   ▼mickeypapa さん:
こんばんは。ponponです。

>TextBox1 = Format(Date, "yyyy/m/d")
であるならば、これでいいかな?

Sub test()
 Dim A As Date 'この辺は自信ありません
 Dim B As Date
 
If Range("A1") <> "" Then
   A = Format(Range("A1"), "yyyy/m/d")
   B = Format(Date, "yyyy/m/d")  '=textbox1.text
  If A <= B Then
   MsgBox "処理"
  End If
End If
End Sub

【21654】Re:日付を判断する
発言  ponpon  - 05/1/25(火) 20:04 -

引用なし
パスワード
   ▼りすりす さん:
こんばんは。ponponです。
かぶってしまいました。コードの確認に時間がかかるものですから(^^;)
すみません。この回答で大丈夫でしょうか?
 

【21656】Re:日付を判断する
お礼  mickeypapa WEB  - 05/1/25(火) 21:08 -

引用なし
パスワード
   ▼りすりす さん:
有り難うございます。大変参考になりました。今後とも宜しくお願い致します。

【21657】Re:日付を判断する
お礼  mickeypapa WEB  - 05/1/25(火) 21:47 -

引用なし
パスワード
   回答有り難うございます。早速、動作を確認させて頂きました。
自分で書いたコードが、エラーになる原因がよく分かりました。
変数をStringで宣言していたことと、Range("A1").ValueでIf・・・・と
していたことでした。これからも宜しくお願い致します。

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