|
▼Kein さん:
Ryoサンの31570の質問の表をベースに見ていましたので、
基準はB列です。
では次のコードで良いのでしょうか?
「Z仕様」と記述された行のフォント色が5になるというような理解を
しましたが、全てB列がフォント色5に変換されてしまいますが…
(Formulaのコードが働きませんが。256行「Z仕様」とある部分だけ
1が入ると良いということですね。)
Sub PUp_St()
On Error Resume Next
With Range("B1", Range("B65536").End(xlUp)).Offset(, 254)
.Formula = "=IF(ISERR(FIND(""Z仕様"",$B1)),1,"""")"
.SpecialCells(3, 1).Offset(, -254).Font.ColorIndex = 5
' .SpecialCells(3, 1).EntireRow.Hidden = True'この2行の意味が
' .ClearContents 'この2行の意味が今一分かりませんまたお聞きします。
End With
End Sub
>全部消えた、ということはA列のデータを基準に出来ないということですね・・。
>それなら With 〜 のところを
>
>With Range("B1", Range("B65536").End(xlUp)).Offset(, 254)
>
>と変更してみて下さい。(もちろん全行を表示状態にした上で、です)
>>文字色を変えるということもこの種の数式でコードを作成できるのでしょうか。
>もちろん、どんな処理でも可能です。その場合例えば、B列で該当する値のある
>セルの文字色を青にするとして
>
>.SpecialCells(3, 1).Offset(, -254).Font.ColorIndex = 5
>
>などとすればよいのです。数式は IV列 に入力しているので、そこからの
>Offset位置によって、何列にどんな処理をすればいいかを書き換えるだけです。
|
|