Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50040 / 76738

←次へ　｜　前へ→


	【31594】Re:Z仕様という文字を含む文字列の検索方法

Akisame - 05/11/26(土) 9:25 -


	引用なし

	パスワード

▼Kein さん：

Ryoサンの31570の質問の表をベースに見ていましたので、
基準はB列です。
では次のコードで良いのでしょうか？
「Z仕様」と記述された行のフォント色が５になるというような理解を
しましたが、全てB列がフォント色５に変換されてしまいますが…
（Formulaのコードが働きませんが。256行「Z仕様」とある部分だけ
１が入ると良いということですね。）

Sub PUp_St()
　 On Error Resume Next
　 With Range("B1", Range("B65536").End(xlUp)).Offset(, 254)

　　 .Formula = "=IF(ISERR(FIND(""Ｚ仕様"",$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位置によって、何列にどんな処理をすればいいかを書き換えるだけです。

0 hits

▼

【31570】Z仕様という文字を含む文字列の検索方法 Ryo 05/11/25(金) 18:08