Ｅｘｃｅｌでの関数式を教えて下さい。

質問

教えて下さい。こんな事出来るかどうか判りませんが、
例えばＡ１に無差別の数字入力をしたとして
例１.Ａ１に２５を入力→Ｂ１に７と表示
例２.Ａ１に５を入力→Ｂ１に５と表示
例３.Ａ１に１１を入力→Ｂ１に１１と表示
例４.Ａ１に２９を入力→Ｂ１に１１と表示
要するに単数表示にしたい訳です。同数なら同数に・・。
例１なら２５を分解して２+５で７
例２なら５は分解できないのでそのまま５
例３なら１１は同数なので１１のまま表示
例４なら２９を分解して２+９で11だが同数なのでそのまま
というふうに・・
果たしてできるのでしょうか・・？
尚、Ａ１に入力するのは二桁までです。
そんな事、自分で勉強しろといわれそうですが・・
ここで質問した方が早いので・・。すいませんが関数式の事なら私にまかせろというくらいのプロの方・・
是非お願い致します。

回答No.5

imogasi

こういう条件が複雑なのはユーザー関数がお勧めです。
縦に並べて条件を書けるからです。
標準モジュールに
Function tansu(a)
p01:
If a < 10 Then
tansu = a
Exit Function
Else
x = a Mod 10
y = Int(a / 10)
If x = y Then
tansu = a
Exit Function
Else
a = x + y
End If
End If
GoTo p01
End Function
と入れて、Ａ列に１か２桁の数字を入れます。
Ｂ１に=tansu(A1)といれＡ１をＢ２以下に複写します。
（テスト例）
（Ａ列）（Ｂ列）
11 11
21 3
33 33
44 44
51 6
25 7
5 5
29 11
19 1
68 5

回答No.4

mshr1962

数字が必ず2桁(10～99)なら
=IF(LEFT(A1,1)<>RIGHT(A1,1),LEFT(A1,1)+RIGHT(A1,1),A1)
で計算できます。

回答No.3

nishi6

=IF(INT(A1/10)=MOD(A1,10),
　　A1,
　　IF(INT((INT(A1/10)+MOD(A1,10))/10)=MOD(INT(A1/10)+MOD(A1,10),10),
　　　　INT(A1/10)+MOD(A1,10),
　　　　INT((INT(A1/10)+MOD(A1,10))/10)+MOD(INT(A1/10)+MOD(A1,10),10)))

長い式になったので見やすいように複数行にしています。
セルに入力するときは１行で入力してください。

考え方としては、『再帰』でしょうが、２回しか必要ないので無理やり書いてみました。質問の意味を捉えているでしょうか。

他の方法としては、

（１）事前に２桁の数字に対する計算をして変換テーブルを用意しておき、入力した数値でそのテーブルを検索する。VLOOKUP関数でできます。

（２）ユーザー定義関数で計算を定義する。ＶＢＡを使用します。扱う桁が増える場合はこれしかないでしょう。

回答No.2

maruru01

こんにちは。maruru01です。

B1に、

=IF(COUNT(A1),IF(INT(A1/10)=MOD(A1,10),A1,INT(A1/10)+MOD(A1,10)),"")

と入力します。

なお、No.1の方の回答は、例3の「11」→「11」を満たしていませんね。

補足

ありがとうございます。すいません、私の質問が悪かったみたいです。maruru01さんの式でほぼ完璧なのですが、
１９や６８を入力するとそれぞれ１０と１４になってしまうのです。１と５になるよう最後まで単数変換にて表示したいのです。お願いします。

回答No.1

meru-k0110

Ｂ1列に
=IF(A1>=10,VALUE(LEFT(A1,1)+RIGHT(A1,1)),A1)
以上の式で可能ですが・・・