- ベストアンサー
VBA_Forms内で予期せぬエラーが発生?マウスホイールの問題を解決する方法
- Excel2016上でマクロを組んでいますが、ユーザーフォームでのリストボックス内では、マウスホイールが効かないという問題があります。
- マウスホイールのコードを標準モジュール内とフォーム内に追加した結果、一部の場合で予期せぬエラーが発生することがあります。
- 原因は不明ですが、メモリエラーまたは限界値の超過によるものかもしれません。
- みんなの回答 (11)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (10)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kkkkkm
- ベストアンサー率65% (1640/2489)
- kon555
- ベストアンサー率52% (1770/3402)
関連するQ&A
- ホイールパッド機能で予期せぬエラーが出ます
PC:Panasonic CF-SZ5 OS:Windows10 Pro ver.2004 Edgeを立ち上げると「ホイールパッド機能:予期せぬエラーが発生しました。ホイールパッド機能を起動できません」というメッセージが出ることがあります。 「OK」をクリックするとホイールパッドも操作できますし、いつもと変わりません。 どうしてこのようなエラーが出るのか見当もつきません。 同じような症状にあった方や、対処方法をご存じの方はいらっしゃいませんか?
- ベストアンサー
- Windows 10
- Excel VBA ListBoxのマウスホイールでエラーになる
エクセルマクロでListBoxを使ったのですが、そのListBoxにフォーカスが当たっている状態でマウスホイールを回転させるとエラーになります。VB6.5でなるようです。回避策はないものでしょうか?
- ベストアンサー
- Visual Basic
- 「予期しないエラーが発生しました。」
エクセル2003を使っています。 WEBクエリのVBAコードで、 .Refresh BackgroundQuery:=False の部分で、 実行時エラー1004「予期しないエラーが発生しました。」 と出て、先へ進めません。 だからって.Refresh BackgroundQuery:=Falseの部分を、コメントブロックしてしまうと、 webクエリがエクセルに表示されません。 いままではこのコードで、webクエリをエクセルに書き出せていたのに 何がどうなったのでしょうか? ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 予期せぬエラーが発生しました。の表示が出るのですが
品番 ESPRIMOWH77 M windows10 パソコンを起動すると、 予期せぬエラーが発生しました。理由:構成システムを初期化できませんでした と表示されます。アイコンも出ず、タスクバーにポインターを合わせても青い丸に変わりクリックできません。またしばらくすると、 アップデートナビの起動に失敗しました と表示されます。案内にしたがい再起動を押しましたが再起動されず、何も操作できない状況です。 何度も再起動、シャットダウンを試しましたが全く駄目でした。 FLINKと良く目にするのですが、特に何かした記憶がありません。何か解決法方があれば教えてください。宜しくお願い致します。 ※OKWAVEより補足:「富士通FMV」についての質問です。
- ベストアンサー
- Windows 10
- Excel VBA スクリプトエディタのホイール設定方法
Excel2000のVBAコード編集画面(VBAのスクリプトエディタ画面のことです)のVBAスクリプト表示のペインを、マウスホイールでも上下スクロール出来るようにする設定方法を教えて下さい。 ページキーやスクロールバーでの操作は、いつもどおり可能なのですが、スクリプトコードのペインにマウスカーソルがある状態でマウスホイールをくりくりさせても、いつの間にかスクロールしなくなってしまいました。 設定方法を調べてみましたが、分かりませんでした。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【vba】フォームに書いてあるコードをステップインすることは不可能でしょうか?
エクセルもアクセスも同じなんですが フォームのモジュール?に書いてあるコードを 「F8」のステップインすることは不可能でしょうか? 標準モジュールなら 「F8」で少しずつVBAコードを試すことが可能なのですが、 フォームに書いてあるほうはできません。 ひとつひとつ試したいので Private Sub コマンド1_Click() Call test End Sub とフォームのところに書き、 標準モジュールには Sub test() ・・・ End Sub と書いて 標準モジュールのほうを F8で少しずつデバッグしています。 こうするしかないのでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マウスホイールのことで
マウスホイールのことで困っています マウスホイールで。。 例えば、サイトで都道府県や日時を選択するときにそこの場所を選択しておいて、マウスポインタがその場所の上に無くても、マウスホイールを下にグリンッとすると、下のほうにある県名が表示されますよね? それなのに、都道府県が書かれているところにポインタを当ててなければ下に移動できなくて、サイト自体が下のページに移動てしまうんです。 今はvistaでsleipnir1.66を使っているのですが、設定のやり方が間違っているのでしょうか?
- 締切済み
- Windows 7
- Accessでのマウスホイールの無効化
Access初心者です。 特定のフォームでマウスのホイールの動作を受付けなくしたく、 下記URLを参考にVBEにコードを貼り付けてみましたが、うまく 動きません。 http://www.accessclub.jp/bbs2/0027/beginter08905.html VBE上でコンパイルすると、メッセージウィンドウが開き、 コンパイルエラー: SubまたはFunctionの属性が適切ではありません。 と表示され、同時に、該当するフォームのVBAコードに追加で 貼り付けたコードのうち WithEvents clsMouseWheel As CMouseWheel の部分が反転表示されます。 とりあえずOKとして、VBEを閉じ、再度プログラムを実行 させ、該当のフォームを開いてみても、やはり イベントプロパティに指定した指揮 読み込み時 でエラーが発生 しました:SubまたはFunctionの属性が適切ではありません。 が表示されてしまい、うまく動きません。 どのようにすれば良いでしょうか? コードの貼り付ける位置が間違っている等でしょうか? どなたか教えてください、よろしくお願い致します。 以上
- ベストアンサー
- オフィス系ソフト
- ホイール付き 5ボタンマウスを探しています。
ホイール付き 5ボタンマウスを探しています。 条件は以下のみっつです。 1 第4と第5ボタンを、「戻る」と「アプリケーションを閉じる」に割り付けできること。 2 ホイール操作や第4・第5ボタンを操作したとき、現在フォーカスしているウィンドウでは無くマウスポインタの乗っているウィンドウに作用すること。 3 できれば、ホイール(ホイールの代りにトラックボールでもOK)の操作で横スクロールもきればなお良。 Windows7 で使います。 接続は、USBかブルートゥースがうれしいです。 かなり以前のアーベルのトラックボールマウスはOKだったのですが、生産終了で入手できません。 その後いろいろ試してみましたが、条件2 が全てアウトです。 実際に購入して試さないと分らないので困っています。 条件に合うマウスは、無いでしょうか? よろしくお願いします。
- 締切済み
- その他(PCパーツ・周辺機器)
- VP-4300で印刷する際に表示されるドライバーエラーについて解決方法を紹介します。
- Windows10を使用しているVP-4300ドットプリンターのユーザーがドライバーエラーに困っている場合、解決方法をご紹介します。
- EPSON社製品であるVP-4300ドットプリンターがドライバーエラーが表示され印刷できない問題についての解決方法をまとめました。
お礼
すごい! この後半のAddItemの方法でエラーなしにExcel2010で動作しました。ホイールでlist2の表示もスムーズに。 (一部、list2のセル指定を修正しましたが。) Case "BBB" Call ChangeItem("一覧", Range("B3:B26")) Case "CCC" Call ChangeItem("一覧", Range("C3:C26")) ・・・ まだ理解はできていませんが、.RowSourceを使わない方法があるのですね。よかった。 大変お世話になりました。
補足
追)list1側も修正しました。 For i = 3 To 26 Me.ListBox2.AddItem .Cells(i, "A").Value ⇒ Me.ListBox1.・・・