設定済みの数式、関数をVBAに

質問

エクセルで各セルに、設定済みの数式や関数をVBAに移行記録することは出来ますか？

回答No.1

mshr1962 · ベストアンサー

たとえばB10に=SUM(B1:B9) という数式があったとして
マクロの記録→B10を選択→F2キーを押す→ENTERキーを押す→記録終了で

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B10").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C[-1]:R[-1]C[-1])"
Range("B11").Select
End Sub

となります。余分な部分｛Range("B10").Select｝と{Range("B11").Select}を削除すれば、
Macro1を実行すれば、上の9行のセルの合計を出す計算式がセットされます。

※参照するセル座標が絶対参照や相対参照の組合わせで出来ないほど複雑な場合はあきらめてください。

引数を受け渡しにするなら、ユーザー定義関数にすれば可能です。

■理屈抜きで、ユーザー定義関数を作ろう
http://kokodane.com/tec3_3.htm

お礼

早々に有り難うございました。複雑なものはマクロに記録などの手順を踏むべきなのですね。
助かりました。余分な作業をしなくて済みそうです。imogasiさんの言われるとおり初めから手順を踏む方が良いようですね。以後気をつけます。

回答No.2

imogasi

関数でしていることを、関数の形や引数を読み取って、ＶＢＡに自動翻訳するということなら、まずできません。
よほどの好事家が腕に任せてソフトを作れば、その事例限りではできるかもしれませんが、５００種弱ある関数のあらゆる種類の関数を対象にできる、ものはできないでしょう。一般論として方法論を述べたものは、ＷＥＢなどでも見たことがない。発想が初心者的で奇想天外です。
＞移行記録することは
マクロの記録のようなことをしたいなら、関数をセットするときにマクロの記録を初めて置かなければならず
、記録されるのも
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:R[2]C[-1])"
のような関数そのものが記録されるだけです。
質問のようなことを考えるなら、
（１）ＶＢＡを勉強して
（２）関数でやっていることを、逐次処理方式のプログラムロジックでどうなるか考えて、繰り返しのプログラムに持ち込むロジックを勉強すればよい。
VBAにも、ワークシート関数にある単機能的な関数があるのでそういうものはそのまま使える。しかしワークシート関数にあるものはＶＢＡの関数では設けてないことが多い　例　ＭＡＸ
ＶＢＡなどほとんどのプログラム言語は、繰り返しできるので、天下りに覚えないとならない関数名や引数
やその関数の働きに比べ、素直に考えられる（思いつく）面が多い。
ーー
１例の課題例で説明すれば
＜＜指定列内で、条件に合う文字列のあるセルの行を別セル範囲に抜き出す＞＞
（関数では）過去に回答も相当あるが、関数でやると、非常に複雑で、回答を見てもすぐは理解しがたいレベルのものとなる。関数は得意じゃないぶんや。Ｆｉｌｔｅｒ（操作やＶＢＡ）などを使えということ。
（ＶＢＡでは）列内の各セルの値が、条件の値に合うか、各セル分繰り返して聞き、一致すれば、別セル範囲に
書き出す。その行の別セルも代入できる。
ーー
このロジックは、初心者的だが、文法を覚えれば、比較的早く作れる。
ほかにＦｉｎｄメソッドというのも使う。
ーー
関数を使うかＶＢＡにするか、
（１）どちらを知っているか、どちらを素早くできるかどうか
（２）どちらがふさわしいか
（３）どちらが得意の課題か
（２）（３）それぞれを勉強しないとマスターできない。時間や努力が必要。
で決まっていると思う。
ーー
関数には、機能が売りの関数がある。プログラムを組むと知識が必要なもの。例　財務関数など。
またＶＢＡでも自作や、ワークシート関数にと同じ関数は作れる。
関数は式の複写という便利な機能のおかげで、便利に使えている。
繰り返しはＶＢＡが得意。
ーー
ＶＢＡにはＡｐｐｌｉｃａｔｉｏｎ．ＷｏｒｋｓｈｅｅｔＦｕｎｃｔｉｏｎ．ＳＵＭ（引数）といった使い方もできる。ＳＵＭの部分はワークシート関数と同じ。多少差異あり。
この形でよいとすれば、質問のことはできそうだが、そんなことは意味あると考えない。
ーー
こんな方向への興味から早く目を覚まして、どうせやりたいのは数例だろうから、具体例を決めて、やりたいことを文章で説明し、ＶＢＡではどうすべきか、質問して勉強すべきだろう。

お礼

有り難うございました。参考書を読むより勉強になりました。しかし自分には奥が深すぎて何時になったら習得できるのか？気が遠くなりそうです。でもこうして回答を寄せてくださっている方々に報いるためにもがんばります。