「円ドル双方向換算」マクロを作成しているのですが・・・（長文です）

質問

Function 円ドル換算(円元金 As Integer)
' 受け取ったドル元金から円換算額を算出して返す
' 引数：ドル元金（Integer型）
' 返数：円換算（Integer型）
Dim 換算レート As Double
Dim ドル換算額 As Double

' 換算レート（１ドル価格）を設定する
換算レート = 109.5

' 円元金からドル換算額を算出する
ドル換算額 = 円元金 / 換算レート

' ドル換算額を呼び出し元に戻す
円ドル換算 = ドル換算額
End Function
Function ドル円換算(ドル元金 As Integer)
' 受け取った円元金からドル換算額を算出して返す
' 引数：円元金（Integer型）
' 返数：ドル換算
Dim 換算レート As Double
Dim 円換算額 As Double

' 換算レート（１ドル価格）を設定する
換算レート = 1 / 109.5

' ドル元金から円換算額を算出する
円換算額 = ドル元金 / 換算レート

' 円換算額を呼び出し元に戻す
ドル円換算 = 円換算額
End Function
Sub 円ドル双方向換算()
Dim ユーザー選択 As Integer
Dim 元金 As Integer
Dim 換算額 As Integer

' 円元金を取得する
円元金 = Range("B3").Value

' ドル元金を取得する
ドル元金 = Range("B3").Value

' 換算する通貨を判定し、それぞれについて換算を行う
If Range("B2") = 1 Then '円ドル換算を行う場合
換算額 = 円ドル換算(ドル元金)
換算額 = Application.WorksheetFunction.Round(円ドル換算, 1) '四捨五入して小数点１桁に変換する
Range("B4").Value = 円ドル換算 '円ドル換算値を出力する
ElseIf Range("B2") = 2 Then 'ドル円換算を行う場合
換算額 = ドル円換算(円元金)
換算額 = Application.WorksheetFunction.Round(ドル円換算, 1) '四捨五入して小数点１桁に変換する
Range("B4").Value = ドル円換算 'ドル円換算値を出力する
End If
End Sub

B2のセルにくる数字が１のときは円→ドルに、２のときはドル→円に換算するマクロを作りたいのですが・・・
元金はセルB3に、換算額はセルB4に表示します。
かなり初心者なので、模範解答を示してもらえると助かります＾＾；
よろしくお願いします＞＜

回答No.2

noname#79209 · ベストアンサー

もう少し親切にするなら、
B2に「入力規則」－「リスト」で「元の値」に「円→ドル,ドル→円」として
ユーザー定義関数側を
Function 通貨換算(元金 As Integer,モード As String)
と変更し、更にIf部分を
If モード = "円→ドル" Then
通貨換算 = Round(元金/レート,1)
Else
通貨換算 = Round(元金*レート,1)
End If
と変更すれば、「１はどっちへの換算だっけ？」と迷わず済みます。

なお、#1で回答した中の、
' 返数：換算結果（Integer型）
は不要ですね。

回答No.1

noname#79209

双方向換算なら、
一つに纏めてしまう方がベターでしょう。
例：
Function 通貨換算(元金 As Integer,モード As Integer)
' 受け取った元金から換算額を算出して返す
' 引数：元金（Integer型）
' 引数：モード（Integer型）1=円toドル、2=ドルto円
' 返数：換算結果（Integer型）
Const レート As Double = 109.5

If モード = 1 Then
通貨換算 = Round(元金/レート,1)
Else
通貨換算 = Round(元金*レート,1)
End If
End Function

でいいのでは？
表の計算式では、B4に
=通貨換算(B3,B2)
とすれば、良いでしょう。
関数ですから、プロシージャ内にセル番地を埋め込むのはお勧めしません。
必要なデータは、パラメータにすべきです。