Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21858 / 76807

←次へ　｜　前へ→


	【60338】Re:スクロールについて質問

neptune - 09/2/10(火) 21:45 -


	引用なし

	パスワード

皆さんこんにちは。

なんか止めを刺したようで、目覚めが悪いのでサンプルを１つ

新規UserForm

TextBox 8個　とScrollBar　1個を配置

TextBox は以下のように配置してください。

TextBox1　　　　TextBox5
TextBox2　　　　TextBox6
TextBox3　　　　TextBox7
TextBox4　　　　TextBox8

ScrollBar　は矢印の右側。

以下をUserFormモジュールにコピペ
Option Explicit

Private Type Rec
　　f1 As Long
　　f2 As Long
End Type

Private mRec(1 To 10) As Rec

Private Sub ScrollBar1_Change()
　　Call ShowData(ScrollBar1.Value)
End Sub

Private Sub UserForm_Initialize()
　　Dim i As Long
　　'データ作成
　　For i = 1 To 10
　　　　mRec(i).f1 = i
　　　　mRec(i).f2 = i * 10
　　Next i
　　'スクロールバー設定
　　With Me.ScrollBar1
　　　　.Min = 1
　　　　.Max = 10
　　　　.SmallChange = 1
　　End With
　　
End Sub

'表示
Private Sub ShowData(pIndex As Long)
　　If pIndex > 0 Then
　　　　If pIndex < 8 Then
　　　　　　TextBox1.Text = mRec(pIndex).f1
　　　　　　TextBox2.Text = mRec(pIndex + 1).f1
　　　　　　TextBox3.Text = mRec(pIndex + 2).f1
　　　　　　TextBox4.Text = mRec(pIndex + 3).f1
　　　　　　TextBox5.Text = mRec(pIndex).f2
　　　　　　TextBox6.Text = mRec(pIndex + 1).f2
　　　　　　TextBox7.Text = mRec(pIndex + 2).f2
　　　　　　TextBox8.Text = mRec(pIndex + 3).f2
　　　　End If
　　End If
End Sub

実行してみて下さい。
力技ですが、こんな方法もあるという例です。

ちなみに、コントロールを数百個も使うのは止めた方が無難です。
動作が不安定になるらしいです。
ちなみにVBでは1windowで許されるのは255個？の制限があります。
Excelでも準拠しといた方が間違いないです。

2 hits

▼

【60320】スクロールについて質問 もものき 09/2/9(月) 18:55