|
おはようございます。
いつもお世話になっています。
なぜか自分と同じ環境下であるパソコンでマクロが動きません。
(同じブックを5台のパソコンにコピーして使用している内、
1台のみマクロが動かない)
OS:ウインドウズXPホーム
ソフト:エクセル2003
あるブックのシートモジュール(?)に2つのイベントプロシージャが有るのですが、
下記の(2)のイベントは動きますが、(1)のイベントが動きません。
何かエクセルの設定、又はコマンドバーの呼び名が違うのでしょうか?
(1)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 And Target.Column = 5 Then
Application.CommandBars("cell").Reset
With Application.CommandBars("cell").Controls.Add
.Caption = "最終行にコピー(&B)"
.OnAction = "EndCopy"
.BeginGroup = True
End With
Else
Application.CommandBars("cell").Reset
End If
End Sub
(2)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R, C As Integer
R = ActiveCell.Row
C = ActiveCell.Column
Range("a1:iv65536").Interior.ColorIndex = 0
Range("a1:b1").Interior.ColorIndex = 35
Range("a3:n3").Interior.ColorIndex = 37
Rows(R).Interior.ColorIndex = 34
Columns(C).Interior.ColorIndex = 36
End Sub
ちなみに、そのブックの標準モジュールに
Sub EndCopy()
Dim C, R As Long
C = ActiveCell.Column
R = ActiveCell.Row
Application.EnableEvents = False
Range(Cells(R, C), Cells(R, 256).End(xlToLeft)).Copy
Cells(65536, C).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub
どうかよろしくお願いします。
|
|