|
思い通りに出来るようになりました。
有難う御座いました。
▼n さん:
>そうでした..orz
>..Asc(.Trim(.Clean..処理の前にFilter解除が必要なので
>やはりBookClose時に解除処理を入れないといけません。
>>With Sheets("Sheet1")
>> If .FilterMode Then
>> .ShowAllData
>> End If
>>End With
>このコードはBeforeCloseイベントに書いてください。
>
>
>それから、
>このBookを閉じる時はどうのような方法で閉じていますか?
>ボタンか何かで、ThisWorkbook.Close など、
>Bookを閉じるマクロを呼び出したりしていると、
>BeforeCloseイベント内での ShowAllData メソッドが無視されると思います。
>また Savedプロパティによる制御もうまくいかないようです。
>
>
>なので、マクロによってそのBookを閉じる場合は、
>Sub test()
> Application.CommandBars.FindControl(ID:=106).accDoDefaultAction
>End Sub
>このように、手動で閉じる動作をエミュレートするような内容のマクロに変えてください。
|
|