Excel VBA質問箱 IV

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

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


21798 / 76734 ←次へ | 前へ→

【60325】Re:スクロールについて質問
発言  SS  - 09/2/10(火) 10:20 -

引用なし
パスワード
   ▼もものき さん:
▼ichinose さん:

横から失礼します
>やっぱりマウス操作でビジュアル処理は無理でしょうか?
現状の物の何処が不満なのか、どのような処理がしたいのかを
示さないと対応のしようがありませんよ。

>>>ですが、実際はスクロールバーが表示されず
>>>ウインドウの長さも制限があると知りました。

>>>ツールボックスにスクロールバーのアイテムがあるので
>>>これを利用すればできるのだろうと推測はできますが
>>>ビジュアル操作で簡単に設置できるのでしょうか?

私がichinose さんの回答を参考に作るとしたらこんな感じです。

UserFormのプロパティで
ScrollBarsを 2 - fmScrollBarsVertical (縦方向スクロールバーを表示する)
ScrollHeightを 1050 (スクロール領域の高さを指定する)
UserFormにTextBoxを30個自分で準備する。(ichinose さんのは高度すぎて自分には扱いきれませんでした。イベントが発生しない?)
UserFormのHeightを 350。(1度に表示されるのが10個に調整)

切替操作は、UserForm1のモジュールに以下を記述
Private Sub UserForm_Initialize()
  '特に記述無し
End Sub

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ScrollTop = 350
End Sub

Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ScrollTop = 700
End Sub

2 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 発言

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