Excel VBA質問箱 IV

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

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


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

604 / 76735

←次へ　｜　前へ→


	【81796】個人用マクロブックから、標準モジュールへの変数の受け渡し

稲垣 - 21/5/28(金) 13:14 -


	引用なし

	パスワード

お世話になります。
個人用マクロブックから、標準モジュールへの変数の受け渡しが上手くいかず、
お知恵を拝借できればと思い、メッセージを致しました。

下記のコードにおいて、標準モジュールのtest1を実行した結果、
MsgBox「成功」を表示させるには、どうすればよいでしょうか。

尚、実際の実行結果は、MsgBox「失敗」でした。
お手数をお掛けします。

※個人用マクロブックでMsgBoxを表示すればよい、というご回答があるかもしれませんが、
　下記のコードはあくまで例であり、実際の処理において、
　個人用マクロブックから、標準モジュールへの変数の受け渡しがどうしても必要な事情です。

【標準モジュールのコード】
Option Explicit

Public Sub test1()

Dim msg As String

　　msg = "失敗"
　　Call Application.Run("PERSONAL.XLSB!test2", msg)
　　MsgBox msg

End Sub

【個人用マクロブックのコード】
Option Explicit

Function test2(ByRef msg As String)

　　msg = "成功"

End Function

7 hits

▼

【81796】個人用マクロブックから、標準モジュールへの変数の受け渡し 稲垣 21/5/28(金) 13:14