|
▼漂流民 さん:
こんばんわ。
ありがとうございます!! 下記のコードで、思い通りの操作が出来ました。
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
> Dim i As Long
> With Application
> For i = 1 To .CommandBars.Count
> With .CommandBars(i)
> If .Name = "Cell" Then
> .Reset
> If Target.Count = 1 And Target.Column = 5 Then
> With .Controls.Add
> .Caption = "最終行にコピー(&B)"
> .OnAction = "EndCopy"
> .BeginGroup = True
> End With
> End If
> End If
> End With
> Next i
> End With
>End Sub
ピボットテーブルなどで集計するためのデータなので、改ページプレビューにした場合でも、
問題ないので、使用させて頂きます。
漂流民 さんのおっしゃる通り、改ページプレビュー時に、自分が作った最初のコードで機能していました。
エクセル(Office)の再インストールを試みて見ましたが、駄目でした。
また、時間の有るときに再セットアップしてみようと思います。
Indexについての、分かりやすいご教授ありがとうございます。
今回のご教授のおかげで、Indexとはどういうものか分かりました。
今後ステップアップ出来るよう、いろいろやってみようと思います。
本当にありがとうございました。
今後もどうぞ、宜しくお願いします。
|
|