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

Excelマクロについて質問です。

Sub 色変化()
Moji = "はてな"
For i = 1 To Sheets.Count
With Worksheets(i).Range("a1:IV65536")
Set c = .Find(Moji, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 35
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next i
End Sub

上記で"はてな"と言う言葉を検索して
その部分の色を変えることはできたのですが
たとえばG5に"はてな"という言葉が入っていた場合
A5?G5までの列の色を変えたい場合はどのように
すればよいでしょうか?

よろしくお願いします。

●質問者: dreamworks
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:A1 Excel G5 LOOP NeXT
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● oich
●38ポイント

c.Interior.ColorIndex = 35

とある部分を、

Range(c, c.End(xlToLeft)).Interior.ColorIndex = 35

とすれば良いと思います。

◎質問者からの返答

おおお?ありがとうございます。

できました!

左の終わりまでってことですね。

ちなみにセルを指定しての色づけは可能でしょうか?

G5にはてなという言葉が入っていた場合

A5?J5まで色づけにすることはできますか?


2 ● oich
●38ポイント ベストアンサー

「 A5?J5まで」という意味が、G列から見て相対的に3セル右まで、ということであれば、

Range(c.Offset(0, 3), c.End(xlToLeft)).Interior.ColorIndex = 35

対象が見つかったセルの列を問わず、常にA?G列をということであれば、

Range(Cells(c.Row, 1), Cells(c.Row, 10)).Interior.ColorIndex = 35

で、それぞれできることと思います。

◎質問者からの返答

ありがとうございます!

できました。

まだまだ勉強不足でした。

出直してきます。

関連質問


●質問をもっと探す●



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