[[20040823205837]]　『1と入力したらＡと表示されるようにしたい』（りんこ）　ページの最後に飛ぶ

『1と入力したらＡと表示されるようにしたい』（りんこ）

[エクセルの表示形式で1と入力したらＡと表示されるようにしたい。]

エクセルのＡ列のＡ１のセルに数字の1と入力するとアルファベットのＡと表示されるように
したのですが、表示形式のユーザー定義の入れ方がわかりません。
教えてください。

 ＞アルファベットのＡと表示されるようにしたのですが、
出来ているのではないのですか？
「したいのですが」のミスタイプと想像して。
「１」の場合に限れば、
表示形式のユーザー定義で
[=1]!A;;;
とすれば表示できます。他の値は非表示。
当然他の場合もあるのではと想像して、書式の手ほどき。
書式記号はセミコロンで区切って４セクションまで分けられます。
通常は
　
正の値の時の書式;負の値のとき;ゼロ値のとき;文字列
　
のように割り当てられますが、下記のように
[]の中に数値の条件式を記述してセルの値により
書式記号を切り替えることが出来ます。
　
[第一条件]第一書式;[第二条件]第二書式;第三書式;文字列書式
　
・第一書式にはセルの値が[第一条件]を満たした場合の書式
・第二書式にはセルの値が[第二条件]を満たしたときの書式
・第三書式はセルの値が[第一][第二]を満たせないときの書式
以上が数値のときの書式で
・文字列書式はセルの値が文字列のとき
　
(KAMIYA)

ご連絡ありがとうございます。
すみません。入力ミスで、できていないのです。
また、1の場合に限らず、できれば1と入力したらＡ01、2と入力したらＡ02、3と入力したらＡ03と表示させたいのです。
先ほどのご回答で条件式から4セクションをいれてみましたが、できません。
申し訳ありませんが、教えてください。

 ケースが多ければVBAでの処理か別のセルに表示させるしかないような・・・
VLOOKUP関数等を使い別のセルに表示させる。
シートモジュールに下記のような感じで記述する。
Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Target.Address <> "$A$1" Then Exit Sub

    Select Case Target.Value
        Case 1
            Target.Value = "A01"
        Case 2
            Target.Value = "A02"
        Case 3
            Target.Value = "A03"
    End Select

    Application.EnableEvents = True

 End Sub
（ケン）

返信ありがとうございます。
ＶＢＡの知識がない状態です。
でもＶＢＡではなく、表示形式で行うことは無理でしょうか?
ケースは3パターン［01.02.03.04］のみなのです。
宜しくお願いします。

 [=1]"A01";[=2]"A02";"A03"
ではどうでしょう？
（ケン）

度々、すいません。3までは表示できたのですが、4ができないのです。
04が最後でした。度々申し訳ありませんが、よろしくお願いします。m(__)m

 >ケースは3パターン［01.02.03.04］のみなのです。
最初はケースは3パターン［01.02.03］のみなのです。04を付け加えましたね？
表示形式では難しいのではないでしょうか？
（ケン）

 セクションわけについては最初の解説どおり。
よーく読んでください。
区切ればいいというものではないんです。
最後の第4セクションは文字列専用です。
ただ、1、2、3、4の入力で［A01.A02.A03.A04］の表示なら、
条件付けせずに単にユーザー設定「!A00」で良いのでは？
(KAMIYA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040823205837]] 『1と入力したらＡと表示されるようにしたい』（りんこ） ページの最後に飛ぶ

[[20040823205837]]　『1と入力したらＡと表示されるようにしたい』（りんこ）　ページの最後に飛ぶ