| |
▼kanabun さん：
お世話になっております。再度checkをしましたところ、1つのセル内で256以上になると、赤くなるだけで大文字にならないという事がわかりました。255文字以内であれば大文字になり、赤くなるといった結果がえられました。
なお、私がいろいろ調べて今利用しているマクロが以下のようになっています(完全一致FのシートA1にAGGTCAという文字が入力されています。)。
このマクロに、kanabunさんが考えていただいた大文字にするマクロの一部である
With c.Characters(j, Len(What)
.Text = UCase$(What)
をどのように組み込めばいいのでしょうか？
Sub 完全一致F()
Dim Myo As Range, Myp As Range, W1 As Long, i As Long
For Each Myo In Sheets("クローンリスト").UsedRange.Resize(, 1)
For Each Myp In Sheets("完全一致F").UsedRange.Resize(, 1)
i = 1
Do
W1 = InStr(i, Myo.Value, Myp.Value, vbTextCompare)
If W1 > 0 Then
Myo.Characters(Start:=W1, Length:=Len(Myp.Value)).Font.ColorIndex = 3
i = W1 + Len(Myp.Value)
Else
i = 1000
End If
Loop While (i <> 1000)
Next
Next
End Sub
>▼T.K さん：
>
>>今試してみたのですが、赤くはなるものの大文字にはなりませんでした。
>
>こちらで試したときは、
> "aggtca" 部分が "AGGTCA" に変換されて赤くなりましたが？
>
>>> With c.Characters(j, Len(What))
>>> .Text = UCase$(What) ' 大文字にする
>>> .Font.ColorIndex = ColorIndex' Font色 変更
>>> End With
|
|
T.K
- 12/4/22(日) 9:41 -
