子プロシージャを呼び出す時に「引き数」として渡す。
'***************************************************************************************************
' Functionプロシージャ(参照渡し)サンプル Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/07/05(1.00)新規作成
'16/11/19(1.10)*.xlsm化の変更
'20/02/15(1.20)コード整理、標準化準拠作業
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ シート側から呼び出される処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST
'* 機能 :元のプロシージャ
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年07月05日
'* 作成者 :井上 治
'* 更新日 :2020年02月15日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:あくまでもサンプルです。
'***************************************************************************************************
Public Sub TEST()
'-----------------------------------------------------------------------------------------------
Dim strTEXT As String ' 受け渡し文字列
strTEXT = "あいうえお"
' 値を渡して、TEST2プロシージャを呼ぶ
Call TEST2(strTEXT)
' 値が書き換わったか確認
MsgBox strTEXT & "が戻ってきた!"
End Sub
'***************************************************************************************************
' ■■■ サブ処理(Private) ■■■
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :呼ばれるプロシージャ(参照渡し)
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = 受け渡し文字列(String) ※Ref参照
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年07月05日
'* 作成者 :井上 治
'* 更新日 :2020年02月15日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Sub TEST2(ByRef strTEXT2 As String)
'-----------------------------------------------------------------------------------------------
' 値が渡ってきたか確認
MsgBox strTEXT2 & "が渡ってきた!"
' 渡された値を書き換える
strTEXT2 = "かきくけこ"
End Sub
'----------------------------------------<< End of Source >>----------------------------------------
'***************************************************************************************************
' Functionプロシージャ(値渡し)サンプル Module1(Module)
'
' 作成者:井上治 URL:https://www.ne.jp/asahi/excel/inoue/ [Excelでお仕事!]
'***************************************************************************************************
'変更日付 Rev 変更履歴内容------------------------------------------------------------------------>
'03/07/05(1.00)新規作成
'16/11/19(1.10)*.xlsm化の変更
'20/02/15(1.20)コード整理、標準化準拠作業
'***************************************************************************************************
Option Explicit
'***************************************************************************************************
' ■■■ シート側から呼び出される処理 ■■■
'***************************************************************************************************
'* 処理名 :TEST
'* 機能 :元のプロシージャ
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :(なし)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年07月05日
'* 作成者 :井上 治
'* 更新日 :2020年02月15日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:あくまでもサンプルです。
'***************************************************************************************************
Sub TEST()
'-----------------------------------------------------------------------------------------------
Dim strTEXT As String ' 受け渡し文字列
strTEXT = "あいうえお"
' 値を渡して、TEST2プロシージャを呼ぶ
Call TEST2(strTEXT)
' 値が書き換わったか確認
MsgBox strTEXT & "が戻ってきた!"
End Sub
'***************************************************************************************************
' ■■■ サブ処理(Private) ■■■
'***************************************************************************************************
'* 処理名 :TEST2
'* 機能 :呼ばれるプロシージャ(値渡し)
'---------------------------------------------------------------------------------------------------
'* 返り値 :(なし)
'* 引数 :Arg1 = 受け渡し文字列(String)
'---------------------------------------------------------------------------------------------------
'* 作成日 :2003年07月05日
'* 作成者 :井上 治
'* 更新日 :2020年02月15日
'* 更新者 :井上 治
'* 機能説明:
'* 注意事項:
'***************************************************************************************************
Private Sub TEST2(ByVal strTEXT2 As String)
'-----------------------------------------------------------------------------------------------
' 値が渡ってきたか確認
MsgBox strTEXT2 & "が渡ってきた!"
' 渡された値を書き換える
strTEXT2 = "かきくけこ"
End Sub
'----------------------------------------<< End of Source >>----------------------------------------