エクセル 数値を決まった文字で表示したい

質問

よろしくおねがいします。
excel2003 または　excel2007 です。

数値を決まった文字列であらわしたいのです。できれば　VBA　を使わずに。
たとえば　１・・・あ　２・・・い　３・・・う　などとして　
１２３(数値）を　あいう(文字列）で表示したいのです。
数値の桁数は最高で７桁です。

よろしくおねがいします。

回答No.9

a987654

ＮＯ６，７です。
どの様なエラーが出るのでしょうか。ぜひ教えてください。

この式は２００３、２００７で１桁から７桁まで確認済です。
＞１２３(数値）を　あいう(文字列）で表示したい
と書いてありましたのでＣ２への設定値は数値で間違い
ありませんよね。文字列は約束違反ですよ。
文字列でも全桁数字の”１２３４”とかなら問題ありません。
２００３はためしていませんが、２００７では仮に全角および
全角／半角混在でもエラーはでていません。
空白を含む”１　　２３”とか”　　１２”とかだと当然で
＃ＶＡＬＵＥが帰ります（ＭＯＤ関数がエラーになる）。
ご確認ください。

回答No.8

_Kyle

VBA使わずとなると、
どうしても「エレファント」な手法になってしまいますね^^;;

A1セルに元の値があるとして、

=RIGHT(
MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),1,1)+1,1)
&MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),2,1)+1,1)
&MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),3,1)+1,1)
&MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),4,1)+1,1)
&MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),5,1)+1,1)
&MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),6,1)+1,1)
&MID("こあいうえおかきくけ",MID(TEXT(A1,"0000000"),7,1)+1,1),
LEN(A1))

※作業表(対応表)は使いません。

※"こあいうえおかきくけ"の部分は、
　0～9の数字に対応する部分を順に並べてください。

※#1さん、#3-5さんの形式にあわせて
　0と"こ"を対応させたので、"こ"が前にきています。

Excel2003,2007で動作確認。以上ご参考まで。

回答No.7

a987654

ＮＯ６です。
質問に７桁とありましたね。見落としていました。

=(VLOOKUP(INT(MOD(C2,10000000)/1000000),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,1000000)/100000),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,100000)/10000),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,10000)/1000),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,1000)/100),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,100)/10),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,10)),A2:B11,2,))

となります。
２００７では数式が入りきりましたが、２００３では入りきるか
どうかわかりません。
入りきらない場合は２つのセルで上３桁、下３桁を作り再度
２つのセルを別のセルで＆結合してください。

又、ゼロの"Ｘ"が気になるようでしたらブランクでも何でも
Ｂ１セルの内容を変えてください。
当たり前ですが左側のゼロをサプレスしたければＢ２に半角ブランクを
設定したうえでtrim関数をお使い下さい。

お礼

ありがとうございました。何度も回答していただきすみません。

７桁の場合はうまくいきました。

が、最高７桁で、３桁の時やら、５桁の時などもあります。

単純にその式で、もとの値を５桁などにしてしまうとエラー値が帰ります。
ＩＦ文を付けるとやたら長くなりそうですし、少し考えます。
とてもありがとうございました。

回答No.6

a987654

邪道のようなやり方ですが、３桁と仮定して

A2～A11に数値で0～9、B2～B11にＸ、あ、い・・・けと設定します
Ｃ２に変換したい１～３桁の数値を入れます。
仮にＤ２に
=(VLOOKUP(INT(MOD(C2,1000)/100),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,100)/10),A2:B11,2,))
&(VLOOKUP(INT(MOD(C2,10)),A2:B11,2,))

（０のところはＸが入ります）これでどうでしょうか？

回答No.5

tom04

こんばんは！
No.3.4です。

前回、大外れの回答を書き込んでしまったお詫びに！
と言っては失礼なのですが・・・

無理矢理の方法を持ってきました。

SUBSUTITUTE関数を使った方法です。
当方使用のExcel2003では　ネストは最大７個みたいなので
作業列として一旦B列に
1～5までの5文字分を置き換え表示させたものを
もう一度、C列に
6～0までの5文字分を置き換えています。
（Excel2007ではかなりの数のネストが出来るかもしれません）

