Ｐａｇｅ 357 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼条件に合致したら、網掛けする ちょび 02/11/18(月) 16:06 ┗Re:条件に合致したら、網掛けする ぴかる 02/11/18(月) 19:16 ┗Re:条件に合致したら、網掛けする ちょび 02/11/18(月) 22:27 ┗Re:条件に合致したら、網掛けする ひで 02/11/19(火) 9:08 ┗Re:条件に合致したら、網掛けする ちょび 02/11/19(火) 9:36 ─────────────────────────────────────── ■題名 ： 条件に合致したら、網掛けする ■名前 ： ちょび <aya_nonme@yahoo.co.jp> ■日付 ： 02/11/18(月) 16:06 -------------------------------------------------------------------------
| 質問です！！ えーっと。 一覧表の中のセル（ここで「O9」とする。）に"OK"という文字が入っていたら、 同じ列の、「A9：J9」を網掛けする。 これをデータがある分だけ繰り返し、処理したいのですが・・・。 |
| ちょびさん、こんにちは。 >一覧表の中のセル（ここで「O9」とする。）に"OK"という文字が入っていたら、 >同じ列の、「A9：J9」を網掛けする。 >これをデータがある分だけ繰り返し、処理したいのですが・・・。 条件付き書式の数式を使って書式はパターンで設定してみてはいかがでしょうか？。 「A9：J9」に 条件付き書式の数式 =O9="OK" 書式はお好みで 他の行への展開は、書式の貼り付けにて可能です。 当方、しばらくアクセス出来ません。あしからず、お許し下さい。 |
| ▼ぴかる さん： >ちょびさん、こんにちは。 > >>一覧表の中のセル（ここで「O9」とする。）に"OK"という文字が入っていたら、 >>同じ列の、「A9：J9」を網掛けする。 >>これをデータがある分だけ繰り返し、処理したいのですが・・・。 >条件付き書式の数式を使って書式はパターンで設定してみてはいかがでしょうか？。 > >「A9：J9」に 条件付き書式の数式 =O9="OK" 書式はお好みで > 他の行への展開は、書式の貼り付けにて可能です。 > >当方、しばらくアクセス出来ません。あしからず、お許し下さい。 ↑ぴかるさんありがとうございます。 でも、条件付書式ではうまいこといかないんですが なぜなんでしょう。 どなたかVBAでの書式設定を教えていただけないですか？？ |
| ▼ちょび さん おはようございます。 >↑ぴかるさんありがとうございます。 > でも、条件付書式ではうまいこといかないんですが > なぜなんでしょう。 > どなたかVBAでの書式設定を教えていただけないですか？？ マクロ記録でやってみました、書式→セル→パターンで網掛け が選べますので、お好みのを選んで試してみてください。 >一覧表の中のセル（ここで「O9」とする。）に"OK"という文字が入っていたら、 >同じ列の、「A9：J9」を網掛けする。 >これをデータがある分だけ繰り返し、処理したいのですが・・・。 ↑ わからないのでＡ列のデータということで、でやってみました もっと、よいやり方があると思いますが・・ Sub test1() Dim N As Integer Dim k As Integer Dim acs As String acs = ActiveWorkbook.ActiveSheet.Name k = 0 N = Sheets(acs).Range("a" & Rows.Count).End(xlUp).Row 'Ｎはa列の最終行 For r = 0 To N If Cells(1 + k, 15) = "ok" Then Range(Cells(1 + k, 1), Cells(1 + k, 10)).Select Selection.Interior.Pattern = xlGray16 ’網掛け Else ’ok じゃないときの処理をここに↓書いてください Range(Cells(1 + k, 1), Cells(1 + k, 10)).Select Selection.Interior.ColorIndex = xlNone ’とりあえず今回は網掛けなしになってます ↑ End If k = k + 1 Next Range("A1").Select End Sub |
| ▼ひで さん： おはようございます。 早速のお返事ありがとうございます。 試してみたところ、理想どおりの動きでした。 どうもありがとうございました。 |