0

他のセルからの入力に基づいて新しいセルにテキストを作成したかったのですが、新しいセルで選択したテキストを別の色で強調表示したかったのですが、次のサンプルコードは

Sub Macro1()

   While ActiveCell.Offset(0, -1) <> ""       
     ActiveCell.Offset(0, 0).FormulaR1C1 = _
      "New Text" & ActiveCell.Offset(0, -1) & ":" & ActiveCell.Offset(0, -2)

     ActiveCell.Offset(1, 0).Select
   Loop

End Sub

ここでは、「新しいテキスト」に色を定義したいと思います。選択したテキストではなく、セル全体を変更する方法を見てきました。これを行う方法？

4

2 に答える 2

1

文字列内の特定の文字を別の色 (この場合は赤) に変更する例を次に示します。

Sub ChgColour()

    vStart = 12
    vLength = 3
    With ActiveCell.Characters(Start:=vStart, Length:=vLength).Font
       .Color = -16776961
    End With

End Sub

これにより、12 番目から始まる 3 つの文字の色が変わります。

よくわからないときに VBA 構文を取得するのに非常に役立つヒントの 1 つは、手順を手動で実行しながらマクロを記録することです。これにより、使用されたコードを確認できます。場合によっては、必要なフォント プロパティだけでなく、すべてのフォント プロパティを設定するなど、必要以上のコードが生成されることもありますが、多くの場合、必要な部分を見つけ出し、セル/文字の絶対参照を相対参照に置き換えることは簡単です。

于 2013-07-06T12:24:44.393 に答える