エクセルVBA セルの書式につい

質問

ユーザーフォームのテキストボックスに入力した日付(yyyy/mm/ddの形式)をA1セルに入れるとします。

　Range("A1").Value = Me.txt日付

A1セルの表示形式は書式設定でユーザー定義の"d"で表示されるように設定していますが、

テキストボックスに入力した形式のまま(yyyy/mm/dd)でA1セルに表示されてしまいます。

上記のみではNGでしょうか？

ちなみに、yyyy/mm/ddと入力されたA1セルを一旦編集モード（[F2]キーを押した状態）にして[Enter]を押すと"d"（書式設定で指定している書式）に変わります。

参考：A1セルの日付をみて別シートの一覧からVlookup関数で値を検索したいところが、yyyy/mm/ddで表示されるためにエラーとなってしまいます）

ご存知の方教えていただきたいです。

回答No.2

KURUMITO · ベストアンサー

以下のようにしてはどうでしょう。

Range("A1").Value = Me.txt日付
Range("A1").NumberFormat="d"

お礼

回答ありがとうございます＞＜

長らく空いてからのお礼となってしまい申し訳ありません。

教えていただいた通りにやってみたらできました！

お陰で業務改善ツールが1つ作成できました☆

本当にありがとうございます！

回答No.1

masa_019

こんばんは。

>Range("A1").Value = Me.txt日付

以下のどれでも大丈夫と思います。

・Range("A1").Value = Me.txt日付.Value

・Range("A1").Value = Val( Me.txt日付.Value)

・Range("A1").Value = CDate( Me.txt日付.Value)

・Range("A1").Value = DateValue( Me.txt日付.Value)

お礼

いくつもの方法を教えていただきありがとうございます！

1つのことにこれだけの方法があるのだな・・・と勉強になりました。

どれを試しても成功したので、今後のツール作成時にもどんどん参考にさせていただきたいと思いました！

本当にありがとうございます＾＾