エクセル マクロ

質問

はじめまして。
エクセルでマクロを使って研究を進めているものです。
最近マクロを使い始めたのですが、ワークシート関数のスクリプトについてご質問があります。
具体的な記述を書いたほうが説明しやすいので、下に記述します。
Sub Macro1()
Windows("a.xls").Activate

ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"・・・(1)
Range("J3").Select
End Sub
このような命令があるときに、sum関数の中に変数を入れることを考えます。そのときに、R1C1表示では選択したセルを基準にして変数を考えなくてはいけないので考えにくいです。そこで、イメージとしてですがこのような書き方はできないのでしょうか。
(1)の部分
ActiveCell.Formula = "=SUM(Range(Cells(2, 2), Cells(2, 変数)))"
つまり、rangeやcellsを使って書きたいということです。
また、実際のエクセルのセルに入力されている関数をそのままコピーして、それに変数を自分で手直しして加えるような方法がありましたら教えてください。
よろしくお願いします。

回答No.1

hana-hana3 · ベストアンサー

ActiveCell.Formula = "=SUM(" & Range(Cells(2, 2), Cells(2, 変数)).Adderss & ")"

のような方法で可能です。

お礼

さっそくのお返事ありがとうございます。
かなり求めていたものに近かったのでありがたいです。

回答No.5

Zero_0

No.4追加です。
J3セルがアクティブになっていて、マクロを実行すると=sum(B3:I3)が入るマクロと考えればいいのでしょうか。
まったく発想を変えて、
Sub Macro1()
area = "B3:I3"
Cells(10, 3) = "=sum(" & area & ")"
End Sub
というのはいかがでしょう。cells(10,3)、[B10]のセルにSumの範囲をareaという変数で指定しています。areaの文字列を計算で作成してやればどんな式でも入ります。

回答No.4

Zero_0

質問には、直接関係ないですが、計算式の方法が、R1C1参照形式を使用するという設定になっていませんか。
Excel2003の場合、ツール、オプションの中に全般タグ、R1C1参照形式を使用するのチェックを外すことで、セルをA1,A2・・・のようにすることができます。
この点は、どうでしょうか。

お礼

その点はしっかり分かっています。
ただ、関数の中に変数を入れるときの入れ方がよく理解できていないということです。
お返事ありがとうございました。

回答No.3

imogasi

質問者は独学でやっているために、便利なスマートなやり方に触れてないだけです。この質問コーナーを１ヶ月間見ておれば、２－３種類のどれも使う方が出てきています。
ＳＵＭ関数は範囲を引数にしていしますので、セル範囲の正しい書き方であれば、何でも良い。
Sub test01()
x = 3
y = WorksheetFunction.Sum(Range("A1:A" & x))
MsgBox y
End Sub
Sub test02()
x = 4
u = 1: V = 5
y = WorksheetFunction.Sum(Range(Cells(u, "A"), Cells(V, "A")))
MsgBox y
End Sub
ーー
＞SUM(RC[-8]:RC[-1])"・・・(1)
私らこういう使い方を見向きもしないが、都合悪いことは無かった。
＞ActiveCell.Formula
みな関数式設定にするのも素人くさい。
一般にやり方のタイプは
（１）式設定に持ち込む。Ｆｏｒｍｕｌａ＝
（２）ＶＢＡで使える関数式で計算する、処理する
z = WorksheetFunction.Sum(Range("A1:A5"))
MsgBox z
（３）ＶＢＡのロジックで行う
例
Sub test03()
t = 0
For i = 1 To 10
t = t + Cells(i, "A")
Next i
MsgBox t
End Sub
ーー
他の１例　Ｍａｔｃｈ関数とＦｉｎｄメソッド利用など
（３）のタイプがが奥行きが深いと思う。（２）が簡潔な場合もあるが。

お礼

お返事ありがとうございます。
もう少し勉強が足りなかったみたいです。
これにめげず頑張りたいと思います。
ご指摘の点はまだはっきりと理解できないですが、これを頼りに幅を広げていこうと思います。

回答No.2

zap35

こんな方法でも。
Sub Macro1()
　a = 10
　ActiveCell.Formula = "=SUM(A1:A" & a & ")"
End Sub

Sub Macro2()
　Cells(1, 1).Value = 10
　ActiveCell.Formula = "=SUM(B1:B" & Cells(1, 1).Value & ")"
End Sub

＞実際のエクセルのセルに入力されている関数をそのままコピー
Dim wkStr As String
　wkStr = Range("A10").Formula
　'wkStrを加工
　Range("B10").Formula　= wkStr
で変数に格納→加工→別セルに格納になると思いますが具体的ではないので回答できません。

お礼

＞ActiveCell.Formula = "=SUM(A1:A" & a & ")"
この形式の場合、行ではなくて列が変数になる場合が分からないです。
最後のスクリプトは…、もう少し考えて見ます。
お返事ありがとうございました。