ここから本文です

Microsoft エクセルのユーザーフォームで テキストボックスにスクロールバーをつ...

パンダマンさん

2013/10/1612:58:56

Microsoft エクセルのユーザーフォームで
テキストボックスにスクロールバーをつけたのですが
動作には問題ないけれど、
フォームを開いて、クリックしないとスクロールバーが
出てきません。そして、スクロールの

バーが必ず一番下まで下がってしまいます。
どうしたら解消できるでしょうか?

閲覧数:
2,386
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

vcx********さん

2013/10/1620:55:20

pandamannoieさん

クリックしないとスクロールバーが出ないというのはちょっと状況がつかめません。必ず一番下まで下がってしまうというのは

TextBox1.SelStart = 0

としてみたらどうでしょうか?

---

新規ブックに UserForm1 を作り TextBox1 を置いて下記のコードを UserFormのモジュールに記述し実行してみました。結果は画像のとおりです。

Private Sub UserForm_Initialize()

With TextBox1

.ScrollBars = fmScrollBarsVertical
.MultiLine = True

'適当に文字を入れるだけ
For i = 100 To 1 Step -1
.Value = Format(i, "000") & vbCrLf & TextBox1.Value
Next i

.Locked = True
.SelStart = 0

End With

End Sub

pandamannoieさん...

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる