nnsea 发表于 2023-10-28 08:12:33

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


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
页: [1]
查看完整版本: 双击单元格获取单元格内容并弹窗VBA