• 締切済み

VBScriptを使用してExcel内の文字単体の色取得方法を教えてください。

Excelのセルに"TEST" T=黒 E=赤 S=黒 T=黒 と記載されている時に、 VBAScriptを使い Eの赤を取得する方法を教えてください。

みんなの回答

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

既にブックが1つだけ開いておりSheet1のセルＡ1 にTESTと記載されているものとしています。 Set objExcel=GetObject(,"Excel.Application") '既に起動しているExcelへの参照 With objExcel.WorkSheets("Sheet1").Range("A1") 　　For i = 1 To Len(.Value) 　　　　If .Characters(i, 1).Font.Color = vbRed Then 　　　　　　MsgBox Mid(.Value, i, 1) & " が赤" 　　　　End If 　　Next End With

tka777
質問者

お礼

回答ありがとうございます。 おかげさまで、意図した処理ができるようになりました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • perlとOLEでのExcelのフォント色を取得

    お世話になります。 Perl の OLEを使用して、エクセルの解析を行なっています。 そこで、エクセルの１つのセルに入っている文字の赤色の部分だけを取得したいと思います。 、 例えば、そのセルには [ わたしは　チョコレート　が好きです ]　と書いてあり、 「チョコレート」が赤、その他は黒で書かれています。 それらのようなセルがＡ列に１０行あり、 赤い部分の文字だけPerlのOLEで取得したいのですが、うまくいきません。 試しに ColorIndex　を使用してみたのですが、取得できませんでした。 どなたかご存知の方がいらっしゃいましたら、方法をご教授いただけませんでしょうか。 よろしくお願いいたします。

  • Excelで、条件付き書式などで文字に色を付ける方法

    MS Office XPのExcelを使っています。 ある列のある範囲の中で、 最大値＝赤、最小値＝青、それ以外＝黒のまま、 という具合にフォント色を変えようと思い、条件付き書式を 使いました。 ＜例＞ 適用範囲が「A1:A10」だとしたら 条件1　=MAX($A$1:$A$10)　フォント色＝赤 条件2　=MIN($A$1:$A$10)　フォント色＝青 の様にしてみました。 しかしある条件下では意図しない結果になってしまう事に気付き、 解決策を探しています。 下記の様な動作をさせる方法はあるでしょうか。 ◆入力されている数値が全て同じ値の時に、全部赤文字になる →全部黒文字で良い ◆２つのセルだけに入力されている時、 　大きい数値が赤、小さい数値が青、となる →大きい数値が赤になるだけで良い ◆１つのセルだけに入力されている時、赤文字になる →黒で良い 宜しくお願いします。

  • エクセルの文字の色について

    エクセルで質問があります。 ・Ａ１のセルに(1)と打って文字の色を赤にします。 ・Ｂ１のセルに(2)と打ちます。 （質問） ・Ａ１の文字が赤色の場合、Ｂ１のセルに文字を打った時、自動でＡ１のセルと同じ色になるようにしたいのですが、 やり方ありますか？教えて頂けませんか。

  • エクセルで文字の色を変える方法は?

    ｗｉｎｄｏｕｗｓ　ｘｐを使っています。 エクセルで見積書を作っているのですが、一度提出したものは、黒文字。次修正を加えたものは赤文字にしたいのですが、セルに対して色設定をしているので入力してから色の変更をするという２作業が必要になってきますよね?これを何かの設定で１作業でできないかなと質問させて頂きました。 変更箇所が多い為、能率よくできたらと思いました。

  • Excelの「塗りつぶしの色」の取得方法

    Excel 2010 にて 添付画像の赤枠で囲まれた部分の色をマクロ(VBA)で取得する方法はあるでしょうか？ なぜか添付画像がうまく表示できないようなので、わかりづらいですが ホームリボン⇒フォント⇒塗りつぶしの色の部分です。 デフォルトままマクロを実行すると黄色(255,255,0)が取得でき、 これを赤に変更すると、赤(255,0,0)が取得できるようなイメージです。 この値を使って背景色の塗りつぶしを行うマクロを作りたいと思っています。

  • Excelの塗りつぶしで色を変えたい

    Excelで作成した一つのワークシートを「全てのセルを選択」し、「塗りつぶし」で色をつけたとします（例えば赤色）。そうした場合、その後空いているセルに文字を入力するとその文字は当然赤色になりますが、これを黒で入力する方法はないのでしょうか。

  • excel　で入力する文字色を　赤にしたい

    お世話になります。 excel2010を使用しています。 入力したときのデフォルトの文字色が黒なのですが、 これを赤にしたいのです。 現在は、毎回、 (1)黒で入力 (2)文字色を赤に変更 を繰り返していますが (1)の段階で赤にしたいのです。 新規に入力するセルを、(1)の段階から赤にできるか？ →できるので、あればその方法を 既に入力されているセルの末尾に、文字を追加した場合(1)の段階から 赤にできるか？ →できるので、あればその方法を の２点を教えて頂けないでしょうか？ ご知識あるかた　何卒よろしくお願い致します。

  • エクセル関数で文字色

    エクセル2002使用です。 セルA1に文字色（例えば赤）のついた値が入力されています。 セルB1に=A1と入力すると、値は入力されますが、 文字色が黒に変わってしまうのですが・・・ 文字色も含めて移動させる方法を教えてください。 初歩的な質問ですいません。 よろしくお願いします。

  • エクセルでの文字の色設定

    以前どなたかが作成してくれたエクセルファイルで、 セルＡに２と入力すると、セルＢに何か入力したときの文字が青、同様に３と入力すると赤、1と入力したときと何も入力していないときは黒になる。 と言うものがあります。 そのファイルにはマクロも組まれていなくてセルの書式設定や関数の入力もされていません。 そのファイルを応用して使用したいのですが、一体どのような仕組みになっているのか見当のつく方、上記のような設定の仕方のわかる方がいらっしゃいましたら教えてください。

  • excel 文字の色を変える

    Ｅｘｃｅｌについて、方法を知っていれば教えて下さい。 例えば、セルＡ１の値によって、セルＢ１の表示文字の色を変える事ができますか？ セルＡ１の値によってＡ１の表示文字の書式を変更する事は可能ですが、Ｂ１の書式を変更する事ができません。 具体的に言うと、Ａ１には数値が入っています。 Ａ１の値がＺｅｒｏならばＡ１の表示を赤にします。（<--これはできますのでＯＫです） Ｂ１には表示したい文字が入っています。 Ａ１の数値がＺｅｒｏならば、Ｂ１に入っている文字を赤で表示したい。（<--これが解らない）

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する