Excel VBA質問箱 IV

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

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


34581 / 76734 ←次へ | 前へ→

【47361】Re:シート内の指定色変更したいんです
回答  Kein  - 07/3/9(金) 0:07 -

引用なし
パスワード
   >1つのセルに長文
ということから推測すると、セル内の文字色が全て赤になっている
のではなく、任意の文字だけを赤にしているのでしょうか ?
それなら一文字づつチェックしていくしかないと思います。
サンプルコードは、グローバル変数を使った以下のようなものです。
モジュールの先頭から入れて、対象のシートを開いて試してみて下さい。

Private ColCk As Boolean

Sub Change_FColor()
  Dim C As Range
  Dim i As Long, ColA As Long, ColB As Long
 
  If ColCk Then
   ColA = 2: ColB = 3
  Else
   ColA = 3: ColB = 2
  End If
  For Each C In Cells.SpecialCells(2)
   For i = 1 To Len(C.Value)
     With C.Characters(i, 1).Font
      If .ColorIndex = ColA Then .ColorIndex = ColB
     End With
   Next i
  Next
  ColCk = Not ColCk
End Sub

一つのセルの文字色が全部赤になっている場合は、Excel4マクロ関数
のGET.CELLと、作業シートを組み合わせた方法も考えられます。
一文字づつ見ていく上のようなコードより、効率的な処理ができますが。

3 hits

【47355】シート内の指定色変更したいんです kanji 07/3/8(木) 21:46 質問
【47358】Re:シート内の指定色変更したいんです bykin 07/3/8(木) 22:45 発言
【47360】Re:シート内の指定色変更したいんです kanji 07/3/8(木) 23:22 質問
【47361】Re:シート内の指定色変更したいんです Kein 07/3/9(金) 0:07 回答
【47362】Re:シート内の指定色変更したいんです kanji 07/3/9(金) 0:28 質問
【47363】Re:シート内の指定色変更したいんです とおりすがり 07/3/9(金) 0:33 発言
【47364】Re:シート内の指定色変更したいんです Kein 07/3/9(金) 1:06 回答
【47365】Re:シート内の指定色変更したいんです Kein 07/3/9(金) 1:07 発言
【47366】Re:シート内の指定色変更したいんです kanji 07/3/9(金) 1:15 お礼

34581 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free