Access VBA質問箱 IV

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

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


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

2552 / 9994

←次へ　｜　前へ→


	【10715】Re:エクセルに値渡ししたい

ON - 08/11/10(月) 16:11 -


	引用なし

	パスワード

解説ありがとうございます

"一番大きな違い"　は、文言として理解できます・・・
折角コードをアップ頂いていますが頭が固くて　(T_T)

お手数ですが下記が理解できないと前に進めそうもありません
'F_ByValS:6　元値でなく加工値はなぜ？？
アドバイス頂けるとうれしいです　よろしくお願い致します

Sub ByRef_ByVal()

　　Dim str As String
　　
　　str = "Ref"
　　S_ByRef str
　　Debug.Print "S_ByRef:" & str　 'S_ByRef:123 '参照渡し(ByRef) 加工値
　　Debug.Print
　　
　　str = "Val"
　　S_ByVal str
　　Debug.Print "S_ByVal:" & str　　'S_ByVal:Val '値渡し(ByVal)　元値
　　Debug.Print
　　
　　Debug.Print "F_ByRefS:" & F_ByRef(2)　'F_ByRefS:4　加工値
　　Debug.Print
　　
　　Debug.Print "F_ByValS:" & F_ByVal(2)　'F_ByValS:6　元値でなく加工値はなぜ？？
　　

End Sub

Sub S_ByRef(ByRef arg1 As String)　 '参照渡し(ByRef)
　　Debug.Print "S_ByRef_S:" & arg1　'S_ByRef_S:Ref
　　arg1 = "123"
　　Debug.Print "S_ByRef_E:" & arg1　'S_ByRef_E:123
　　Debug.Print
End Sub

Sub S_ByVal(ByVal arg1 As String)　 '値渡し(ByVal)
　　Debug.Print "S_ByVal_S:" & arg1　'S_ByVal_S:Val
　　arg1 = "123"
　　Debug.Print "S_ByVal_E:" & arg1　'S_ByVal_E:123
　　Debug.Print
End Sub

Function F_ByRef(ByRef arg1 As Integer)　 '参照渡し(ByRef)

　　F_ByRef = arg1 * 2
　　Debug.Print "F_ByRefF:" & F_ByRef　'F_ByRef:4
　　Debug.Print

End Function

Function F_ByVal(ByVal arg1 As Integer)　 '値渡し(ByVal)

　　F_ByVal = arg1 * 3
　　Debug.Print "F_ByValF:" & F_ByVal　'F_ByValF:6
　　Debug.Print
　　
End Function

469 hits

▼

【10633】エクセルに値渡ししたい ON 08/10/29(水) 13:55