fonts - 文字の位置に基づいてセル内の文字に異なるフォントの色を設定する

Question

範囲内のすべてのセルの内容の最初の3文字、2番目の3文字、最後の3文字に3つの異なる色を設定しようとしています。次のコードは、最初の3文字だけでなく、セルの内容全体を緑色に変更しています。

これを行う方法を教えてください。私はVBにとても慣れていません。

Sub LoopAndChangeColor()

  Dim i As Integer
  Dim targetRange As Range
  'Set targetRange = Range("A1:A10")

  'For Each cell In targetRange
  For i = 1 To 10
    Cells(i, 1).Characters(1, 3).Font.Color = vbGreen
    Cells(i, 1).Characters(4, 3).Font.Color = vbBlue
    Cells(i, 1).Characters(7, 3).Font.Color = vbRed
  Next

End Sub

Answer 1

この情報は遅すぎるかもしれませんが、必要なことを行うためのマクロはすぐに使用できます。訪問: http://excelfindandformat.herobo.comおよび関連する 34 の YouTube ビデオ。