Excel VBA質問箱 IV

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

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


21802 / 76734 ←次へ | 前へ→

【60321】Re:スクロールについて質問
発言  ichinose  - 09/2/9(月) 19:37 -

引用なし
パスワード
   ▼もものき さん:
こんばんは。

こんなイメージですか?

新規ブックにて、試してください。

ユーザーフォームを一つ作成してください(UserForm1)

コントロールはコードで作成しますから、何も配置しないでください。

UserForm1のモジュールに

'=============================================================
Private Sub UserForm_Initialize()
  Dim g0 As Long
  With Me
    .Width = 250
    .Height = 250
    .ScrollBars = fmScrollBarsVertical
    .ScrollHeight = 1000
    For g0 = 1 To 30
     With .Controls.Add("Forms.TextBox.1", , True)
       .Left = 20
       .Width = 100
       .Top = 30 * g0
     End With
    Next
  End With
End Sub


標準モジュールに

'=======================================================
Sub sample()
  UserForm1.Show
End Sub


これでsampleを実行してみてください。

30個のテキストボックスがスクロールして入力可能になると思います。


実際には、UserForm_Initializeで行っていることは
全て、事前設定が可能です。

キーポイントは、

    .Height = 250
    .ScrollBars = fmScrollBarsVertical
    .ScrollHeight = 1000

この辺りのコードです。

調べてみてください。
1 hits

【60320】スクロールについて質問 もものき 09/2/9(月) 18:55 質問
【60321】Re:スクロールについて質問 ichinose 09/2/9(月) 19:37 発言
【60323】Re:スクロールについて質問 もものき 09/2/10(火) 9:06 発言
【60325】Re:スクロールについて質問 SS 09/2/10(火) 10:20 発言
【60328】Re:スクロールについて質問 neptune 09/2/10(火) 11:06 発言
【60335】Re:スクロールについて質問 SS 09/2/10(火) 19:06 発言
【60333】Re:スクロールについて質問 もものき 09/2/10(火) 15:49 発言
【60334】Re:スクロールについて質問 SS 09/2/10(火) 18:48 発言
【60338】Re:スクロールについて質問 neptune 09/2/10(火) 21:45 発言

21802 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free