Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
21808 / 76792 ←次へ　｜　前へ→
【60373】Re:セル内の文字単位で色を塗り替えるには
発言  kanabun  - 09/2/15(日) 9:44 -
引用なし
パスワード
   ▼どんた さん：

>そこで各セル内を文字単位で一文字づつ文字の色を検索し
>黒であった場合に限り白く変更したく思います

>　　　　　　　　　　If Cells(R, C).Font.ColorIndex =1 Then

ColorIndexの判定も 文字単位にします

たとえば、こんな風

　　Dim c As Range
　　Dim i As Long
　　
　　For Each c In ActiveSheet.UsedRange
　　　　If VarType(c.Value) = vbString Then
　　　　　　With c
　　　　　　　　For i = 1 To .Characters.Count
　　　　　　　　　With .Characters(i, 1).Font
　　　　　　　　　　If .ColorIndex = 1 Then .ColorIndex = 2
　　　　　　　　　End With
　　　　　　　　Next
　　　　　　End With
　　　　End If
　　Next
1 hits
▼ 【60372】セル内の文字単位で色を塗り替えるには どんた 09/2/15(日) 0:35 質問
【60373】Re:セル内の文字単位で色を塗り替えるには kanabun 09/2/15(日) 9:44 発言≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
21808 / 76792 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free