如何实现当公式单元格每变动就记录到另一列并同时给出时间同时能声音报警

fg117117

能否帮忙设计下：将MAX (B:B)公式的单元格C1每次变化之时，1.在D2开始向下记录该次变化的YYYY/M/D/H:MM:SS年月时间  2.在E2开始向下记录该次变化的数值   3，同时开始声音报警6-10秒。

suxiong22

帮你顶一下，第一个问题比较好奇。

fg117117

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub St()
    sndPlaySound ThisWorkbook.Path & "\报警.wav", 0

End Sub


这是报警的。但是用什么代码来触发

chis3

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim value As Long
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If [c1].value <> value Then
        Cells(Rows.Count, "d").End(xlUp).Offset(1, 0) = Format(Now, "yyyy/mm/dd/ hh:mm:ss")
        Cells(Rows.Count, "e").End(xlUp).Offset(1, 0) = [c1].value - value
        sndPlaySound ThisWorkbook.Path & "\?&#196;&#181;.wav", 0
    End If
    value = [c1].value
End Sub

suxiong22

chis3 发表于 2018-10-14 15:49
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As S ...

Cells(Rows.Count, "e").End(xlUp).Offset(1, 0) = [c1].value - value

这一句还是改后的值呢。如果要想知道改前的值怎么搞呢。