エクセルでセルの数値から文字に変換するには？

質問

EXCEL2000で、セルに、「有」「無」というデータを
毎回入力してるのですが、それを、たとえば、数字の「１」を入力したら「有」、「２」を入力したら、「無」と表示（入力）したいのですが、なにか方法
はありませんか？
縦２列が、そのデータを入力する部分ですが。

VBAでできるような感じがしますが、いかがなもので
すか？

回答No.5

redowl · ベストアンサー

まず最初に、以下の事を行います
　　セルの書式設定→表示形式
　　ユーザー定義→種類　の入力欄に

　　　　　　[=1]"有";[=2]"無";G/標準

　　と記述します。（注意すること→有、無、標準　の文字以外は半角です）
　　OK　　をクリックして終了
次に、１や２と入力するセル全てに、上記のユーザー定義の書式を貼付けます。

これで、完了です。
１を入力すれば　有　　２を入力すれば　無　
１、２以外であれば　入力したままの数字、文字で表示されます。
；（セミコロン）が一区切りになってるので、さらに３、４、に対応した文字を追加する事もできます。

お礼

早速のレスありがとうございました。

回答No.7

redowl

#5です。訂正します。
最終行の「さらに３、４、に対応した文字を追加する事もできます。」は削除します。

お礼

早速のレスありがとうございました。

回答No.6

imogasi

こう言う質問は、次のことを明記しないと答えが１つになりません。
（１）値と表示形式について
　　（Ａ）Ａ列の値を、有や無にしたい
　　（Ｂ）値は１，２のままで表示形式で有か無と表示し　　　　たい
（２）（１）の（Ａ）の場合、セルについて
　　　　（Ｃ）入力セルに有無を表示したい
　　　　（Ｄ）隣列に有無を出してもよい
　　　　（Ｅ）（Ｄ）の場合、複写してＡ列を有無として　　　　　　もよい
（３）（Ｆ）、（１）の（Ａ）の場合、入力時に直ちに値　　　　　を有無と表示したい
　　　（Ｇ）作業を行った時に、有無になれば良い
ＶＢＡではそれぞれ出来ますが、（Ｆ）はイベントと言う考えが出てきます。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 1 Then
If Target = 1 Then
Target = "有"
Else
Target = "無"
End If
Application.EnableEvents = True
End Sub
追体験はツールーマクローＶＢＥ画面でＶＢＡＰｒｏｊｅｃｔのＳｈｅｅｔ１をクリックし、Ｇｅｎｅｒａｌの▼をクリックしてＷｏｒｋｓｈｅｅｔ、Ｄｅｃｌａｒａｔｉｏｎｓの▼をクリックしてＣｈａｎｇｅをクリックして
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
が出るので、中間の部分をコピペする。
Ｓｈｅｅｔ１のＡ列で１か２を入力する。

お礼

早速のレス、ありがとうございました。

回答No.4

misatoanna

入力範囲のセルの表示形式を、
[=1]"有";[=2]"無";""
とユーザー定義されたらいかがでしょうか。

お礼

早速のレス、ありがとうございました。

回答No.3

macheriemari

はじめまして。

データ入力するところのセルの書式設定⇒表示形式⇒「ユーザー定義」を使うのはどうでしょうか？

セミコロンの部分は半角で以下を作成します。
　有；；無

「有」のときには１以上の数値を入力します
「無」のときには０を入力します

お礼

早速のレスありがとうございました。

回答No.2

otasuke009

入力列と表示列が別でよければ、関数で解決できます。
入力列をA列、表示列をB列とすれば、B1セルには
=if(a1=1,"有",if(a1=2,"無",""))

お礼

早速のレス、ありがとうございました。

回答No.1

gutugutu

vlookupを使えば出来ると思います。

お礼

早速のレスありがとうございました。