Excel VBA質問箱 IV

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

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


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

17904 / 76732

←次へ　｜　前へ→


	【64273】Re:Application.Inputboxの利用で質問

neptune - 10/1/29(金) 13:34 -


	引用なし

	パスワード

▼Yoshi さん：

>同じ処理を別のプロシージャにする、言葉の理解はできますが
>コードのイメージが湧いてきません。もう少し勉強してみます…
例えば、こんな感じ
※何の検証も確認もしてないです。Yoshi さんのコード見て書いてみただけです。
戻り値が欲しければFunctionにすればよい。
'//////////////////////////////////////////////
'引数：
'Target (Range)：基点となるセル
'lngOffset (Long):Targetからの列方向のオフセット値・・
'arg (Variant)：入力したい値
'//////////////////////////////////////////////
Sub Sample1(ByRef arg1 As Range, ByRef arg2 As Long, ByRef arg3 As Variant)
Const strCancelMsg = "キャンセルされました"
Const strNULLMsg = "キャンセルされました"

　　If VarType(arg3) = vbBoolean Then
　　　 MsgBox strCancelMsg
　　Else
　　　 If arg3 = "" Then
　　　　 MsgBox strNULLMsg
　　　 Else
　　　　arg1.Offset(, arg2).Value = arg3
　　　 End If
　　End If
End Sub

2 hits

▼

【64261】Application.Inputboxの利用で質問 Yoshi 10/1/28(木) 21:09