Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10464 / 76807

←次へ　｜　前へ→


	【71890】Re:特定の文字列を検索し、色をつける、大文字にするVBAを教えてください。

kanabun - 12/4/22(日) 18:35 -


	引用なし

	パスワード

▼T.K さん： >▼kanabun さん： >先ほどすこしためしてみました。文字数に関しては問題なくクリアできました。 >しかし、別シートに存在するデータが複数ある場合、すべて大文字にはなるものの一番上にかかれているものだけが色が変わり、データが3個程度の場合はいろがかわるのですが10個程度になると色は変わらないといった事象がおきました。むむ、その不具合ですが、 Sub LargeChar サブプロシージャの ◆の1行を加えたら解消されませんか？ >'c: 対象セル　 What：検索文字列 >Sub LargeChar(c As Range, What As Variant) >　　Dim j As Long >　　Dim sL As String >　　Dim ss As String >　　Dim wh >　 >　　For Each wh In What >　　　　sL = UCase$(wh)　 '例. wh:"aaa"　sL:"AAA" >　　　　ss = Replace(c.Text, wh, sL) '文字列の置換 >　　　　c.Value = ss　 '変換後の文字列をセルにセット　　　　　j = 0　'◆ この行追加 >　　　　Do >　　　　　　j = InStr(j + 1, ss, sL) >　　　　　　If j = 0 Then Exit Do >　　　　　　c.Characters(j, Len(sL)).Font.Color = nColor >　　　　Loop >　　Next >End Sub