特定の文字が含まれるセルに色を付ける

0
    JUGEMテーマ:PC関連

    A列で「県」という文字が含まれるセル全てに黄色で色を付けます。

    Sub Sample88()
    Dim R As Range, A As String
    Set R = Range("A:A").Find("県", Range("A1"), , xlPart)
    If Not R Is Nothing Then
       A = R.Address
       Do
         R.Interior.ColorIndex = 6
         Set R = Range("A:A").FindNext(R)
       Loop Until A = R.Address
    End If
    End Sub

     

    広告リンク


    コメント
    コメントする








       
    この記事のトラックバックURL
    トラックバック



    calendar

    S M T W T F S
       1234
    567891011
    12131415161718
    19202122232425
    262728293031 
    << January 2020 >>

    スポンサードリンク

    広告リンク

    広告リンク

    selected entries

    categories

    archives

    recent comment

    • 「コピー領域と貼り付け領域のサイズが違うため、貼り付けることができません。」といわれる
      Human Races
    • ルーラーの単位を変更してもその単位で表示されない
      Human Races
    • プレビューウィンドウを表示していると不具合が発生する
      Human Races
    • 互換性チェックのメッセージが表示される
      salomon speedcross
    • 列記号の上、行番号の横に+や-の記号が表示されるようになった
      stussy clothing
    • 「2017年 窓の杜大賞」候補としてノミネート
      levis jeans
    • 数値を小数点位置で揃えるには(その1)
      Levis
    • 入力後矢印キーで修正すると入力モードが解除される
      stussy sweatshirt
    • 2016年間総合ダウンロードランキング100位以内
      lebron shoes
    • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
      salomon shoes

    links

    profile

    search this site.

    others

    mobile

    qrcode

    recommend

    powered

    無料ブログ作成サービス JUGEM

    本日 昨日