Excel2016でのユーザーフォームでの入力規則リスト入力のドロップダウンリストの実現方法
- Excel2016のユーザーフォームで入力規則リスト入力のドロップダウンリストを実現するために、VBScriptを使用してセルの内容を中央に表示し、選択されるようにします。
- しかし、時々ドロップダウンリストが1〜5行上下して選択されてしまう問題が発生します。
- 原因はわかりませんので、解決策を教えてください。
- ベストアンサー
Excel2016でのユーザーフォーム
Excel2016で入力規則リスト入力のドロップダウンリストを ユーザーフォームで実現しようとしています。 セル内容を中央に表示[Ａ]して選択[Ｂ]される様にＶＢＡを作りました。 時々１～５行上下して選択[Ｂ]されてしまうことがあります。 セル内容は中央に表示されているため[Ａ]は問題なく機能しています。 デバッグ用にMsgBoxを挿入[Ｃ]すると問題なく選択されます。 何が原因なのかが分かりません、どうかご指導ください。 なお、ActiveCell.Value は必ず Sheet2!A2:A1222 内に存在します。 Private Sub UserForm_Activate() Dim n As Integer n = Range("Sheet2!A2:A1222").Find(what:=ActiveCell.Value, Lookat:=xlWhole).Row - 2 ListBox1.TopIndex = n - IIf(n >= 5, 5, 0) <----[Ａ] ListBox1.ListIndex = n <----[Ｂ] 'MsgBox n <----[Ｃ] End Sub Private Sub ListBox1_DblClick(ByVal 中止 As MSForms.ReturnBoolean) ActiveCell.Value = ListBox1.Value Unload Me End Sub
- kazukazu72
- お礼率36% (4/11)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは 問題なさそうですけど、どんな場合にそのようになりますか？ ListBox1.ListIndex = n '< ----[b] ListBox1.TopIndex = n - IIf(n >= 5, 5, 0) '< ----[Ａ] のように逆にするとどうなりますか？ 今回は無関係かと思いますがFindがエラーになる事は想定してないのですか？
関連するQ&A
- VBA ユーザーフォーム
VBA初心者です。以下の様なソースを見つけました。この場合は、文字を検索するとD1 にその該当番号が表示されます。 ※A列には番号、B列には文字列 そうではなく、そのクリックした行のA列にセルが移動し、ユーザーフォームが閉じられる様にできますでしょうか？ よろしくお願い致します。 Private Sub ListBox1_Click() Sheets("Sheet1").Range("D1").Value = ListBox1.Value End Sub Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim v() As Variant Dim c As Range Dim k As Long ListBox1.Clear With Sheets("Sheet1") With .Range("A1", .Range("A" & .Rows.Count).End(xlUp)) ReDim v(1 To 2, 1 To .Rows.Count) For Each c In .Cells If c.Offset(, 1).Value Like TextBox1.Value & "*" Then k = k + 1 v(1, k) = c.Value v(2, k) = c.Offset(, 1).Value End If Next If k = 0 Then MsgBox "指定の値は存在しません" Else ReDim Preserve v(1 To 2, 1 To k) ListBox1.List = WorksheetFunction.Transpose(v) End If End With End With End Sub
- ベストアンサー
- Excel（エクセル）
- Excelのリストボックスで（VBA・ユーザーフォーム）
ユーザーフォームにあるリストボックスに、２列のデータを表示しています このデータを選択すると、シートのセルに転記するようにしたいのですが、うまく行きません 今のコードはこのようになっています Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Sheets(1).Range("A1").Value = ListBox1.Value End Sub このコードで１列目のデータがA1に入るのですが、B1に２列目のデータを入れたいのですが出来ません 例えば、リストボックスが下のような場合 コード 商品名 00001 お茶 00002 紅茶 00003 コーヒー 紅茶の行を選択したら、A1に00002、B1に紅茶と入力されるようにしたいのです どのようにすればよいのか教えて下さい よろしくお願い致します
- ベストアンサー
- オフィス系ソフト
- リストボックスから項目を選択してセルに入力したいのです
EXcel2003でマクロ作成中です。エクセルシートのＮ列を右クリックすると、ユーザーォームが現れ、その中のリストボックスから項目を選択すると選択文字が白色に反転します。 ユーザーホームの下方に設置した「入力する」ボタンをクリックする、アクティブセルにテキスト文字列が挿入されます。 Option Explicit Private Sub CommandButton1_Click() With ListBox1 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox1.list(ListBox1.ListIndex) End If End With Unload UserForm1 End Sub --------------------------- Private Sub CommandButton2_Click() Unload UserForm1 End Sub ------------------------------ これと同じものをＢ列につくりました。エクセルシートのＢ列を右クリックすると、リストボックスが表示されますが、その中の項目を選択しようとすると、一瞬にしてユーザーフォーム自体が消えてしまい項目を 選択できません。 Private Sub CommandButton1_Click() With ListBox2 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox2.list(ListBox2.ListIndex) End If End With Unload UserForm2 End Sub ----------------------------- Private Sub CommandButton2_Click() Unload UserForm2 End Sub ------------------------------------------ まったく同じものを作って内容だけかえたのですが、できません。 どうしてでしょうか？ご教授おねがいします。
- ベストアンサー
- Visual Basic
- リストボックスから複数行を選択し、その複数のデータをセルに入力したい
Excel2003でマクロをつくっています。シートのＢ列を右クリックすると、リストボックスが表示され 任意１行を選択するとシートのＢ列、Ｃ列、Ｄ列のセルにデーターが入力されます。 Private Sub ListBox2_Click() With ListBox2 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ’シートが保護されていたら保護を解除 If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect End If ActiveCell.Value = ListBox2.List(ListBox2.ListIndex, 0) ActiveCell.Offset(0, 1).Value = ListBox2.List(ListBox2.ListIndex, 1) ActiveCell.Offset(0, 2).Value = ListBox2.List(ListBox2.ListIndex, 2) ActiveSheet.Protect End If End With Unload UserForm3 End Sub このリストボックスから複数の行を選択し、シートのＢ列、Ｃ列、Ｄ列のセルにデーターを入力したいのですが、Multiselectプロパティを変更しても、一行のみしか入力できません。 上のコードをどうかえたらよろしいでしょうか。
- ベストアンサー
- Visual Basic
- オプションボタンとリストボックスの連動
下記コードを作りましたが、全く反応がありません。 どこが悪いのか、指摘いただけませんでしょうか？ よろしくお願いします。 ・オプションボタン1を選択＝リストシートのB列をリストボックスへ表示 ・オプションボタン2を選択＝リストシートのC列をリストボックスへ表示 ・リストボックスから一項目を選択、値を入力シートへ入力 Private Sub UserForm2_Initialize() If OptionButton1.Value = True Then With UserForm2 .ListBox1.RowSource = "リスト!B3:B" & lastRow End With End If If OptionButton2.Value = True Then With UserForm2 .ListBox1.RowSource = "リスト!C3:C" & lastRow End With End If End Sub Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) Worksheets("入力!").ActiveCell.Value = ListBox1.Value End Sub 以上
- ベストアンサー
- Visual Basic
- リストボックスで選択した一行を一度にセルに入力したい
Xcel2003でマクロ作成中です。以下のコードで、リストボックスで一行を選択しました。この選択した一行のデータのうち２個のデータをＣ列とＤ列に入力することができました。が、Ｅ列にもデータを入力したいのです。が色いろやってみましたができません。 Private Sub ListBox2_Click() With ListBox2 If .ListIndex = -1 Then MsgBox "項目を選択してくだい" Else ActiveCell.Value = ListBox2.list(ListBox2.ListIndex, 0) ActiveCell.Offset(0, 1).Value = ListBox2.list(ListBox2.ListIndex, 1) End If End With Unload UserForm3 End Sub 上のコードにどう追加記入したらよろしいでしょうか？
- ベストアンサー
- Visual Basic
- EXCELのユーザーフォームのリストについて
WinXP（sp3) EXCEL2003 いつも本当にお世話になっております。 また、1つ教えていただきたいのですが、ユーザーフォームのリストボックよりデータ取得で、必ずクリック(選択) しなければ、エラーになると思うのですが、ここを選ばない場合は、1行目選択としたいのですが、 どうもうまくいきません。 どなたかご教授いただけないでしょうか？ いかにコードを転記いたします。 Private Sub CommandButton1_Click() gy = UserForm.ListBox1.ListIndex If gy = -1 Then MsgBox "1行目選択" Worksheets("データ入力シート").Cells(1, 2).Value = ListBox1.List(2, 35)←ここで実行時エラー381 Else Listプロパティの値を取得で きません。プロパティのインデッ クスの配列が無効ですと なります。 Worksheets("データ入力シート").Cells(1, 2).Value = ListBox1.List(ListBox1.ListIndex, 35) End If Unload Me End Sub
- ベストアンサー
- その他MS Office製品
- 【エクセル】オプションボタンにセルの値を反映させるには
エクセルマクロ初心者です。教えてください。 シート２ の あるセルの値が A のとき シート１上の オプションボタン１がtrueになる。 シート２ の あるセルの値が A以外のとき シート１上の オプションボタン１がfalseになる。 （オプションボタン１はフォームコントロールのオプションボタンです。） という結果になるマクロの登録方法を模索していますがうまくいきません。 実際には、シート１は入力シートで、ボタンクリックで別の蓄積シートに転記（オプションボタンのほかコンボボックスなどの内容を転記します）。シート１上のリストボックスに蓄積シートの内容を表示し、選択するとその内容を呼び出すようにしたいのです。 コンボボックスやテキストボックスに呼び出すところまではなんとか本を見たりしてできたのですが、オプションボタンに呼び出せません。 なんとかお知恵をお借りしたいです。 よろしくおねがいします。 ＊下記のようにやってみました。 Private Sub commandbutton3_click() Dim n As Integer n = ListBox1.ListIndex If n = -1 Then MsgBox "選択してください" Else ComboBox2.Value = ListBox1.List(n, 0) ComboBox3.Value = ListBox1.List(n, 3) ComboBox4.Value = ListBox1.List(n, 4) ComboBox5.Value = ListBox1.List(n, 8) ComboBox6.Value = ListBox1.List(n, 9) ComboBox7.Value = ListBox1.List(n, 1) ComboBox8.Value = ListBox1.List(n, 2) TextBox3.Value = ListBox1.List(n, 10) End if ＊＊＊＊＊＊＊＊＊＊＊ここからがうまくいきません＊＊＊＊＊＊＊＊ If Worksheets("入力シート").ListBox1.List(n, 6).Value = "A" Then OptionButton１.Value = True Else OptionButton("A").Value = False End If End Sub
- ベストアンサー
- Visual Basic
- VBA ユーザーフォーム リストボックス
教えてください。 現在下記のようなコードでリストボックスに対象セルの値を表示しています。 Private Sub UserForm_Initialize() ListBox1.List = Range(Range("M5"), Cells(Rows.Count, 14).End(xlUp)).Value End Sub この時、例えば別シート（仮にsheet3）のセルを表示したい場合 どのようにすればいいでしょうか？ ListBox1.List = sheets("sheet3").Range(Range("M5"), Cells(Rows.Count, 14).End(xlUp)).Value としてもエラーになってしまいます。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- ListBoxを数字Keyで選択したい
お世話になります。 OSはWin XP Home、Excel2002を使用しています。 EXCELのsheet1にCommandButton1とListBox1を貼り付けて以下のようにコーディングしています。 'Listbox1表示 Private Sub CommandButton1_Click() ListBox1.Visible = True End Sub '使用者はリストボックスのダブルクリックでリストボックスの入力ができる。 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ListBoxDataSet End Sub '使用者はリストボックスでマウスで選択後EnterKeyで入力ができる。 Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = vbKeyReturn Then ListBoxDataSet KeyAscii = 0 '←これがないとなぜかEXCELが異常終了するので注意！ End If End Sub 'リストボックスで選択したリストを、シートの選択セル(単一)に転記し、 'その後でリストボックスを非表示 Sub ListBoxDataSet() ActiveCell.Value = ListBox1.Text ListBox1.Visible = False End Sub さらにListBox1のプロパティのListFillRangeはA1:B100としており、A列は1から100の連番、B列は上から順に「中山」、「常盤」、「高島」・・・98番目には「吉岡」という名前があります。 現在Ａ列の数字は表示以外の機能は持っておらず、ダブルクリックか、マウスで１クリックで項目選択をした後にEnterKeyで名前だけがActivecellに転記されるようになっています。 100件もの項目をひとつのリストボックスには表示しきれず、スクロールバーで探すのも大変なので、例えば数字Keyで1と打てばすぐに「中山」が選択され、さらにEnterKeyで転送される、98と打てば「吉岡」が選択され・・・という風に機能追加したいのです。 いろいろ調べましたが、方法が分かりませんでした。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
お礼
ありがとうございました。解決の糸口が見えました。
補足
VBAの問題ではなくダブルクリックで選択されていたことに気付きました。 現象が起きるのはユーザーフォームと対象セルが重なっている場合だけで、 ずれた位置はダブルクリック後のマウスカーソルと一致しています。 自己解決しましたが、ushi2015さんのアドバイスを実行したおかげです。 これがなければ未だに気付けなかったと思うと、ナイスアシストなアドバイスと感謝します。ありがとうございました。