| |
▼仔牛 さん：
こんばんは。
>題名のとおり、テキストボックスにスクロールバーをつけ、その各行に別々のセル（リスト状）を対応させた物を作りたいのですが、どのようにすればよろしいのでしょうか？
>もし可能であれば、ご指南のほどよろしくお願いします。
新規ブックにユーザーフォーム（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
こんなイメージでしょうか？
スクロールやマルチラインは、プロパティウインドウで事前設定が
可能です（私が実際するなら、事前設定しておきます）。
|
|
ichinose
- 05/3/9(水) 19:52 -
