マクロが実行できません。。。どこがいけないのでしょうか？？？

質問

Sub 米ドル換算()
Dim 元金 As Long
Dim ドル価格 As Integer
Dim 米ドル換算額 As Double

'　「元金」の値を取得する
元金 = Range("A4").Value

'　「ドル価格」を取得する
ドル価格 = Range("A2").Value

'　取得した「元金」と「ドル価格」をもとに「米ドル換算額」を取得する
米ドル換算額 = 元金 / ドル価格

'　算出した「米ドル換算額」を出力する
Range("B4").Value = 米ドル換算額

End Sub

ちなみに
元金 = Range("A4").Value
↑
この部分が「Range」メソッドは失敗しました。_Globalオブジェクト
と表示されるのですが、どういうことでしょうか？

回答No.1

pkh4989 · ベストアンサー

こんにちは。
以下のように計算シートをActiveにしてみてください。

Sub 米ドル換算()
　　Dim 元金　　　　　　As Long
　　Dim ドル価格　　　　As Integer
　　Dim 米ドル換算額　　As Double
　　Dim WS　　　　　　　As Worksheet
　　'
　　Set WS = Workbooks("Book1").Worksheets("Sheet1")　　'
　　WS.Activate　　　　　　　　　　　　　　　　　　　　 '←計算シートをActiveにする
　　'　「元金」の値を取得する
　　元金 = Range("A4").Value

　　'　「ドル価格」を取得する
　　ドル価格 = Range("A2").Value

　　'　取得した「元金」と「ドル価格」をもとに「米ドル換算額」を取得する
　　米ドル換算額 = 元金 / ドル価格

　　'　算出した「米ドル換算額」を出力する
　　Range("B4").Value = 米ドル換算額
End Sub

お礼

とても丁寧な回答をありがとうございます！
おかげで上手くマクロを完成させることができました＾＾＊