Excel VBA質問箱 IV

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

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


12690 / 13646 ツリー ←次へ | 前へ→

【8871】現行の年を調べる テーブル 03/11/6(木) 20:39 質問
【8872】Re:現行の年を調べる つん 03/11/6(木) 20:52 回答
【8873】ありがとうございます。 テーブル 03/11/6(木) 21:18 お礼
【8875】Re:ありがとうございます。 つん 03/11/6(木) 23:23 回答
【8877】Re:ありがとうございます。 りん 03/11/7(金) 8:34 回答
【9183】Re:ありがとうございます。 テーブル 03/11/20(木) 15:58 お礼

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

引用なし
パスワード
   毎度お世話になっております。現行の「年」を調べるにはどうすればよろしいのでしょうか?現在は「2003年」なので、現行年≦入力年数の場合にだけ入力を可能にしたいのですが、どうかご教授よろしくお願い致します。

【8872】Re:現行の年を調べる
回答  つん E-MAIL  - 03/11/6(木) 20:52 -

引用なし
パスワード
   テーブル さん、こんばんは

>毎度お世話になっております。現行の「年」を調べるにはどうすればよろしいのでしょうか?現在は「2003年」なので、現行年≦入力年数の場合にだけ入力を可能にしたいのですが、どうかご教授よろしくお願い致します。

Year(Date)

のことかな?

【8873】ありがとうございます。
お礼  テーブル E-MAIL  - 03/11/6(木) 21:18 -

引用なし
パスワード
   ▼つん さん:
ご回答ありがとうございます.
現在の年月日を調べて、入力された値が、現行年月日<=入力された値8桁
が、以外はチェンジイベントでエラーにしたいのですが、

Year(Date)<= Target.Valueで書き方あってますでしょうか?


>Year(Date)
>
>のことかな?

【8875】Re:ありがとうございます。
回答  つん E-MAIL  - 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関数で取得した値と比較できると思います。
その前に、セルに入力された数字が日付として適切な数字か判断させた方がいいかも。

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

【8877】Re:ありがとうございます。
回答  りん E-MAIL  - 03/11/7(金) 8:34 -

引用なし
パスワード
   テーブル さん、おはようございます。
つん さん、おはよー。

>>Year(Date)<= Target.Valueで書き方あってますでしょうか?
>Year(Date) は、年度のみ返すので、8桁の数字と比較できないと思います。

今日の日付(2003/11/7)を「20031107」という数値にしたいならば。

Sub test()
  MsgBox Val(Format(Date, "yyyymmdd"))
End Sub

こんな感じです。セルの内容(比較対象)が文字列ならVal関数は不要です。
Format関数、Val関数の詳細はヘルプで見てね。

【9183】Re:ありがとうございます。
お礼  テーブル  - 03/11/20(木) 15:58 -

引用なし
パスワード
   遅くなりましたが、りんさん、つんさん、
年月日の質問に答えて頂きありがとうございました。
どうもありがとうございました。

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