↓の表のB2セルに
=IF(A2="","",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,1,"あ"),2,"い"),3,"う"),4,"え"),5,"お"))

C2セルに
=IF(B2="","",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B2,6,"か"),7,"き"),8,"く"),9,"け"),0,"こ"))

という数式を入れて、B2・C2セルを範囲指定し、
オートフィルで下へコピーしています。

これでなんとか希望に近い形にならないでしょうか？

尚、1=あ　2=い　3=う・・・・9=け　0=こ
という文字に置き換えるようにしています。

この程度のかなり強引な方法しか思い浮かびませんでした。

どうも何度も失礼しました。m(__)m

お礼

お礼が遅くなり申し訳ありません。
何度も貴重なお時間を割いて回答いただきありがとうございます。

すみません、とても時間がなくて、まだエクセル２００７で試していません。

２桁で試してみましてエクセル２００２（xp)ではできました。

夜になりますが、もう少し工夫してがんばってみようと思います。
また、いい手があれば教えてください。よろしくおねがいします。

回答No.4

tom04

No.3です！

どうもごめんなさい。

前回の回答は大きく外しておりました。
無視してやってください。m(__)m

回答No.3

tom04

こんにちは！
色々方法はあるかと思いますが・・・

一例です。

↓の画像のA列のデータを元に、B列に表示させる場合です。

B1セルに
=IF(A1="","",CHOOSE(A1,"あ","い","う","え","お","か","き"))

としてオートフィルで下にコピーしています。

尚、Excel2003の場合
DHOOSE関数は29の連続データを参照できると思います（←自信はありません）

以上、参考になれば幸いです。m(__)m

回答No.2

Trick--o--

「入力した文字に応じて【そのセルを書き換える】」のは、VBAが必要です。

すでに入力されているものなら、置換すればいいので
Ctrl+Hで置換ダイアログを出して１０回（０～９）置換するだけです。

関数で【別のセルに】文字列を作るのなら、＃１のやり方でいいとおもいます

お礼

回答ありがとうございます。

まず　置換をためしてみましたが
数字（数値）を置換する段階で一致するデータがみつかりません　となり
数値をＴＥＸＴ関数で文字列に置き換えて見ましたが同じエラーがかえりました。

一つのセルのみでなく範囲指定でいくつもの連続したセルにしてみましたがおなじでした。
最初　演算子が足らないなどというエラーもでたので　文字列に置き換えてみたのですが同じでした。
その後数値にもどしてみましたが　だめでした。

何がいけないのかもわからない状態です。

１０回置換する操作をマクロボタンで覚えさせようと思いましたが
その前の段階で無理でした。

やはり　ＶＢＡ　ですかね。勉強します。
お手数をおかけしました。

回答No.1

grumpy_the_dwarf

とりあえずどこかに数字と文字の対応表を作りましょうか。

1　あ
2　い
3　う
4　え
5　お
6　か
7　き
8　く
9　け
0　こ
1行目は書式標準で「=""」と入力、2行目以降は書式文字列にしてか
ら数字を入力です。これがエラー処理を極端に簡単にします。

あとは力技。最大7文字ですから、
=vlookup(mid(A1,1,1),対応表,2,0)&
vlookup(mid(A1,2,1),対応表,2,0)&
vlookup(mid(A1,3,1),対応表,2,0)&
vlookup(mid(A1,4,1),対応表,2,0)&
vlookup(mid(A1,5,1),対応表,2,0)&
vlookup(mid(A1,6,1),対応表,2,0)&
vlookup(mid(A1,7,1),対応表,2,0)
となりますね。

お礼

お礼が遅くなり申し訳ありません。丁寧なご指導ありがとうございます。

教えて頂いたとおりやってみたのですが　エラーが返りできません。

mid関数で取り出すところは大丈夫で、vlookupの書き方についても
間違っていないと思うのですができません。
１桁、２桁でやってみましたが無理でした。

もとの値が数値であるためか、セルの書式設定で標準に直してみましたが結果は同じでした。

とても時間がなく今日の夜にまたやってみようと思いますが
注意点等あればまた教えてください。すみません。