| |
お世話になります。
個人用マクロブックから、標準モジュールへの変数の受け渡しが上手くいかず、
お知恵を拝借できればと思い、メッセージを致しました。
下記のコードにおいて、標準モジュールの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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
