VBA シート 1行しか選択できないようにする

質問

お世話になっております。
Excel2003を使用しております。

現在、スケジュールボードみたいなものをExcelで作っております。
作るに当たり、単に、セルを選択したら色が変わる…というようにしているのですが、
複数行選択できてしまうので困っています。

選択し始めたら、1行しか選択できないようにする方法は何かありますか？

色を変更するのは、
Application.Intersect(Range(Target.Address), Range("D5:AA64"), Rows(Target.Row)).Interior
上記方法で1行しか変更できないようにしていますが、
下から上に複数行選択した場合も、
上から下に複数行選択した場合も
一番上の行の色が変わります（当たり前ですが）

これでは困るので、
セルを選択する段階で、1行のみしか選択できないようにしたいです。

何か方法はないでしょうか？
回答お待ちしております。

回答No.1

keithin · ベストアンサー

方法１）
＞1行のみしか選択できないようにしたい

シートモジュールに
private sub Worksheet_SelectionChange(byval Target as excel.range)
if target.rows.count > 1 then target.resize(1, target.columns.count).select
end sub
とでもしてみる

方法２）
ご質問に掲示されてる部分を
Application.Intersect(Range(Target.Address), Range("D5:AA64"), Rows(activecell.Row)).Interior
とでもしてみる

＃もっともご相談で採用されてるようにセル（行）を塗り替えてしまう方法では、
●ボードに目的があって色塗りをしていても塗り潰してしまう
●シートを開いたときに反応がおかしい場合がある
　みたいな問題が起きる場合があります。
http://www.relief.jp/itnote/archives/001406.php
などを参考にしてみて下さい。

お礼

回答ありがとうございます！
行数をカウントして1以上だったらリサイズ！
そんな方法があったのですね…

ありがとうございました！
上手くいきました＾＾