[[20210422125649]]　『かっこの中の文字のみ一度に色を変える方法』（ohmi）　ページの最後に飛ぶ

『かっこの中の文字のみ一度に色を変える方法』（ohmi）

初心者です。
Excelで( )の中の文字(アルファベット)を自動で赤色にする方法はありますか？
暗記教材を作る際に便利だと思いまして質問させていただきました。
Officeprofessionalplus2016です。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

セル内の色を変えたい文字だけ範囲選択してフォントの色ボタンで色を選択するとその部分だけ変わります
（砂糖） 2021/04/22(木) 13:07

 >自動で赤色にする

 どういうタイミングでどういう方法で赤色にしたいのでしょう？
 また、どういう方法で色を戻しますか？

　確認ですが、対象はセルの文字列ですよね？
（通りすがり） 2021/04/22(木) 13:11

 シートモジュールに
 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WK_RANGE    As Range
    Dim WK_START    As Integer
    Dim WK_END      As Integer

    For Each WK_RANGE In Target
        WK_START = InStr(WK_RANGE.Value, "(")
        WK_END = InStr(WK_RANGE.Value, ")")
        If WK_START > 0 Then
            WK_RANGE.Characters(Start:=WK_START + 1, Length:=WK_END - WK_START - 1).Font.Color = -16776961
        End If
    Next
 End Sub
（ねむねむ） 2021/04/22(木) 13:23

 全角の場合とか()のどちらかしかない場合とかの処理は入っていない。

（ねむねむ） 2021/04/22(木) 13:24

すみません、英語の教材を作る際に、

例えば、
This is ( a )( book ).
のように穴埋めを作るときに、
かっこ内の文字を赤色に変える、もしくは白色にして見えないようにしたいのですが、
全てを手動で文字に色を付けるのが大変だったので、

セルの書式設定等で変更ができる方法がないかを知りたかったです。

文字はすべて半角アルファベットです。

（ohmi） 2021/04/22(木) 13:37

 VBA(マクロ)を使うことになる。
（ねむねむ） 2021/04/22(木) 13:39

自動ででしたか見落としてました
VBAじゃないと無理ですね
（砂糖） 2021/04/22(木) 13:48

皆さん、コメントありがとうございます。
マクロじゃないと無理なのですね。初心者の自分には敷居が高そうです。
早々にご回答ありがとうございました！
（ohmi） 2021/04/22(木) 13:55

コメント返信：

[ 一覧(最新更新順) ]

[[20210422125649]] 『かっこの中の文字のみ一度に色を変える方法』（ohmi） ページの最後に飛ぶ

[[20210422125649]]　『かっこの中の文字のみ一度に色を変える方法』（ohmi）　ページの最後に飛ぶ