双击单元格获取单元格内容并弹窗VBA

nnsea

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim myValue As Variant
    myValue = Target.Value
    MsgBox "The value in the cell is: " & myValue
    Cancel = True
End Sub