「円ドル双方向換算」マクロを作成しているのですが・・・（長文です）
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に表示します。
かなり初心者なので、模範解答を示してもらえると助かります＾＾；
よろしくお願いします＞＜
お礼
回答ありがとうございます。