F7キーをEXCELで

建築みつも郎上の値をコピー(F7キ)ーを使うと､他のソフトで指が動いてしまうことがあります。

ThisWorkBook

Private Sub Workbook_Open()
' ワークブックが開かれるときに実行されるコード
Application.OnKey "{F7}", "上のセル値取得"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' ワークブックが閉じられる時にF7キーの割り当てを解除する
Application.OnKey "{F7}"
End Sub

標準モジュール

Sub 上のセル値取得()
Dim currentCell As Range

' 現在のアクティブセルを取得
Set currentCell = ActiveCell

' アクティブセルの真上のセルの値をコピー
If currentCell.Row > 1 Then
currentCell.Value = currentCell.Offset(-1, 0).Value
Else
End If
End Sub