Excel VBA質問箱 IV

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

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


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

72340 / 76732

←次へ　｜　前へ→


	【8875】Re:ありがとうございます。

つん

- 03/11/6(木) 23:23 -


	引用なし

	パスワード

どもども

>ご回答ありがとうございます.
>現在の年月日を調べて、入力された値が、現行年月日<=入力された値8桁
>が、以外はチェンジイベントでエラーにしたいのですが、
>
>Year(Date)<= Target.Valueで書き方あってますでしょうか？

Year(Date)　は、年度のみ返すので、8桁の数字と比較できないと思います。
「年月日」を取得するなら、「Date関数」でないと。
それから、セルに8桁の数字を入れて、それを「現在の日付」を比較する場合
そのまま比較出来ないと思います。
日付とかあまり詳しくないので、もっと適切なやり方があるかもしれませんが、
とりあえず、
Format関数で、入力された数字を「yyyy/mm/dd」の形にして
（Format(Range("a1").Value, "####/##/##")こんな感じ）
それをCDate関数で、日付型（Date型）に変換します。
それでDate関数で取得した値と比較できると思います。
その前に、セルに入力された数字が日付として適切な数字か判断させた方がいいかも。

私もやってみたら出来たって感じなのですけど・・・

4 hits

▼

【8871】現行の年を調べる テーブル 03/11/6(木) 20:39