VBAでセルに色をつけるマクロを行に適用する方法

2012/03/21 10:47

このQ&Aのポイント

VBAを使用して、ダブルクリックしたセルを含む行に色をつける方法について教えてください。
既にセルに色をつけるマクロは作成済みですが、行全体に色を付ける方法を知りたいです。
上記のVBAコードを使用して、ダブルクリックしたセルを含む行に色をつけることができません。どのように修正すればよいでしょうか？

mamimommy
お礼率33% (1/3)

その他MS Office製品
回答数3
ありがとう数1

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2012/03/21 18:20 回答No.3

思いつきでちょこっと聞いてみました，なものだから情報提供も言葉足らずです。＞行の頭がB列だと変わりますか？行の範囲が不明確だと指摘をしているのに，これじゃどうなってるんだかさっぱり不明です。結局こういう事がしたいのですね。 private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, cancel as boolean) 　if application.intersect(target, range("B:K")) is nothing then exit sub 　cells(target.row, "B").resize(1, 10).interior.color = iif(target.interior.color = vbred, xlnone, vbred) 　cancel = true end sub 先の回答とやってることのリクツは全く一緒ですから，あとは実際に応じて適宜応用してください。

質問者

お礼 2012/03/22 07:47

ありがとうございました！的確に情報提供できなくてすみません・・・でも、やりたいことはできました！！本当にありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

keithin
ベストアンサー率66% (5278/7941)

2012/03/21 11:27 回答No.2

行の範囲が不明ですが。 private sub Worksheet_BeforeDoubleClick(byval Target as excel.range, Cancel as boolean) 　dim hh as range 　set hh = range("A3").currentregion 　if application.intersect(target, hh) is nothing then exit sub 　application.intersect(target.entirerow, hh).interior.color = iif(target.interior.color = vbred, xlnone, vbred) 　cancel = true end sub

質問者

補足 2012/03/21 11:40

ありがとうございます。ちなみに行の頭がB列だと変わりますか？

ログインすると、全ての回答が全文表示されます。

m3_maki
ベストアンサー率64% (298/463)

2012/03/21 11:07 回答No.1

With Rows(Target.Row).Interior でいかがでしょうか？

質問者

補足 2012/03/21 11:25

ありがとうございます！ただ、、、私の質問の仕方が違っていました・・・すみません。。。。「行全体」ではなく、「表の中の行」に色をつけたいです。現状では、Range(B3:AI)なのですが、この表は可変なので、ベタ書きもしたくないと思っています。せっかく回答いただいたのにすみません。質問が正確に伝わりしたでしょうか？

ログインすると、全ての回答が全文表示されます。