Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2007)
Delete Key を押したときそのセルの値を得たい
投稿日時: 18/05/27 12:41:49
投稿者: o_taroh

Delete や Back space の Key を押したとき、そのセルの値を得たいのですが、方法をお願いします。

回答
投稿日時: 18/05/27 13:03:31
投稿者: simple

changeイベントプロシージャのなかでUndoをすればできるのですが、
されたいことの趣旨は?
それらのキーはいずれも消去することを目的としていますよねえ。

回答
投稿日時: 18/05/27 14:07:09
投稿者: simple

例えば。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v As Variant

    If Target.Count > 1 Then Exit Sub

    If IsEmpty(Target.Value) Then
        Application.EnableEvents = False

        Application.Undo
        v = Target.Value
        Target.ClearContents

        Application.EnableEvents = True

        MsgBox v    ' 例文
    End If
End Sub

投稿日時: 18/05/27 14:25:44
投稿者: o_taroh

その値(氏名)を持って次のSheetの表で検索をするのですが解決できました。
simpleさんありがとうございました。