エクセルのマクロの作り方
マクロ初心者です。
今勉強している最中ですが、以下の物を作りました。
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Sheet2").Select
Range("A4").Select
ActiveCell.Formula = "=Sheet1!IM4"
ActiveCell.Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=Sheet1!R[-3]C[240]"
ActiveCell.Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=sheet1!r[-6]c[234]"
ActiveCell.Offset(3, 0).Select
ActiveCell.FormulaR1C1 = "=sheet1!r[-9]c[228]"
End Sub
わかる人はもうお分かりかもしれませんが、ループという機能でもっと簡単にできるように思います。
これを手打ちしていくのであれば、手間がかかってしまい、マクロの意味がないというか…
[-3]→[-6]→[-9]と、縦に参照したいセルが3つずつ上がっていき、横には左に6ずつ移動していきます。正確にはアクティブセルが移動しているのでってことなのでしょうけど…(たぶん…)
最初が絶対参照になっていて2回目以降から相対参照になっているのは、1回目で絶対参照にすれば、そのセルを基準として相対参照でRC[-6]でループさせられるかなっと思ったからです。。。結局そうなりませんでしたが…
作りたいのは、sheet2のA4とsheet1のIM4、sheet2のA7とsheet1のIG4をイコールにし、それを間隔は同じでsheet2のA127まで繰り返したものです。
本を買って、ネットで検索して色々とやったのですが、どうにもわからなく。。。
どうかよろしくお願いします。
お礼
御回答頂きましてありがとうございます。 なるほど、ドイツ語かなって思っていた字はドイツ語であってたんですね。 とりあえずドイツ製ってことでいいんでしょうか。 鑑定ですか・・・、そんなに高い物や珍しい物でもありませんしちょっと気が引けるところです。 とりあえず音は悪くないんですけど、デザインは今一つなんですよね、、、