|
▼ichinose さん:
ご指示頂いた方法でもうまくいきました。
別シートへの呼び出しが頻繁にある場合など
以下の方が簡潔で具合がよいですね。
丁寧なフォロー有難うございます。
>>>----------------------------------------------------
>>><Sheet1>
>>>Public Sub test()
>>>On Error GoTo ERR_ROUTINE
> dim sht as object
> set sht=sheet2
> sht.testSub
>>'としもOKでした
>>'因みに
>'このtestsubをThisworkbookに置いたばあいも
>' dim wbk as Object
>' Set wbk=thisworkbook
>' wbk.testsub
>'でOKです。
>
>>>
>>>Exit Sub
>>>ERR_ROUTINE:
>>> Debug.Print Err.Description
>>>End Sub
>>>
>>> <Sheet2>
>>>Public Sub testSub()
>>> Call Err.Raise(10003, , "test1")
>>>End Sub
>>>
>>>----------------------------------------------------
>>
>>
>
>
>これも試してみて下さい。
|
|