Excel VBA質問箱 IV

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

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


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

43927 / 76735

←次へ　｜　前へ→


	【37834】Re:別シートのPublic関数からのエラー取得

小川 - 06/5/19(金) 20:57 -


	引用なし

	パスワード

▼ichinose さん：

ご指示頂いた方法でもうまくいきました。

別シートへの呼び出しが頻繁にある場合など
以下の方が簡潔で具合がよいですね。

丁寧なフォロー有難うございます。

>>>----------------------------------------------------
>>>＜Sheet1＞
>>>Public Sub test()
>>>On Error GoTo ERR_ROUTINE
>　dim sht as object
>　set sht=sheet2
>　sht.testSub
>>'としもＯＫでした
>>'因みに
>'このtestsubをThisworkbookに置いたばあいも
>'　dim wbk as Object
>'　Set wbk=thisworkbook
>'　　wbk.testsub
>'でＯＫです。
>
>>>
>>>Exit Sub
>>>ERR_ROUTINE:
>>>　　Debug.Print Err.Description
>>>End Sub
>>>
>>>　＜Sheet2＞
>>>Public Sub testSub()
>>>　　Call Err.Raise(10003, , "test1")
>>>End Sub
>>>
>>>----------------------------------------------------
>>
>>
>
>
>これも試してみて下さい。

0 hits

▼

【37829】別シートのPublic関数からのエラー取得 小川 06/5/19(金) 18:34