Ｐａｇｅ 221 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルの塗りつぶし pot 02/10/18(金) 10:29 ┗Re:セルの塗りつぶし つん 02/10/18(金) 10:53 ─────────────────────────────────────── ■題名 ： セルの塗りつぶし ■名前 ： pot ■日付 ： 02/10/18(金) 10:29 -------------------------------------------------------------------------
| アクティブセルの範囲である色で塗られている範囲 を別の色で塗りつぶしたいのですが ・・・ どなたかよろしくおねがいします。 |
| ▼pot さん こんにちは >アクティブセルの範囲である色で塗られている範囲 >を別の色で塗りつぶしたいのですが ・・・ こんな感じ？ Sub test() Dim r As Range For Each r In Selection With r.Interior If .ColorIndex = 3 Then .ColorIndex = 6 End If End With Next r End Sub 選択されているセルのうち、赤のセルを黄色に変えています。 |