• 締切済み

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

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

  • Perl
  • 回答数1
  • ありがとう数0

みんなの回答

  • geg01137
  • ベストアンサー率0% (0/0)
回答No.1

$color = $Sheet -> Range("A1:B1") -> Font -> {ColorIndex}; で、いけるような気がしますが。。。

関連するQ&A

  • 色の取得について

    例えば、セルA1でセルの書式設定で赤色を設定したときに、 その色情報(ColorIndex = 3)を取得するプログラムは可能でしょうか?

  • Excel 2007で フォントの色が変わらない

    アドバイスお願い致します。 Excel 2002をアンインストール後、Office 2007 評価版をインストール。初めてExcel 2007を起動しました。画面上で文字の色を変更できません。セル選択し「フォントの色」をクリックしても、見た目には変化なし、しかし、文字列を選択してみると色は変更されている。次に、別のセルに選択を移すと元のセルは黒に戻ってしまう。諦めて印刷したところ、一部を除いて変更した色で印刷されました。「文字列を折り返す」に設定し、2行になっているセルは黒のまま、色変更されていない。 アドバイスお願い致します。

  • エクセル2002:自動的にフォントカラーを変えるには?

     エクセル2002についての質問を致します。  ひとつのセルに入力があると、その同じ行の別のセルの中のフォントカラーが自動的に変わる・・・例えば同窓会名簿を作る際、セルに“欠席”を入力すると自動的にその方の名前の文字が“黒”から“赤”に変わる。そのようにするにはどうすればいいでしょうか。 回答宜しくお願いします。

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

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

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

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

  • エクセルでフォントの色、サイズもコピー

    エクセルでA1セルに「20」という数字が入っています。 この「20」は赤色で斜体なのですが、 B1セルに「=A1」と入力すると「20」(黒、通常書体)となります。 B1セルにはA1セルと同じものをコピーしたいのですが、どうすれば赤色で斜体な「20」がコピーできるのでしょうか?

  • エクセルで重複文字の色を変えたい

    エクセルで重複して入力の文字を1行目のみ黒色で表示し 2行目以降は赤色にする関数を教えてください。 例えば・・・    A  B 1  5  5 2  5  5 3  5  5 4  5  5 A1とB1の5のみは黒色 A2とB2以降を赤色にしたいのです。宜しくお願いします。

  • エクセルVBAで条件付書式の色を取得

    セルに条件付書式で書式設定してあります。 A1は「値」100以下 A2は「値」500以下 A3は「値」1~10の間 B1は「数式」で=B1<A1 以下さまざまな数式があります。 条件に一致すると、セルの文字が「赤」になります。 このとき、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Target.Font.ColorIndex End Sub を実行しても、ColorIndexは、赤の「3」ではなく「-4105」と表示されます。 「-4105」は何もフォントの色を指定してないセルでも同じく表示されます。 質問1.条件付書式で、条件が一致して表示されたフォントの色は取得できないのでしょうか? 質問2.-4105とは何でしょうか?

  • OutlookやExcelで色が付かない

    OutlookExpressやExcelを使用していて、文字に色をつけたいのですが、何故か色がつきません。 アウトルックで、HTMLメールに設定して、文字の大きさを変えたり文字に色を付けたいのですが、文字の大きさは変わるものの、文字の色は黒のまま変化しません。 とりあえず赤の文字として色をつけて(画面上では黒のままですが・・・)メールを送信すると、受信したメールではちゃんと色がついています。 エクセルも同様にセルに文字を入力し、色をつけても画面上では黒のまま変化せず、そのファイルを保存して開き直すと指定した文字に色が付いています。 何らかの色の表示がおかしいようなのですが、正常な表示に直す方法がお分かりになる方みえましたら教えてください。よろしくお願いします。

  • PerlでExcelのワークシートを同じファイル内にコピーしたりワーク

    PerlでExcelのワークシートを同じファイル内にコピーしたりワークシートの名前を変更することは可能でしょうか? 環境は、WindowsXPpro、IIS5.1、PerlV5.10でWin32_OLEモジュールを使用しています PerlでExcelのワークシート内セルに書き込み・セルからの読み出しはできています。 VBAではワークシートをコピーする場合は、 「Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")」 でコピーできるようですが、 Perlではどう記述すれば良いか分かりません。 Perlではワークシートをコピーしたりワークシートの名前を変更することは出来ないのでしょうか? よろしくお願いします。

    • ベストアンサー
    • Perl