|
▼かみちゃん さん:
お世話になります。
>>「Z仕様」と記述された行のフォント色が5になるというような理解を
>>しましたが、全てB列がフォント色5に変換されてしまいますが…
>
>そのとおりです。
????
>「Z仕様」と「Z仕様」は違います。(全角半角の違い)
チェックしています。
>
>>' .SpecialCells(3, 1).EntireRow.Hidden = True'この2行の意味が
>
>数式の結果が数値になっているセルを選択して、そのセルが含まれている行を非表示にするという意味です。
>詳細は、ヘルプに載っています。
>
>>' .ClearContents 'この2行の意味が今一分かりませんまたお聞きします。
>
>抽出できれば、設定した数式は不要になりますので、クリアしています。
色々とアドバイスありがとうございます。
理屈は理解できました。しかし実際にコードを入れてやってもこちらの
思うとおりに行きません。その原因を知りたいのです。が
現在、ここでかかれていました次のコードで問題なくいけます…が
Keinsさんのやり方に興味をもって試行錯誤しています。
ど〜も上手く行きません
(すんなりと行ける)
Dim r As Range
Dim Myr As Range
Set Myr = Range(Cells(6, 2), Cells(65536, 2).End(xlUp))
For Each r In Myr
If r Like "*Z仕様*" Then
r.Offset(, -1).Interior.ColorIndex = 43
を⇒
(上手く行かないコード)
With Range("B6", Range("B65536").End(xlUp)).Offset(, 254)
.Formula = "=IF(ISERR(FIND(""Z仕様"",$B6)),1,"""")"
.SpecialCells(6, 1).Offset(, -254).interir.ColorIndex = 43
'>>SpecialCellsは何を示すのでしょう?意味が分かりません。
' .SpecialCells(3, 1).EntireRow.Hidden = True
' .ClearContents'この2行に関しては再度お聞きします
End With
というようにしましたが
同じ結果が出ません…
Zに関しても半角のチェックしていますが。
問題点が有りましたら、ご指摘ください。
これが解決すると、EntiRow.Hiddenre…ClearContents
に関しても解決できると思います。
宜しくお願いします。
|
|