□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 文字色の一部変更 | |
|---|---|
[195327] 文字色の一部変更- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 螢 -(2022/10/24(19:14)) □U R L/ いつもお世話になっております。
今回は、セル内の文字について、一部のみ色を変更したい場合の処理です。
空欄に文字を挿入して、その一部に色付けをしていく処理はできました。
実施したいことは、マクロを繰り返し動作させることで
文字が変わり、着色部分も変わるループという内容です。
文字列の先頭を着色しているせいか、先頭文字が赤い状態で
そのセルをDeleteで消去した場合は赤い設定が残ってしまいます。
フォントの設定としては黒文字で、セル内の一部文字だけが赤い場合は
これをDeleteした際に黒文字設定が残るということは可能でしょうか？
手作業で先頭文字を着色しても同じ結果だったので、VBAの質問では
ないのかもしれません。
ご指南よろしくお願いいたします。
Sub 文字色テスト()
If ActiveCell = "" Then
ActiveCell = "プラス □"
ActiveCell.Font.Color = vbBlack
ActiveCell.Characters(Start:=1, Length:=3).Font.Color = vbRed
Else
If ActiveCell = "調整なし" Then
ActiveCell = "プラス □"
ActiveCell.Characters(Start:=1, Length:=4).Font.Color = vbRed
ElseIf ActiveCell = "プラス □" Then
ActiveCell = "マイナス □"
ActiveCell.Font.Color = vbBlack
ActiveCell.Characters(Start:=1, Length:=3).Font.Color = vbBlue
ElseIf ActiveCell = "マイナス □" Then
ActiveCell.Font.Color = vbBlack
ActiveCell = "調整なし"
End If
End If
End Sub
Windows10のEXCEL2016です。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195328] Re[1]: 文字色の一部変更- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/10/24(21:12)) □U R L/ 半角スペースを1文字目に挿入しておくのはどうでしょうか。 | |
[195343] Re[2]: 文字色の一部変更- ■  / 記事引用/メール受信=OFF■
□投稿者/ 螢 -(2022/10/26(07:55)) □U R L/ やはり、対処法としてはこれが考えられますよね。 すみません、ありがとうございました！ | |