人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelのマクロについて質問です。
1つのセルの中にある文章の、一部分だけに色がついていたとして、
その部分のテキストだけを抽出したいのですが、どうしたら良いのかわかりません。

【例】「本日は雨ですね雨宮さん」
※上記の最初の「雨」が赤色だったとして、その位置を取得したい

特定のテキストが出現した位置を取得するのなら、
InStrやCharactersでどうにかなると思うのですが、
色つきの部分を取得したいのです。

どなたかご教授下さい。
よろしくお願いいたします。

●質問者: noname
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:Excel セル テキスト マクロ 抽出
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●60ポイント
Sub test()
a = Len(Cells(1, "A"))
c = ""
For b = 1 To a
 If Cells(1, "A").Characters(Start:=b, Length:=1).Font.ColorIndex <> xlAutomatic Then
 c = c + Mid(Cells(1, "A"), b, 1)
 End If
Next b

MsgBox c


End Sub

A1のセルに黒意外の色があれば 抜き出します。

◎質問者からの返答

ありがとうございます。

xlAutomaticというのをはじめて知りました。勉強になります。

意図していた動作でした。大変たすかりました!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