アクティブセル行を明示するマクロで(2)

質問

お礼の欄に欲を書いて置きながら
（期待しつつ(^^ゞ）
サンクスポイントの仕方を模索していて
締切ってしまいました。(/_;)

［本題］ウィンド枠固定を使えば何ら不都合はないんですけどねぇ
元質問↓
http://security.okweb.jp/kotaeru.php3?qid=871028

回答No.1

papayuka · ベストアンサー

あっちこち見ないと回答出来ない質問は分割質問に近いような、、、
http://security.okweb.jp/netiquet.html#questioner_manner

マクロのON・OFFという元質問だと

Sub Test()
　Application.EnableEvents = Not Application.EnableEvents
End Sub

のような感じのマクロを書いてツールバーのボタンに割り付けるか、ショートカットキーを登録すれば良いのでしょうが、思わぬ弊害が生じるかも知れませんのでお勧めはしません。

先の回答でコピー＆ペーストが出来れば良いなら、こんな感じに書き換える方法もありかな？
Excel2000で確認しました。
'----------------------------------------------------------------
Dim r As Range

Private Sub Worksheet_Change(ByVal Target As Range)
　row_Color Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　row_Color Target
End Sub

Sub row_Color(ByVal myRange As Range)
　If r Is Nothing Then Set r = myRange
　If Application.CutCopyMode Then Exit Sub
　If myRange.EntireRow.Address <> r.EntireRow.Address Then
　　 r.EntireRow.Interior.ColorIndex = xlNone
　　 myRange.EntireRow.Interior.ColorIndex = 6
　　 Set r = myRange
　End If
End Sub
'----------------------------------------------------------------

参考URL：

http://security.okweb.jp/netiquet.html#questioner_manner

お礼

>あっちこち見ないと回答出来ない質問は分割質問
申し訳ありません不慣れな者で、回答者様への感謝の印に
サンクスポイントを直ぐに送りたくて思わずクリックしてしまい。締め切らないと送れない事を後で知りましたm(__)m
本題のアクティブセル行の明示＆コピー＆ペースト、ご教示頂いた通りに記述し動作確認しました。素晴らしい回答者様！！そしてExcel(VBA？)も奥が深い事痛感しています
精進してどうして実現しているのか理解出来るよう頑張りますm(__)m