エクセルのマクロについての質問です。

質問

エクセルのマクロについての質問です。

マクロボタンを作成し、発動する際に対象シートがセルに入力された値にしたいのです。
例えば
シート名
「メイン」、「1月」～「12月」までの13個存在しているとして。

シート「メイン」のＡ1に2月と入力されている状態でマクロを発動させた時
シート「メイン」のＡ2の値をシート「2月」のＡ1に返すような感じです。
3月と入力されていればシート「3月」のＡ1に返すような・・・・

文章力がなくて申し訳ありません。

回答No.2

jcctaira · ベストアンサー

※ボタンがシート「メイン」にある場合は
Sub ボタン_Click()
　Sheets(Range("A1")).Range("A1") = Range("A2")
End Sub

※ボタンがシート「メイン」にない場合は
Sub ボタン_Click()
　Sheets(Sheets("メイン").Range("A1")).Range("A1") = Sheets("メイン").Range("A2")
End Sub

お礼

ありがとうございますｗｗ
少し違う数式に変更しましたが問題なく使用できました。

回答No.1

xls88

こんな感じでどうでしょうか。

With Sheets(Sheets("メイン").Range("A1").Value)
.Range("A1").Value = Sheets("メイン").Range("A2").Value
End With

お礼

回答ありがとうございます。
ＷＩＴＨを使う文章を使ったことがなかったのですが、シートの指定は問題なく使用できましたｗｗ