|
▼仔牛 さん:
こんばんは。
>題名のとおり、テキストボックスにスクロールバーをつけ、その各行に別々のセル(リスト状)を対応させた物を作りたいのですが、どのようにすればよろしいのでしょうか?
>もし可能であれば、ご指南のほどよろしくお願いします。
新規ブックにユーザーフォーム(Userform1)にテキストボックスを一つ設定して下さい(半角の英字が5文字分ぐらい入るセル幅にして・・。Textbox1)。
Userform1のモジュールに
'==============================================================
Private Sub UserForm_Initialize()
Dim rng As Range
Set rng = mk_sample_data 'アクティブシートにサンプル作成
With TextBox1
.ScrollBars = fmScrollBarsVertical 'スクロールを設定
.MultiLine = True 'マルチライン設定
.Text = rng.Cells(1)
For idx = 2 To rng.Count
.Text = .Text & vbCrLf & rng.Cells(idx)
Next
.SelStart = 0
End With
End Sub
'=======================================================
Function mk_sample_data() As Range
Dim data As Variant
data = Array("a", "b", "c", "d", "e", "f", "g", "h")
For idx = LBound(data) To UBound(data)
Cells(idx + 1, 1).Value = String(5, data(idx))
Next
Set mk_sample_data = Range(Cells(LBound(data) + 1, 1), Cells(UBound(data) + 1, 1))
End Function
こんなイメージでしょうか?
スクロールやマルチラインは、プロパティウインドウで事前設定が
可能です(私が実際するなら、事前設定しておきます)。
|
|