[[20070211013757]]　『選択したセルと同じ列、行に色を』（とんぶり）　ページの最後に飛ぶ

『選択したセルと同じ列、行に色を』（とんぶり）

たとえばC3のセルを選択した時に、C列と3行目にある全てのセルに色が付いたりといった書式が変更されるようなマクロはどうやって組めばいいのでしょうか。
会社で使っているファイルにその機能があるのですが、退職した人が作ったものでパスが掛かってて新しく作成したくてもできないのです。
どうぞお力添えをお願い致します。

 こんな感じでよろしいでしょうか？
　
 シートモジュールへコピペ
'-------------------
Dim Rng As Variant
　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Rows(Range(Rng).Row).Interior.ColorIndex = xlNone
    Columns(Range(Rng).Column).Interior.ColorIndex = xlNone
    Rows(Target.Row).Interior.ColorIndex = 35
    Columns(Target.Column).Interior.ColorIndex = 35
    Rng = Target.Address(0, 0)
End Sub
　
 （キリキ）（〃⌒o⌒)b

できました！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 On Error Resume

この部分を改行してあげたら動きました♪
本当にありがとうございます。
記述してある意味とかも気になりますけど、まずは自分で調べてみます。
わからなかったら、また聞きにきますっ！

 色をつけなくても良いのならこんなのも

 Priavet Sub Worksheet_SelectionChange(ByVal Target As Range)
 With Target
      .EntireColumn.Select
      .EntireRow.Select False
 End With
 End Sub
 (seiya)

 seiyaさん、
 >.EntireRow.Select False
 ここで、実行時エラー '424'　オブジェクトが必要です。
 と出ます。
 これは、どうすればいいのでしょう？
　
 考えてみたけど、わからんかった＾＾；
　
 ※Priavet？ｗｗｗ
 （キリキ）(〃⌒o⌒)b

 あれ？
 Entire... はObjectとして認識されないのかなーー

 Union(.EntireColumn, .EntireRow).Select
 ではいかがですか？
 (seiya)

 出来ました！
 が、、、
 ステップインしていくと、、、
　
・最初の指定で「列」「行」を指定。
　アクティブセルが、上記列の1行目に。
・そのセルからの「列」「行」を指定する為、全セルが選択状態に。
　アクティブセルが「A1」に。
　
 結果、全セル師弟ｗ状態になります。
　
 って事は、、、
 こうでいいのかな？
　
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
With Target
    Union(.EntireColumn, .EntireRow).Select
    .Activate
End With
Application.EnableEvents = True
End Sub
　
 ※上記コードを使用しながら入力作業をすると、Enter で、カーソルが右へ行きます。
 　下方向に移動させたい場合は、
 　Union(.EntireRow, .EntireColumn).Select
 　に、変更する必要ありｂ
　
 （キリキ）(〃⌒o⌒)b

コメント返信：

[ 一覧(最新更新順) ]

[[20070211013757]] 『選択したセルと同じ列、行に色を』（とんぶり） ページの最後に飛ぶ

[[20070211013757]]　『選択したセルと同じ列、行に色を』（とんぶり）　ページの最後に飛ぶ