エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
エクセルで特定文字列に色をつけたいです。
1セルの文字列の、2回目以後出現した日本にも赤色をつけるために Sub test1() Dim rng As Range, cl A... 1セルの文字列の、2回目以後出現した日本にも赤色をつけるために Sub test1() Dim rng As Range, cl As Range, i As Long With ActiveSheet Set rng = .Range("a1:z100") '範囲の設定 txt = InputBox("色をつける文字の指定") '------ For Each cl In rng s = 1 While s <= Len(cl) p = InStr(s, cl, txt, 1) If p > 0 Then cl.Characters(p, Len(txt)) _ .Font.Color = vbRed s = s + p Else GoTo p1 End If Wend p1: Next End With End Sub を標準モジュールに貼り付けて実行してみてください。 (例) 日本の