マクロのセルの範囲指定

質問

こんにちは。マクロ初心者です。

今エクセルの業務でマクロを作成しようとしているのですが
マクロ実行時にセルの範囲でマウスでセルを選んだところから
マクロを実行させたいのですが（マクロを実行する際毎回場所が変わるので）そのようなセル指定方法はあったりしますでしょうか？

項目に関しては（BW4～BX4）は固定です。
関数に関しては（BW10～BW10）は月によっては
BW20になったりと行が変わります。
Range("BW10").Selectのカッコ内を毎回変更すればいいのですが
項目が20以上ある為面倒です。
なにか良い方法がありますでしょうか？

よろしくお願いいたします。

Range("BW4").Select
ActiveCell.FormulaR1C1 = "商談明細NO桁数"
Range("BX4").Select
ActiveCell.FormulaR1C1 = "商談明細NO桁数2"

Range("BW10").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(0,RC[-70])"
Range("BX10").Select
　　ActiveCell.FormulaR1C1 = "=RIGHTB(RC[-1],2)"

回答No.2

_Kyle · ベストアンサー

・Select　は　セルやセル範囲を選択するメソッドです。
・ActiveCell　は　アクティブなセルを返すプロパティです。

というわけで、そもそもSelectしなければ良い…というよりも、
Selectすると「セルを選んだところ」が変わってしまいますからマズいです。

Range("BX4").Select
とした時点で、Selectionはマウスで指定した箇所ではなくBX4になってしまいます。

Selectを使わず、

Range("BW4").FormulaR1C1 = "商談明細NO桁数"
Range("BX4").FormulaR1C1 = "商談明細NO桁数2"
ActiveCell.FormulaR1C1 = "=CONCATENATE(0,RC[-70])"
ActiveCell.Offset(0, 1).FormulaR1C1 = "=RIGHTB(RC[-1],2)"

とすれば【この部分以前にSelectしていなければ】ご要望のように動作するはずです。

※ActiveCell　は「マウスでセルを選んだところ」そのものです。
※ActiveCell.Offset(0, 1)　は「マウスでセルを選んだところの1列右」です。

ご参考まで。

お礼

できました～～！
勉強不足ですみませんm(。._.)m
ありがとうございました。

回答No.3

nattocurry

Selection.Offset(, 1).FormulaR1C1
ですね。

回答No.1

nattocurry

Range("BW10").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(0,RC[-70])"

↓

Selection.FormulaR1C1 = "=CONCATENATE(0,RC[-70])"

というようにすれば良いです。

お礼

回答ありがとうございます。

マウスでBW10を指定してやってみたのですが
BW10のみ表示されBX10は表示されませんでした。

Range("BX10").Select
　　ActiveCell.FormulaR1C1 = "=RIGHTB(RC[-1],2)"
の部分はどのようにすればよいですか？

同じようにSelection.FormulaR1C1 では表示は無理ですよね。