テキストボックスの書式について

質問

例えばセルA1の書式が、分類：日付、種類：3月14日とします。（数字は半角）
この場合、セルA1に０３（全角）月14（半角）日と入力しても、3月14日（数字はすべて半角）と表示されます。

マクロを作成しているのですが、セルA1とテキストボックスの書式がどうしてもうまくいきません。
セルA1はUserform1内のTextbox1の値を取得します。
しかし、Textbox1の値をセルA1へ表示させると、セルA1と同じ書式に表示されません。
テキストボックスの値は文字列として扱われているようです。
Textbox1に０３（全角）月14（半角）日と入力しても、3月14日（数字はすべて半角）と表示される方法はありませんか？

回答No.3

jcctaira · ベストアンサー

na-chi21さん
こんにちは。

ちょっと意味が分からない所がありますが、勝手に解釈して回答します。

Textbox1入力後、セルA1にセットする時は日付に変換する必要があります。
　例）　
　　Dim 日付 As Date
　　日付 = UserForm1.TextBox1
　　Range("A1") = 日付

Textbox1に表示する時はFormat関数で表示すれば良いと思います。
　例）　
　　UserForm1.TextBox1 = Format(Range("A1"), "m月d日")

注）入力後、日付の確認チェックが必要かと思います。

お礼

回答ありがとうございます。
遅くなり申し訳ありません。
jcctairaさんのおっしゃる通り、１つ目の例のようにするとできました。

回答No.2

spar

こんばんはー
ちょっと意に沿わない回答かもしれません
＞Textbox1に０３（全角）月14（半角）日と入力しても、3月14日（数字はすべて半角）と表示される方法はありませんか？
この文面ではtextbox1に０３（全角）月14（半角）日と入力（キーボードを打つと）すると、textbox1には3月14日と表示させたいに感じるのですが、どうでしょう？
textbox1に０３（全角）月14（半角）日と入力（キーボードを打つと）すると、セルA1に3月14日と表示させたいが私の見解なのですが・・・
もしそうであれば、Me.TextBox1.Value = Sheet1.Cells(1, 1).Text と　Sheet1.Cells(1, 1).Value = Me.TextBox1.Value　って書いてみたらどうなります？
的外れでしたらすみません。。。

お礼

回答ありがとうございます。
質問内容が分かりにくくてすいません。
sparさんの見解どおり、textbox1に０３（全角）月14（半角）日と入力しCommandButton1を押すと、セルA1にtextbox1の文字が反映されるようにしたかったのです。
Me.TextBox1.Value = Sheet1.Cells(1, 1).Text と　Sheet1.Cells(1, 1).Value = Me.TextBox1.Value
で試してみましたが今回は残念ながらなりませんでした。

回答No.1

Gletscher

テキストボックスですから・・・
が回答だと思います。
テキストボックスはテキストを入れる場所であって、装飾文字を入れるものではないですから、”文字だけ”しか入りません。

お礼

それは承知で質問してます…