エクセル２０００です。

質問

エクセル２０００です。
Ａ列に項目ナンバー、Ｂ列に項目ａ、Ｃ列に項目ｂがある表があります。
Ａ列２行目から項目ナンバー入力で、例えば２２－１００－０１から０３、２２－２０１－０１から０５等。
ナンバーの頭（ここでは２２－１００と２２－２０１、２２－２０２・・・）があり、そのあとに副番（－０１から－０２・・・－１０等）を入れます。
行いたいのは項目ナンバー２２－１００の項目ａで副番－０１だけを黒文字色（表示）、－０２以下を任意色（白で非表示等）、項目ナンバー２２－２０１も同じようにしたいです。現在は副番－０２以降を１文字づつ色変更しています。項目ナンバーの副番は項目ａの行数によってまちまちです。
入力順序は項目ナンバー、項目ａ、項目ｂです。このようなことできますでしょうか？
よろしくお願いします。
行　　　Ａ　　　 　 　 Ｂ　　　　　　Ｃ
１　　22-100-01 　ああ　　　　　　　はれ
２　 22-100-02　　ああを非表示　　　あめ
３　 22-101-01　　いい　　　　　　　ゆき
４　 22-101-02　　いいを非表示　　　くもり
５　 22-101-03　　いいを非表示　　　おおあめ
６　 22-110-01　　うう　　　　　　　ああゆき
７　 22-111-01　　ええ　　　　　　　こさめ

回答No.4

keithin

ではＢ列を列選択し，
書式メニューの条件付き書式を開始し，
セルの値が　→　数式が　に変えて
右の空欄に
=RIGHT($A1,3)<>"-01"
で書式ボタンでフォントの色を白などに変えるようにしてみてはいかがでしょう。
同じ行のＡ列を見て右３文字が「-01」ではない場合に，フォントの色を白くします。

マクロの意味は，
Ａ列の右２文字が「01」では無いＡ列の各セルについて，
そのセルの７文字目，８文字目，９文字目の３文字のフォントの色を白くしています。

回答No.3

keithin

補足のご質問：
＞マクロ実行すると
行　　　Ａ　　 　 　　 Ｂ
２　　　22-100-01 　１１１
３　 22-100　　　　　２２２・・・非表示にならなっかた　　-02を表示したい
４　 22-100　　　　　３３３・・・　同上　　　　　　　　　-03を表示したい　　
５　 22-101-01　　　４４４　　
６　 22-101 　　　５５５・・・非表示にならなかった　　-02を表示したい　
７　 22-101 　　　６６６・・・同上　　　　　　　　　　-03を表示したい　　
＞Ａ列の-02以降でＢ列-02以降の文字を非表示はならず、Ａ列の-02以降が非表示となりました・・・。

元のご質問：
＞…項目ａで副番－０１だけを黒文字色（表示）、
＞－０２以下を任意色（白で非表示等）、
　：
＞現在は副番－０２以降を１文字づつ色変更しています。

元のご質問でリクエストされている，全く問題なくその通りの結果が得られているように見えます。
「-02以降」を白で非表示にしたいのかしたくないのか，Ｂ列をいったい「どうしたい」のか，もう一度正しく目に見えるようにお話しください。

＃もしかすると，こちらのご相談投稿は一度仕切り直しで解決して閉じる操作を行い，改めて正しい「変更前」『変更後」の姿を添えてご質問を投稿し直してみると，もっとよく目が見える他の皆さんのアドバイスが寄せられるかもしれません？

お礼

アドバイスありがとうございます。

すいません、私の質問内容が間違っていました。
Ａ列の副番は残し（ここが間違いでした。）、
Ｂ列の項目内容でＡ列副番の-02以降に該当する項目を非表示するようにしたかったです。

大変失礼しました。

一度仕切り直したいと思いますが、その前に、
もしよければ、アドバイス頂いたマクロの内容についての意味等を教えていただけないでしょうか？
あるいは参考になるサイトを教えて頂ければ幸いです。

回答No.2

MackyNo1

B列のデータで上のセルと同じ値が入力されている場合に、そのセルのフォントの色を白くして見えなくしたいなら、以下のような条件付き書式で対応します。

B2セル以下を選択し「書式」「条件付き書式」で「数式が」にして「=B1=B2」と入力して「書式」からフォントの色を白にします。

回答No.1

keithin

セル内の文字列の一部だけに書式を施す，については残念ながら手動でしか行う手がありません。

＃一応可能性として。

Ａ列を列選択した上で
Ctrl+Hで置換を開始し
-
を
Ctrl+J-
に全て置換
22Ctrl+J-
を
22-
に全て置換
Ctrl+J-01
を
-01
に全て置換
列のセルの書式設定の配置タブで折り返して全体を表示するにチェック
上下の配置を上詰めに変えておく
（手順でCtrl+Jはコントロールキーを押しながらＪのキーを押す。ダイアログの中で。）
のような見せ方はあるかもしれません。

でも，むしろ言えばマクロを使ってつるつるっとやらせてしまった方が，簡単は簡単かなと思います。

手順
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

Sub macro1()
　Dim h As Range
　For Each h In Range("A2:A" & Range("A65536").End(xlUp).Row)
　　If Right(h, 2) <> "01" Then
　　　h.Characters(7, 3).Font.ColorIndex = 2
　　End If
　Next
End Sub

ファイルメニューから終了してエクセルに戻る
ツールのマクロのマクロで今登録したマクロを実行する

何度も使うならツールメニューのマクロのセキュリティを中にしておき，マクロを使いたいときはマクロを有効にしてブックを開いて使う。

補足

No.１さん。
早々にご返事ありがとうございます。
以下の件よくわかりませんでした。ネットでCtrl+Jの内容も確認しましたが・・・
＞Ａ列を列選択した上で
Ctrl+Hで置換を開始し
-
を
Ctrl+J-
に全て置換
22Ctrl+J-
を
22-
に全て置換
Ctrl+J-01
を
-01
に全て置換
列のセルの書式設定の配置タブで折り返して全体を表示するにチェック
上下の配置を上詰めに変えておく
（手順でCtrl+Jはコントロールキーを押しながらＪのキーを押す。ダイアログの中で。）
のような見せ方はあるかもしれません。

・・・以下のマクロ実行してみました。
Sub macro1()
　Dim h As Range
　For Each h In Range("A2:A" & Range("A65536").End(xlUp).Row)
　　If Right(h, 2) <> "01" Then
　　　h.Characters(7, 3).Font.ColorIndex = 2
　　End If
　Next
End Sub

・・・・結果として
行　　　Ａ　　 　 Ｂ
２　　　　22-100-01 　１１１
３ 　 22-100-02　　　２２２
４ 　 22-100-03　　　３３３
５ 　 22-101-01　　　４４４　　
６ 　 22-101-02　　　５５５
７ 　 22-101-03　　　６６６

を入力し、マクロ実行すると
行　　　Ａ　　 　 　　 Ｂ
２　　　22-100-01 　１１１
３　 22-100　　　　　２２２・・・非表示にならなっかた　　-02を表示したい
４　 22-100　　　　　３３３・・・　同上　　　　　　　　　-03を表示したい　　
５　 22-101-01　　　４４４　　
６　 22-101 　　　５５５・・・非表示にならなかった　　-02を表示したい　
７　 22-101 　　　６６６・・・同上　　　　　　　　　　-03を表示したい　　

Ａ列の-02以降でＢ列-02以降の文字を非表示はならず、Ａ列の-02以降が非表示となりました・・・。
よろしくお願いします。