|
マウスフック(WH_MOUSE_LL)について
http://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をコピペしています。
以上よろしくお願いします。
|
|