[[20060626141915]] 『設定条件を含むセルの着色』(初心者です) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『設定条件を含むセルの着色』(初心者です)
 お世話様です。
[[20050601170355]]
 こちらのマクロを使わせいただこうと思ったのですが、条件がそのものズバリではなく、
 「そのことばから始まる」という設定はどのようにしたら良いのでしょうか?
 お願いいたします。 

 マクロではなく条件付書式で出来そうですが?
 そんなに条件があるのでしょうか?
 
 数式であれば
 FIND関数やCOUNTIF関数などで出来そうですね^^
 
 マクロであれば
 Like演算子 はいかがでしょう?
 
 (キリキ)(〃⌒o⌒)b

 キリキ様。Like演算子とは、どのようなものなのでしょうか?
 お教えいただけますか?(初心者です)

 If Range("A1").Value Like "そのことば*" Then
といった塩梅です。
(ROUGE)

 ROUGE様。現在使っているSelect Caseに入れ込んでも、出来ないのですよね?
 スミマセン。マクロをコピペする方法を知っているという程度の初心者です。
 勉強させていただくつもりで、質問してみました。
 よろしければ、どのように展開していったら良いのかお教えいただけますか?

 今のスキルでは、質問するのは早い段階だったのかも・・・知れない・・・(初心者です)


 ROUGE先輩、ふぉろ〜おおきに〜
 
 >Like演算子とは、どのようなものなのでしょうか?
 こちらが参考になればいいのですが、、、
[[20050405225704]]『略語辞書の作成』(橋の下から)
[[20050504120228]]『英数字のみ全角→半角に変更する方法は?』(Kuro)
 
 例題を作ってみました
Sub test()
Dim MyCol As Long
Dim x As Variant
    For Each x In Selection
        If x Like "*あ*" Then
            MyCol = 3
        ElseIf x Like "*い*" Then
            MyCol = 6
        Else
            MyCol = 0
        End If
        Range(x.Address).Interior.ColorIndex = MyCol
    Next x
End Sub
 
 ※範囲指定してから、testを実行してください。
 (キリキ)(〃⌒o⌒)b


 キリキ様 ありがとございます。
 範囲指定 Range("A3:F300").Select を追加し作成してみました。
 バッチリです。
 その後、条件に該当するセルではなく、該当するAからF行を着色したかったので、
 Row(x).Interior.ColorIndex = MyCol としましたが、エラーが・・・・
 こんな単純な考え方じゃダメでした。(泣)
 お手数ですが、お教え願えますか?(初心者です)

 x.EntireRow.Interior.ColorIndex = MyCol
 に変えて実行してみてくらはい。
      (弥太郎)

 ししょ〜、ふぉろ〜ありがとうございます^^
 
 (キリキ)(〃⌒o⌒)b

 なるほど・・・
 改めて知らない事だらけだと気づかされます。
 勉強になりました。ありがとうございました。(初心者です)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.