| 
    
     |  | ▼kanabun さん: >▼もろ さん:
 >
 >>>今どのようにセットしていますか?
 >>>
 >>>(1)
 >>>  TextBox1.Text = セル.Value
 >>>
 >>>(2)
 >>>  TextBox1.Text = セル.Text
 >>
 >>スクロールバーと同期させるようにしているので、以下のようにしています。
 >>
 >>For i = 1 To 71
 >>
 >>Me.Controls("textbox" & CStr(i)).Value = Selection.Cells(1, i)
 >>Next
 >
 >Selection というのがどこかよく分からんのですが、
 >
 >> Selection.Cells(1, i)
 >
 >というのは
 >
 > Selection.Cells(1, i).VALUE
 >
 >の端折った書き方ですよね?
 >こちらの提案は .Value ではなく そこを
 >
 > Selection.Cells(1, i).TEXT
 >
 >にしたらどうか? ということです。
 
 
 ありがとうございました! .textにしたら和暦表示になりました。
 ついでに申し訳ないのですが、もうひとつ質問させていただきますと、フォームのテキストボックスなのですが、文字数を多く入れてしまうとテキストボックスから文字がはみ出してしまうことがあるのですが、セルのように縮小して表示させるようなことをテキストボックスで行うことは可能でしょうか?重ね重ね質問して申し訳ございませんが、よろしくお願いします!
 
 |  |