[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『設定条件を含むセルの着色』(初心者です)
お世話様です。 [[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.