| |
▼kanabun さん：
ありがとうございます。
今試してみたのですが、赤くはなるものの大文字にはなりませんでした。
プロシージャといった手法は知りませんでした。
最悪色は後回しでもいいので、小文字の文字列から別シートにある検索キーワードを多重検索して大文字に変換してくれるようなマクロを作りたいです。
>▼T.K さん：
>手始めに、1つのセルを対象として 部分検索し、見つかった
>部分を「大文字」にし、Font色を「赤く」するサブプロシージャ
>を呼び出すサンプルです。
>
>Sub Try1()
> Dim c As Range
> For Each c In Selection
> RepChar c, "aggtca", 3 ' サブプロシージャ呼び出し
> Next
>End Sub
>
>'c: 対象セル What：検索文字列 ColorIndex：Font色Index
>Sub RepChar(ByVal c As Range, What As String, ColorIndex As Long)
> Dim j As Long
> Do
> j = InStr(j + 1, c.Text, What)
> If j = 0 Then Exit Do
> With c.Characters(j, Len(What))
> .Text = UCase$(What) ' 大文字にする
> .Font.ColorIndex = ColorIndex' Font色 変更
> End With
> Loop
>
>End Sub
|
|
T.K
- 12/4/21(土) 23:13 -
