EXCELでセルの内容を関数名にできないでしょうか？

質問

ＥＸＣＥＬ２０００を使用していますが、たとえばＡ１セルにＳＵＭと入力されているとします。Ｂ１～Ｂ５まで数値があるとします。
たとえばＢ列の数値のＢ６に合計を出すときは、=sum(b1:b5)となりますが、このＳＵＭの部分をＡ１セルの内容が利用できないものかと悩んでいます。

たとえば、平均を出したいときにＡ１にAVERAGEと入力すればＢ６に平均が・・最大値を表示したいならばＡ１にMAXをという具合にならないものでしょうか？

質問の内容が煩雑で申し訳有りませんが、よろしくお願いします。

回答No.4

nishi6 · ベストアンサー

myCalcというユーザー定義関数を作ってみました。関数名myCalcは勝手に付けた関数名です。
Evaluateを使っています。subtotalと似た関数になってしまいました。

A1に『SUM』、『AVERAGE』、『MAX』、『MIN』を入力して確認しました。

　=myCalc(A1,B1:B5)、
　=myCalc("SUM",B1:B5)
　=myCalc(A1,B1:B5,D2:D5,Z3) 　のようにして使います。

　=myCalc(使いたい関数を書いたセル番地,関数で計算するセル範囲1,セル範囲2,セル範囲3・・・)

　です。本当のSUM関数のセル指定と同じようにしているつもりです。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。 出てきたコードウインドウに下記マクロをコピーして貼り付けます。

ここから
↓
Public Function myCalc(fnc As String, ParamArray Area())
　　Dim calcArea As Range '計算範囲
　　Dim L As Integer 'カウンタ

　　'計算範囲のアドレスを求める
　　For L = LBound(Area()) To UBound(Area())
　　　　If L = LBound(Area) Then
　　　　　　Set calcArea = Area(L)
　　　　Else
　　　　　　Set calcArea = Union(calcArea, Area(L))
　　　　End If
　　Next

　　'実際の計算を行う
　　myCalc = Evaluate(fnc & "(" & calcArea.Address & ")")
End Function

お礼

すっ！すご～い！ユーザー定義関数って聞いたことはありましたが、このように使うのですね。奥が深すぎます。あまり内容はわからないままやってみましたが、ばっちりできてしまいました。（きっと普通のことなんでしょうね）
感激です。
このように自在に使えるように精進したいと思います。今後ともよろしくお願いします。

回答No.5

imogasi

それに近いことが出来ます。私製版関数を作るのです。
（１）Ａ１にsかmかaかを入力します。
（２）Ｂ１からＢ５に数を入れます。（例１，２，３，４，５）。
（３）Ｓｈｅｅｔ１の画面で、
ＡＬＴキーを左手で押したまま、Ｆ１１キーついでＩのキー
次いでＭのキーを少し間をおいて押します。ＶＢＥのＭｏｄｕｌｅ１の画面になります。
（４）そこに下記をコピーし、Ｍｏｄｕｌｅ１の画面に貼りつけてください。
Function keisan()
Dim c As String
c = Worksheets("sheet1").Range("a1")
Select Case c
Case "s"
keisan = WorksheetFunction.Sum(Range("b1:b5"))
Case "m"
keisan = WorksheetFunction.Min(Range("b1:b5"))
Case "a"
keisan = WorksheetFunction.Average(Range("b1:b5"))
End Select
End Function
（注）上記３箇所の("b1:b5"))は直ぐ上の行の最後にくっ付けてください。
（５）Ｓｈｅｅｔ１の画面のＢ１０セルに「=keisan()」と
入力してください。「（）」は省かないように。
（６）Ａ１がsのとき,合計の１５
　　　Ａ１がmのとき,最小の１
　　　Ａ１がaのとき,平均の３がセットされます。
もっとs,m,aのほかにメニューを増やすことは可能です。
ｓをsumのように表現を変えたいとき、上記のどこを変えるかの方法もお判りになるでしょう。
s、m、aを一旦設定後に変えたときのＢ１０セルへの反映は上記では対応出来ていません。お許し下さい。
（７）ただエクセルには、シート枠の外の下部分の「ＮＵＭ」
と出ている（「コマンド」行）の左辺りに「合計＝１５」などと出ています。これはこの行で右クリックすると、合計や平均や最小等を１つ選べます。
これでＢ１からＢ５等範囲指定すれば、その範囲の合計等が
即座に表示されています。これは使えませんか。

お礼

ありがとうございました。すごく参考になりました。
（７）の方法は結果を利用できないのですよね。できるのかな？計算結果を利用してグラフなどに反映し、簡単なシュミレーション（ってほどすごいものじゃないのですが・・・？）を行いたかったので、結果が利用できる方がベストでした。
ユーザー関数についてはもっと勉強してみたいと思います。本当にありがとうございました。

回答No.3

comv

こんにちは！
SUBTOTAL()関数を使うとそれに近い手法が使えます
例えばＡ１に１～１１の番号を入力
　結果を出したいセルに
　=IF(AND(A1>0,A1<12),SUBTOTAL(A1,計算範囲),"")
　とすれば番号によって各機能計算されます。

　　　（リスト範囲）
番号　同等機能関数
　1 　AVERAGE
　2 　COUNT
　3 　COUNTA
　4 　MAX
　5 　MIN
　6 　PRODUCT
　7 　STDEV
　8 　STDEVP
　9 　SUM
10 　VAR
11 　VARP

上記のような表を作成して　Ａ１にリストで選択させ
　=IF(A1="","",SUBTOTAL(MATCH(A1,リスト範囲,0),計算範囲))

としてもよろしいかもしれませんね！

お礼

SUBTOTAL関数って初めて見る関数です。かなり、自分のやりたいことに近づいています。ありがとうございました。感謝感謝！です。
今後ともよろしくお願いします。

回答No.2

oresama

コンボボックスで関数名を選択できるようにして、
リンクした数によって、VLOOKUPで参照する数式の結果（セル）を引き当てるようにしたらいかがでしょうか？
一枚間にはさむ感じになりますが。。。
最小値、最大値、平均値位だったら
VLOOKUPを使わずIFだけでも対応可能ですね。

お礼

なるほど！って感じです。
どうもありがとうございました。挑戦してみます。

回答No.1

jein

数式のほうをセルの文字列から参照するINDIRECT関数は
知っていますが、関数名自体を文字列からひろうことは
聞いたことがありません。できない気がします。

関数名はアルファベットですが文字列とは違いますしね。

INDIRECT関数について
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP402/6/53.asp

参考URL：

http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP402/6/53.asp

お礼

どうもありがとうございました。
まだまだ、エクセル初心者ですので、おまえもっと勉強しろ！というような
質問をするかもしれませんが、末永く＆温かく見守ってやってください。