No.2ベストアンサー
- 回答日時:
選択は出来ないと思います。
代替えでVBAは駄目ですか?
Dim myAry As Variant
Dim myTxt As String
Dim i As Long, j As Long
myAry = Array("大阪", "奈良")
myTxt = ActiveCell.value
ActiveCell.Font.ColorIndex = xlAutomatic
For i = LBound(myAry) To UBound(myAry)
j = InStr(myTxt, myAry(i))
With ActiveCell.Characters(j, Len(myAry(i))).Font
.ColorIndex = 3
End With
Next i
No.3
- 回答日時:
こんばんは!
やはりVBAになってしまうと思います。
すでに回答は出ていますので、参考程度で・・・
A列の1行目からデータがあるとしてのコードです。
一例です。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i, k As Long
Dim str As String
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To Len(Cells(i, 1))
str = Mid(Cells(i, 1), k, 2)
If str = "大阪" Or str = "奈良" Then
Cells(i, 1).Characters(Start:=k, Length:=2).Font.ColorIndex = 3
End If
Next k
Next i
Application.ScreenUpdating = True
End Sub 'この行まで
※ 各セルを一文字ずつ舐めるように2文字ずつ検索して、「大阪」「奈良」であればフォント色を「赤」にしています。
参考になれば良いのですが・・・m(_ _)m
この回答へのお礼
お礼日時:2011/10/02 21:20
ご回答ありがとうございます。
やはりVBAが使えたほうがよさそうですね。
丁寧に教えて頂いてありがとうございます。
勉強して色々試してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
関西弁はなぜ人を不快にさせる...
-
高倉健さんの映画「夜叉」のシ...
-
JRで神戸駅から大阪まで 快...
-
日本へ架ける国際電話のcountry...
-
贈呈式の司会進行の原稿につて
-
大阪に合わない
-
関西弁で言う「ええしの子」の...
-
キャバ嬢です。 お客様が好きに...
-
大阪人ってどうして威圧的なん...
-
くら寿司WiFiパスワード分から...
-
「無理しないでね」って意味だ...
-
大阪が嫌いになりだした
-
「○○さんの家」という意味で「...
-
関西(大阪)の人って「キッショ...
-
【関西の方限定】 関西弁につ...
-
関西弁の語尾はどうして上がるの?
-
関西のノリがほんとにしんどいです
-
「半時間」って方言ですか?
-
大阪の人って本当に世界一梅田...
-
関西人の気質
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
関西弁はなぜ人を不快にさせる...
-
JRで神戸駅から大阪まで 快...
-
くら寿司WiFiパスワード分から...
-
キャバ嬢です。 お客様が好きに...
-
大阪に合わない
-
日本へ架ける国際電話のcountry...
-
話してる時に『〇〇〇〇じゃな...
-
関西弁で言う「ええしの子」の...
-
「無理しないでね」って意味だ...
-
大阪人ってどうして威圧的なん...
-
大阪人ですが、大阪人が嫌いで...
-
友達(東京人)が大阪が合わな...
-
風俗の大阪のアポロビルみたい...
-
関西のノリがほんとにしんどいです
-
電話番号の最初の3桁や4桁って...
-
「○○さんの家」という意味で「...
-
電信棒という表現は方言ですか?
-
贈呈式の司会進行の原稿につて
-
大阪が嫌いになりだした
-
ストーンクラブを食べられる店...
おすすめ情報