Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34492 / 76738

←次へ　｜　前へ→


	【47455】マウスフック(WH_MOUSE_LL)の後処理

oj - 07/3/11(日) 2:01 -


	引用なし

	パスワード

マウスフック(WH_MOUSE_LL)について
ｈｔｔｐ://www2.moug.net/bbs/exvba/20070223000033.htm
上記にてリストボックスのスクロールに挑戦してみたのですが
スクロールは出来ましたが保存→閉じる後
他のbook（または同book）を
開こうとすると、かならずエラーが発生しエクセルが閉じてしまいます。
そこで
2007/02/25（日）19:14:57を参考に
Private Sub Workbook_BeforeClose(Cancel As Boolean)
　　Unload UserForm1
End Sub
とした事で解決しました。とあり色々とテストしてみましたが
問題の解決に至りませんでした。

上記コードは何処に記述すればいいのでしょうか？
2007/02/25（日）13:41:17にある
>後始末なしでのブックのクローズ等もそうです。
これが原因かと思っているのですが・・・

参考までのコードは下記の通りです。
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)

　If Target.Cells.Count > 1 Then
　On Error Resume Next
　If Not Intersect(Target, Range("O9:X9,N18:V18")) Is Nothing Then
　　　 Cancel = True
　　UserForm17.Show vbModeless
　Else
　　UserForm17.Hide
　End If
　End If

'-------- UserFormモジュール --------
Private Sub UserForm_Initialize()
　　ListBox1.RowSource = Sheets("sheet1"). _
　　Range(Range("AS3"), Range("AS3").End(xlDown)).Address
　　StartHookLL Me
End Sub

Private Sub UserForm_Terminate()
　　EndHookLL Me
End Sub

UserFormはUserForm10～18まで存在します。
どこか問題ありますか？

標準モジュールは2007/02/25（日）14:08:16をコピペしています。
以上よろしくお願いします。

0 hits

▼

【47455】マウスフック(WH_MOUSE_LL)の後処理 oj 07/3/11(日) 2:01

≪