[[20090821193506]]　『日付の最大値』（フムフム）　ページの最後に飛ぶ

『日付の最大値』（フムフム）

 A列に日付が入力されていますが、最大の日付をMESGBOXで
 表示したいのですがうまくいかないので教えてください。
   不具合はMSGBOXの値が数値になってしまします。
  日付で表示したいのですが・・・
   例 2009/8/1  とか

  日付= WorksheetFunction.Max(Range("A２", Range("A2").End(xlDown)))
  MSGBOX 日付

 こんにちは。かみちゃん　です。

 > A列に日付が入力されていますが、最大の日付をMESGBOXで
 > 表示したいのですがうまくいかないので教えてください。
 > 不具合はMSGBOXの値が数値になってしまします。

 変数の宣言はきちんとしていますか？
 もしくは、CDate関数で変換するなどではいかがでしょうか？

 Sub Sample()
   Dim 日付 As Date

   日付 = WorksheetFunction.Max(Range("A２", Range("A2").End(xlDown)))
   MsgBox 日付
   MsgBox CDate(日付)
 End Sub

 (かみちゃん)
 2009/08/21 20:13

 　あらー？家のパソコンでは質問の内容
　で問題なく表示されました。
　　明日、会社でもう一度やってみます。
　ありがとうございました。
　　　　　　　　　　　　　　　　　　　　　　（フムフム）

 原因がわかりました。
　変数の宣言してませんでした。
ありがとうございました。
　　　　　　　　　　　　　　　　　　（フムフム）

コメント返信：