Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2140 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【69845】文字を認識して色を付けたい VBA初心者 11/9/3(土) 8:00 質問[未読]
【69846】Re:文字を認識して色を付けたい UO3 11/9/3(土) 8:36 発言[未読]
【69851】Re:文字を認識して色を付けたい VBA初心者 11/9/4(日) 3:57 お礼[未読]
【69852】Re:文字を認識して色を付けたい UO3 11/9/4(日) 8:37 発言[未読]
【69856】Re:文字を認識して色を付けたい VBA初心者 11/9/5(月) 3:50 お礼[未読]
【69845】文字を認識して色を付けたい
質問  VBA初心者  - 11/9/3(土) 8:00 -
引用なし
パスワード
   はじめまして
セルのA1〜Ａ30まであるとして
そのセルの中に指定した文字が入力または表示されるとそのセルの文字のみ指定した色に文字色が変わるようにしたいのですが、どのような方法があるでしょうか。

ご教授頂けましたらお願い致します。
【69846】Re:文字を認識して色を付けたい
発言  UO3  - 11/9/3(土) 8:36 -
引用なし
パスワード
   ▼VBA初心者 さん：


おはようございます
指定した文字（列）が１つだけなら条件付き書式で対応するのはいかがですか。

A1:A30を選択して条件付き書式。
「数式が」=LEN(A1)<>LEN(SUBSTITUTE(A1,"●",""))

この　●　が　指定した文字（列）です。
式そのものは、もっとスマートなものもあるかもしれませんが。
【69851】Re:文字を認識して色を付けたい
お礼  VBA初心者  - 11/9/4(日) 3:57 -
引用なし
パスワード
   UO3 さん

解答、ありがとうございます。
ちなみに指定した文字がA1:BO1といったような(列)だった場合はどのようになるのでしょうか？
申し訳ありませんが、よろしくお願い致します。


>指定した文字（列）が１つだけなら条件付き書式で対応するのはいかがですか。
>
>A1:A30を選択して条件付き書式。
>「数式が」=LEN(A1)<>LEN(SUBSTITUTE(A1,"●",""))
>
>この　●　が　指定した文字（列）です。
>式そのものは、もっとスマートなものもあるかもしれませんが。
【69852】Re:文字を認識して色を付けたい
発言  UO3  - 11/9/4(日) 8:37 -
引用なし
パスワード
   ▼VBA初心者 さん：

おはようございます。
同じです。A1:BO1を選択した状態で条件付き書式を設定します。
たとえばA1:AO5 といった複数行、複数列でもＯＫですよ。

ご存じのように、条件付き書式は、A1ならA1用の、B1ならB1用の条件を、それぞれのセルに入力する必要があるのですが
セル範囲を選択した状態で、アクティブセル（選択した領域の左上隅に白く反転して表示されるセル）
に対する条件式をいれますと、アクティブセル以外には、その式で参照するセルが「相対的に」変更されて
セットされます。

たとえば、A1に関数式を打ち込んで、これを右にフィルコピーすると、式の中の参照が変化した関数式がB1以降に作られますね。
あれと、おなじような理屈です。
【69856】Re:文字を認識して色を付けたい
お礼  VBA初心者  - 11/9/5(月) 3:50 -
引用なし
パスワード
   ▼UO3 さん：

おはようございます。
なるほど解決しました。私ごと初心者にとってとてもわかりやすい解説ありがとうございました。
あつかましいお願いですが、今後もご指導お願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2140 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free