Excel VBA質問箱 IV

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

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


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

10911 / 76734

←次へ　｜　前へ→


	【71366】Functionで２つ以上の変数

AoYasu - 12/2/25(土) 10:17 -


	引用なし

	パスワード

以下のようなFunctionを書いたのですがこの中でRetu；Gyouの変数の値も
Subプロシージャーに引き渡したいのですが　可能なのでしょうか
よろしくお願いいたします
　　　　Function GetRange(ByVal N_Range As String) As String
　　　　　Dim F_Cnt As Integer
　　　　　Dim F_Instr As Integer
　　　　　Dim Gyou As String
　　　　　Dim Retu As String
　　　　　Dim NRetu As Integer
　　　　　Dim NGyou As Integer
　　　　　Dim Msu As Integer
　Do
　　If InStr(1, N_Range, "$") = 0 Then
　　　　Exit Do
　　Else
　　　　N_Range = Trim(Mid(N_Range, (InStr(N_Range, "$") + 1)))
　　　　NRetu = InStr(1, N_Range, "$")
　　　　Retu = Left(N_Range, NRetu - 1)　　'B　　　　　　
　　　　Gyou = Trim(Mid(N_Range, (InStr(N_Range, "$")+1))) 'N_Range=B$2　
　　　　Msu = Len(N_Range)
　　　　NGyou = InStr(1, N_Range, "$")
　　　　Gyou = Right(N_Range, Msu - NGyou)　'2　　　　　　
　　　　N_Range = Retu & Gyou　　　　　　'　B2
　　End If
Loop
GetRange = N_Range
End Function

2 hits

▼

【71366】Functionで２つ以上の変数 AoYasu 12/2/25(土) 10:17

≪