- ベストアンサー
エクセルVBAで該当するセルに色をつけたい
kmetuの回答
- kmetu
- ベストアンサー率41% (562/1346)
追加です 検索したい社名がどこかのセルにあるとしたら(たとえばC1とか) Myfindstr = Range("C1").Value として Set c = .Find("*abc*", LookIn:=xlValues) ↓ Set c = .Find("*" & Myfindstr & "*", LookIn:=xlValues) に変更してください。
関連するQ&A
- エクセルマクロで特定の文字を探して隣のセルの色を変える
エクセルに入力されている特定の文字を探し出して隣のセルに色をつけたいと考えています。 検索の対象となるセルは全てのシートのB列です。 検索する文字は色々な英数字の組み合わせの中に含まれています。 A B 1 10 ABC000012 2 20 AAC000013 3 30 ACC000014 上記のような値が入力されている状態で、B列の"ABC"か"AAC"の何れかが入力されているセルの隣のA列のセルの色を変えたいです。 この場合はA1とA2のセルの色が変わるというイメージです。 VBAを使って処理したいのですが、どなたかご教授頂けないでしょうか。宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAについて質問です。
エクセル２００３のVBAについて質問です。 複数の検索したい文字列があり、複数の検索対象セルがあります。 セルの文字列が検索文字列のいずれかと一致したセルの背景の色を変えたいです。 よろしくおねがいします。 仕事でマクロを組まなけばならなくなってしまったのですが、 初心者のため検索してみたり調べてみたり、参考にして作ってみたのですがうまくいかないばかりかどんどん解らなくなってしまいました。 どうか助けてください。 sheet1のセルが検索対象 （全セル対象でも大丈夫ですが、検索したいセルはB2→J2、B11→J11、B20→J20の範囲です）、 sheet2のA列に検索したい文字列が入力されています。 この検索したい文字列は今後増えていく可能性があるので、増えた場合にも対応できるようにと考えています。 sheet1（検索対象） あ い う え あ お お sheet2（検索文字列） あ う お け き ↑の様に入力されており、sheet1の「あ」と「う」と「お」のセルの背景を変えたいです。 色を変えたいのはsheet1です。 findメソッドや繰り返し処理などを調べて実践してみたのですが、 いきなりマクロを組めといわれた超初心者には難しく質問しています。 自分でやってみたのですが、 sheet1の最初の「あ」のみが変換され、後に出てくる「あ」が変換されません… どうしたらいいのか…どうすることも出来ず困っております。 すみませんが、どなたか優しい方助けてください。 よろしくおねがいします＞＜
- ベストアンサー
- Visual Basic
- エクセルＶＢＡでセルに色を付けるには
エクセル2010の質問です。 例えばＡ列に入力した文字のバイト数が38より多い場合、セルに色を付けたいのです。 条件付き書式で =LENB($A2:$A1048576)>38 でもよかったのですが シート内のデータをクリアすると条件付き書式までクリアされてしまい困っています。 ＶＢＡで出来るのが一番なのかなと思っていますが、ご教授お願い致します。
- ベストアンサー
- Excel（エクセル）
- エクセル VBA ある条件でセルに色をつけたいのですが、
エクセル VBA ある条件でセルに色をつけたいのですが、 例えば、A2からA50に文字列が入っていて、ある処理を終えると、空白を除くセルに薄い水色（33）をつけます。ここまでは、VBAで作成できました。 次に、空白を除くセルが、すべて薄い水色になったら、A1を薄い黄（36）にしたいのです。 教えてください。よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルＶＢＡでセル結合
いつもお世話になっています。 エクセル2003でＶＢＡを使って下記をしたいのでその、ＶＢＡ構文を教えて下さい。 特定の列のあるセルに文字が入っています。 （文字が入っている列は固定ですが、行番号はデータによって変わります。例えば、Ａデータの場合は「Ｊ３０」、Ｂデータの場合は、「Ｊ５５」だったりします。） この文字が入っているセルをＶＢＡで検索し、検索したセルを右隣のセルと結合します。（先ほどのＡデータの場合、Ｊ３０：Ｚ３０に結合します。） 更に、文字が入っているセルが２以上の複数の場合があります。（先ほどのＡデータの場合、「Ｊ３０」と「Ｊ４０」と「Ｊ４５」という感じです。文字が入っているセルの数はデータにより異なります。） 結合が終わり、このシートのデータがあるところだけに罫線を引きます。（このシートのデータというのは、前述の文字とそれ以外は、「数字」と「・」です。 ややこしいですが、よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 【VBA】該当する文字列がある列を削除したい。
指定した文字列を検索して、そのセルのある列削除したいです。 例えば2行目に、表の項目として「社名、フリガナ、住所、電話番号、備考、・・・」 と、あるときに、フリガナと電話番号の列を削除させたいのです。 シートによって項目の位置が若干変わる為、列番号を指定して削除するようなことは出来ません。 項目の名前が変わることはありません。 vbaでどのようにすればよいのでしょうか。 また、2行目の範囲で文字列を検索して、該当する文字列があるセルの位置情報を 取得したい場合はどうすれば良いでしょうか？ 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- Excelでセル内の文字列のみをコピーする方法
Excelでセル内の文字列のみをクリップボードにコピーする方法を教えてください。 ※クリップボードにコピーをする方法であり、他のセルに値のみをペーストする方法ではありません。 満たしたい点は2つです。 ・表示している文字列のみを取得 ・複数のセルを同時にコピー 一つのセルに以下の文字列が入っていた場合(#以外) #123 #"abc" コピーするとクリップボードを文字列として取得すると以下の文字列が得られます #"123 #""abc""" これを以下の文字列が得られるようにしたいのです。 #123 #"abc" 1つのセルだけでいい場合は、セルを編集状態にしてコピーしたり アクティブセルの数式バーをコピーすればいいのですが、 これは当然、複数のセルを同時に選択する場合には使えません。 VBAを使う方法でもそうでなくてもかまいません。 (VBAの場合はコードもお願いしたいです) よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルで一つのセルに数式を二つ以上入力する方法はありますか？
エクセルで一つのセルに数式を二つ以上入力する方法はありますか？ 昨晩から プルダウンメニューで ある文字列を選び、その文字列により、違った計算をさせて、その答えをセルに表示させようとしていますが、全く上手くいきません・・・。 Sheet１の任意のセルに ABC, DEF, GHI, JKL と言う文字列を作り、プルダウンメニューで選べる様にしました。 そして、選んだ文字列により、下記の通り 切捨ての簡単な計算をさせて、その答えを Sheet2 の任意のセルに表示させたいと思ってます。 Sheet２の任意のセルにこの様な数式を教えて頂きまして入力しましたが、上手く行きませんでした。 =IF(F3="ABC", ROUNDDOWN(H3,2)*0.976),"DEF",ROUNDDOWN(H3,2)*0.976),"GHI", ROUNDDOWN(H3,2)*0.975), "JKL", ROUNDDOWN(H3,2)*0.978) 何かと試行錯誤してますが、全く分りません・・・(>_<)。 どなたか助けて下さい(/_;)
- ベストアンサー
- その他MS Office製品
- エクセルでセルの色の数
エクセルでセルの数の計算についてお聞きします。 条件書式でセルの色分けをしました。数の合計、文字の個数などの数式はできるのですが、セルの色の個数は数えることができるのでしょうか。もし、できるのであれば、その数式を教えてください。 例えば、Ａの列には、白‥３ 赤‥２というようにセルの色の個数を表示します。 今までそんな発想がなく使ってきませんでした。教えていただけるとありがたいです。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAを使ってファイル内にある特定の文字すべてに色をつけたい
おはようございます。 EXCEL VBAであるひとつのEXCELファイルの中のすべてのシートの特定の文字が入っているセルに色をつけるにはどのようなコードを使えばいいでしょうか？ （例）田中 という文字列が入っているセルはすべてブルーの色がつくという感じです。 教えて下さい。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト