VBAで質問です。顧客リストを作成中です。
UserForm内にスクロールバーを設置しています。
検索結果の位置へ自動でスクロールさせることは可能でしょうか。
常にスクロールバーが上にあるので修正しようとしても見出行の下に追加されてしまい悩んでいます。
初心者の為、解決策があれば参考になるコードも表記していただければ嬉しいです。
※現状のコードです
Private Sub UserForm_Initialize()
With Worksheets("sheet1")
ScrollBar1.Min = 2
ScrollBar1.Max = Worksheets("sheet1").Range("B" & Rows.Count).End(xlUp).Row + 1
ScrollBar1.Value = 2
End With
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub ScrollBar1_Change()
With Worksheets("sheet1").Select
氏名TextBox.Value = Range("A" & ScrollBar1.Value).Value
住所TextBox.Value = Range("B" & ScrollBar1.Value).Value
電話番号TextBox.Value = Range("C" & ScrollBar1.Value).Value
End With
End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub 再登録ボタン_Click()
With Worksheets("sheet1").Select
Range("A" & ScrollBar1.Value).Value = 氏名TextBox.Text
Range("B" & ScrollBar1.Value).Value = 住所TextBox.Text
Range("C" & ScrollBar1.Value).Value = 電話番号TextBox.Text
End With
End Sub
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
回答ではありませんが、
>検索結果の位置へ自動でスクロールさせることは可能でしょうか。
この検索結果というのが、何を指されているかが分かりません。
コードの中には、検索している様な箇所が無い様に見えますが。
あと、自動でスクロールとは、ワークシートのスクロールという事でしょうか? それとも、スクロールバーの位置の事を指している?
No.2
- 回答日時:
No.1の者です。
ListIndexが0から始まって、データの個数-1までという事でしょうか?
スクロールバーも同じデータ数という事になるでしょうか?
もし、そうなら、スクロールバーも、Min:0、Max:データの個数-1 なら
そのまま、ScrollBar1.Value = リストBox.ListIndex の様な感じで
入れれば良いのでは?と思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDFを(htmlのように)無限に縦...
-
Excelで一部分だけを常に表示さ...
-
Excelでワードアートや図を常に...
-
エクセルVBAでフォームのListbo...
-
ページ訪問時にiframe内を自動...
-
Excelで1.2行目だけ固定して...
-
ExcelVBAで他のアプリをスクロ...
-
グループボックス内のコンボボ...
-
セレクトボックス スクロール
-
Excelの質問で票の途中に...
-
Excelで横のスクロールするショ...
-
バナー広告をページ内で自動ス...
-
リストビューをスクロールさせ...
-
jscrollpaneで1番上を表示する
-
Spreadのスクロールについて
-
携帯サイト用オンマウスでスク...
-
CTreeCtrlのHitTestメソッドに...
-
新宿駅構内で証明写真
-
ホームページを下にスクロール...
-
location.hrefはブラウザごとに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでワードアートや図を常に...
-
エクセルVBAでフォームのListbo...
-
PDFを(htmlのように)無限に縦...
-
リストビューをスクロールさせ...
-
Excelで1.2行目だけ固定して...
-
Excelの質問で票の途中に...
-
Excelで一部分だけを常に表示さ...
-
大きい表へのスクロールバーの...
-
ページ訪問時にiframe内を自動...
-
Visual Basicから Spreadのスク...
-
vb,netでtextboxの文字を右から...
-
webページで横方向にアンカーを...
-
リストビューの表示開始行変更
-
スクロール位置を中央にしたい
-
マウスオーバー→ホイール回転で...
-
VBE画面の縦のスクロールバ...
-
IFRAMEでscrolling="yes|no"の...
-
マウスでコロコロしたいんですが…
-
文章の自動スクロール
-
アコーディオンで開かれたパネ...
おすすめ情報
UserForm1のListBoxをDoubleClickし、結果をUserForm2の各TextBoxへ反映しています。
スクロールバーはそのUserForm2内にあります。
フォーム内のスクロール位置を検索結果と同じ位置にしたいです。