как запустить видео файл, когда ячейка Excel достигает определенного значения

Question

У меня есть файл Excel, в который я ввожу свою статистику. в целях мотивации я хочу, чтобы оно воспроизводилось как видео достижений, когда определенная ячейка достигает определенного значения. например, если я придерживаюсь диеты в течение 30 дней, чтобы добиться успеха! 30-дневная диета! Вы теперь ученик диеты! на самом деле не знаю, как сделать этот код мудрым. пробовал:

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("dietdays")) Is Nothing Then

Call diet1


End If

End Sub


Sub diet1()

If e2 = 30 Then

Call Shell("e:\1\1.au3")

End If

End Sub

Answer 1

Когда вы говорите, что e2 = 30, вы имеете в виду ячейку в активном листе? Если это так, вы должны переписать свой код примерно так:

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("dietdays")) Is Nothing Then
        Call diet1
    End If
End Sub

Sub diet1()
Dim Shex As Object:Set Shex = CreateObject("Shell.Application")
    'ThisWorkbook.Sheets("Sheet1").Range("E2").value = 30 then
    'consider qualifying the Sheet as above instead of using ActiveSheet
    If ThisWorkbook.ActiveSheet.Range("E2").Value = 30 Then
        FName = "E:\1\1.au3"
        Shex.Open (FName)
    End If
End Sub