エクセル 条件付き書式で文字を表示するには

セルA１～A100までに「有１」、「有２」、「有３」を不規則に打ち込んでいます。（空欄もあり）
これを条件書式を用いて、セルA１～A100に「有１」、「有２」、「有３」があれば、それぞれのセルに「有給」として表示するにはどうすればよいでしょうか？

No.4 回答者： tom04 回答日時： 2011/12/30 18:31

こんばんは！

本来であれば元データが消えてしまうので別セル表示が一番良いと思うのですが・・・

どうしてもというコトであればVBAでの一例です。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてA1～A100セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A1:A100")) Is Nothing Or Selection.Count <> 1 Then Exit Sub
If StrConv(Target, vbNarrow) Like "有" & "[1-3]" Then
Target = "有給"
End If
End Sub 'この行まで

※　すでにデータが入っているてそれを変更したい場合のコードは↓になります

Sub 変換表示() 'この行から
Dim i As Long
For i = 1 To 100
If StrConv(Cells(i, 1), vbNarrow) Like "有" & "[1-3]" Then
Cells(i, 1) = "有給"
End If
Next i
End Sub 'この行まで

この場合はAlt+F8キー　→　マクロ　→　マクロ実行で操作してみてください。

こんなんで参考になりますかね？m(_ _)m

No.3 回答者： imogasi 回答日時： 2011/12/30 09:43

2003までは３種類しか条件付書式でセルに色などつけられない。

それと文字列が「有１」なら「有給」と表示するのは「条件付き書式」というエクセルの考えの範疇ではないのではないか。
単なる表示形式でも、１なら「有」、０なら「無」ぐらいはできるが、多種類では出来ない。またセルの値が数値である場合だ（下記注）
http://excel2010.life.coocan.jp/index/indexcell_ …
（１）正負おによる表示形式を変える
（２）文字に色を着ける。但しセルの数値の大小を問題にする。文字列の中では判別が出来ない
だから不可能と思う。
色々やってみたが本質問のパターに合うものが無い。
ーーー
むしろ置換でセルの値を変えてしまってはダメなのか（元列のデータは残し、隣列にコピーしてそちらで置換するとか）
ーー
（注）Ａ列セルに
1
1
0
1
とあるとする。表示形式の「ユーザー設定」で
[=1]"有";"無"
と設定する。
結果
見た目は
有
有
無
有
セルの値は元のままの１や０。
ーー
エクセルの表示形式は、セルの値が数値のセルが中心なんだ（ＶＢＡではＮｕｍｂｅｒＦｏｒｍａｔというぐらいだ）。文字列は添え物。ほとんど色々に出来ない。

No.2 回答者： keithin 回答日時： 2011/12/30 02:49

ご利用のエクセルのバージョンが不明です。

ご相談投稿ではご利用のソフト名だけでなく，必ずご利用のソフトのバージョンまでキチンと明記することを憶えてください。
Excel2003以前を使っているときはできません。



出来る方法：
Excel2007以降を使う

範囲を選び，条件付き書式でセルの強調表示から文字列を開始
次の文字列を含むセルを書式設定
有１
の時にユーザー設定の書式で表示形式を
G/標準;-G/標準;G/標準;"有給"
と設定する

更に同じ範囲に条件付き書式を重ね掛けし，"有２"，"有３"にも
G/標準;-G/標準;G/標準;"有給"
を設定する。

No.1 回答者： Cupper-2 回答日時： 2011/12/30 01:50

それって、書式じゃないから無理。

普通にマクロを組んで処理をするか、置換で処理しましょう。

置換なら、
　検索文字列を「有１」置換後文字列を「有給」にして置換を実行
　検索文字列を「有２」置換後文字列を「有給」にして置換を実行
　検索文字列を「有３」置換後文字列を「有給」にして置換を実行
と、３回行えばOK。