投稿者 魔界の仮面弁士  (社会人) 投稿日時 2009/2/23 11:22:42
Excel VBA をお使いでしょうか?

もしそうなら、Range.Value の代わりに、Range.Text を用いてみてください。

Private Sub CommandButton1_Click()
    TextBox1.Text = Sheet1.Range("A1").Value
    TextBox2.Text = Sheet1.Range("A1").Text
End Sub