[[20171006143347]]　『式内の値の個数を求める式はありますか』（ちくわ）　ページの最後に飛ぶ

『式内の値の個数を求める式はありますか』（ちくわ）

1つのセル内の単純な加算、乗算の計算式に含まれる値の個数を求めたいです。

全て例えばセルA1に以下の式が入力されているとして

（例１）
＝3.5+4.9+15.3　なら値の個数は「3個」

（例２）
＝50*2　　　　　なら値の個数は「2個」

（例３）

＝50*2+15+4.5　　なら値の個数は「4個」

という結果を都度関数にて別セル（B1とか）に表示したいのですが
関数式はあるでしょうか？

※減算、除算はありません

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 EXCEL2013以降であればFORMULATEXT関数が使えると思うが2010の場合はユーザー定義関数（ＶＢＡ）か4.0マクロ関数が
 必要になるがそれでも構わないだろうか？
（ねむねむ） 2017/10/06(金) 14:52

VBAは全くの初心者ではありますが、
指南いただければ、やってみます！

（ちくわ） 2017/10/06(金) 15:00

 カッコは使われるのだろうか？
（ねむねむ） 2017/10/06(金) 16:30

カッコは、使いません。
（ちくわ） 2017/10/06(金) 16:56

 手順としてはワークシート上でAltキーを押しながらＦ11キーを押す。
 VBAエディタの画面が開かれるので上部のメニューの挿入-標準モジュールをクリック。
（ねむねむ） 2017/10/06(金) 17:03

 表示された箇所に
 Function COUNT_NO(WK_RANGE As Range) As Integer
    Dim WK_CHK      As String

    WK_CHK = WK_RANGE.Formula
    WK_CHK = Replace(WK_CHK, "*", "+")
    COUNT_NO = UBound(Split(WK_CHK, "+")) + 1
 End Function
 と入力してくれ。
（ねむねむ） 2017/10/06(金) 17:04

 入力が終わればVBAエディタは閉じても構わない。
 そうしたらセルに
 =COUNT_NO(A1)
 のように入力してみてくれ。

（ねむねむ） 2017/10/06(金) 17:06

おおっ＼(◎o◎)／！

できました！！

ありがとうございます！！
（ちくわ） 2017/10/06(金) 17:22

コメント返信：

[ 一覧(最新更新順) ]

[[20171006143347]] 『式内の値の個数を求める式はありますか』（ちくわ） ページの最後に飛ぶ

[[20171006143347]]　『式内の値の個数を求める式はありますか』（ちくわ）　ページの最後に飛ぶ