よねさんのWordとExcelの小部屋　なんでも掲示板 [One Tree All Message]

よねさんのWordとExcelの小部屋　なんでも掲示板

ツリー一括表示
検索結果リストボックスからセルへジャンプ /YS0211 (19/02/11(Mon) 09:53) #13351
`└` Re[1]: 検索結果リストボックスからセル�.. /よねさん (19/02/12(Tue) 09:45) #13354

親記事　/ ▼[ 13354 ]

■13351 / 親階層)

　検索結果リストボックスからセルへジャンプ

□投稿者/ YS0211 -(2019/02/11(Mon) 09:53:16)

タイトルの件ですが、「http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_listbox.html」に掲載いただいている一番最初の方法で試したのですが、「'リストボックス内のデータをダブルクリックするとシートのデータを選択します。」の箇所がうまくいきません。

実行すると以下のようなエラーが出ます。

「実行時エラー'13':
型が一致しません。」
デバッグすると以下の箇所に矢印が付きます。
⇒ .Range(.Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 1), .Cells(ListBox1.List(ListBox1.ListIndex, 0) + 1, 13)).Select

初心者ですがこの件に関してご教示願います。
よろしくお願いいたします。

[ □ Tree ] 返信/引用返信 削除キー/

▲[ 13351 ] / 返信無し

■13354 / 1階層)

　Re[1]: 検索結果リストボックスからセルへジャンプ

□投稿者/ よねさん -(2019/02/12(Tue) 09:45:15)

推測で何の根拠もありませんが、
ListBox1.List(ListBox1.ListIndex, 0)　の型が原因になっているのかもしれません。 

実は、現時点ではこちらのPC環境ではエラー無く動きます。
Win10のExcel2010 Excel2013 Excel2019で動作確認してみました。
この環境以外でテストできませんので、エラーになるのか確認できていません。

このコードの一部は2018/9/27に修正を加えているので、この当時に動かしたことがあります。
このとき、お書きのエラーが発生したような気もするのですが、調べようとしたら、すぐに解消されたような記憶があります。
コードの方は弄っていないと思います。
何か更新のタイミング(OSの更新?)でおかしくなったのかな・・・と思ったような記憶がかすかに残っています。
エラーの原因を特定できず申し訳ありません。

[ 親 13351 / □ Tree ] 返信/引用返信 削除キー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -