住所録で特定の県名を非表示に

質問

住所録で特定の県名を非表示に
したいのですが、E列に郵便番号を記入して住所を表示
D列に（＝PHONETIC(E＊)として、郵便番号を表示しています。

単純に見えなくなればいいので、特定の県名を白色に変換できれば良いのですが、
どのような方法があるでしょうか。

エクセル２００３です。
よろしくお願いいたします。

回答No.4

kmetu · ベストアンサー

> 記述の仕方は（=COUNTIF(E1,"東京都*")
> で良いのでしょうか。

はい

> また、手順は住所が表示されているセルをクリック。

住所が入っている(入れる可能性のある)全てのセルを選択してください
E列が住所の列ならE列全て選択する

> 書式　→　条件付書式、すでに（=PHONETIC(D1)）が設定されています。
> この後、どうすればいいのでしょうか。

条件を「追加」して設定してください。

ただし、ANo.3さんが言ってるような県名"だけ"を白くすると言うことでなく
県名を含むセルの文字を全て白くします

お礼

大変申し訳ありません。
お礼を申し上げたつもりになっていました。
遅ればせながら、お礼申し上げます。
ありがとうございました。

回答No.3

Wendy02

質問の意味がはっきりしていませんが、以下のようなことでしょうか？

東京都千代田区四番町
　　↓
千代田区四番町

E2に対して、
適当な列で、オートフィルで数式をコピー

=IF(ISERROR(FIND("東京都",E2)),E2,SUBSTITUTE(E2,IF(MID(E2,4,1)="県",LEFT(E2,4),LEFT(E2,3)),""))

県名を抜くことが出来ます。

'-------
白に変換するには、VBA になります。

マクロ編
東京都千代田区四番町
　　↓
□□□千代田区四番町　(白い文字にする）

Private Const xlWH As Integer = 2　'白
Private Const xlBL As Integer = 1　'黒
'Cells の中の5は、E列-5列目のこと
Sub PrefectureWhite()
　Dim i As Long, t As Long
　Dim myCol As Integer
　myCol = xlWH '色の設定
　Application.ScreenUpdating = False
　For i = 2 To Cells(Rows.Count, 5).End(xlUp).Row
　　With Cells(i, 5)
　　　'If .Value Like "*[都道府県]*" Then
　　　If .Value Like "*[都道府県]*" And InStr(.Value, "東京都") > 0 Then　'特定の県名のみ
　　　　t = InStr(.Value, "県")
　　　　If t = 0 Then t = 3
　　　　With .Characters(Start:=1, Length:=t).Font
　　　　　.ColorIndex = myCol
　　　　End With
　　　End If
　　End With
　Next
　Application.ScreenUpdating = True
End Sub

お礼

お礼を申し上げたつもりになっていました。
お詫び申し上げます。
遅ればせながら、お礼申し上げます。
ありがとうございました。

回答No.2

kmetu

ANo1です

勘違いしてました
郵便番号を入力して変換で住所を出しているんですね

条件付書式で

数式が　=COUNTIF(E1,"県名*")

にしてください。

お礼

お世話になります。
記述の仕方は（=COUNTIF(E1,"東京都*")
で良いのでしょうか。

また、手順は住所が表示されているセルをクリック。
書式　→　条件付書式、すでに（=PHONETIC(D1)）が設定されています。
この後、どうすればいいのでしょうか。
ご教示いただければ、幸いです

回答No.1

kmetu

条件付書式で
セルの値が　次の値に等しい　="県名"
として
書式の文字色を白
にすればいかがでしょう