VBA Notification pop up

[harryax7]

hello, how i add sound notification in my code please help me

Private Sub Workbook_Open()
Dim r As Range

For Each r In Range("F4:F10")
    If r.Value = Date Then
    
MsgBox ("Hallo Admin "), vbInformation

End If
Next r

End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

Is this what you mean?

Private Sub Workbook_Open()
  Dim r As Range
  
  For Each r In Range("F4:F10")
    If r.Value = Date Then
      Beep
      MsgBox ("Hallo Admin "), vbInformation
    End If
  Next r
End Sub

 

[harryax7]

Welcome to the MrExcel board!

Is this what you mean?

Private Sub Workbook_Open()
  Dim r As Range
 
  For Each r In Range("F4:F10")
    If r.Value = Date Then
      Beep
      MsgBox ("Hallo Admin "), vbInformation
    End If
  Next r
End Sub

Thankyou, just that sound ora any sound i can use it? ora we can custom like voice custom maybe?

 

[Peter_SSs]

See if this helps: Playing A Sound In VBA

 

[StephenCrump]

voice custom maybe?

For Each r In Range("f4:f10")
    If r.Value = Date Then
        Application.Speech.Speak ("Hello! cell " & r.Address(0, 0) & " contains today's date")
    End If
Next r

 

[harryax7]

now my excel has notification like that, any suggestion please?

 

[harryax7]

View attachment 68632
now my excel has notification like that, any suggestion please?

DONE, only allow macro in trust issue

 

[harryax7]

For Each r In Range("f4:f10")
    If r.Value = Date Then
        Application.Speech.Speak ("Hello! cell " & r.Address(0, 0) & " contains today's date")
    End If
Next r

Cool Dude, how to speak other language, i mean other voice language?

 

[StephenCrump]

Do you mean different voices, e.g. male, female?

You can test what's available in your version of Windows, using:

Sub Test()

    Dim vc As SpVoice
    Dim i As Long
    
    Set vc = New SpVoice
        
    For i = 0 To vc.GetVoices.Count - 1
        Set vc.voice = vc.GetVoices.Item(i)
        vc.Speak "Hello!"
    Next

End Sub

First, you'll need to set a VBA reference to the Microsoft Speech Object Library (you may have two of these) that contains sapi.dll.

 

[harryax7]

Do you mean different voices, e.g. male, female?

You can test what's available in your version of Windows, using:

Sub Test()

    Dim vc As SpVoice
    Dim i As Long
   
    Set vc = New SpVoice
       
    For i = 0 To vc.GetVoices.Count - 1
        Set vc.voice = vc.GetVoices.Item(i)
        vc.Speak "Hello!"
    Next

End Sub

First, you'll need to set a VBA reference to the Microsoft Speech Object Library (you may have two of these) that contains sapi.dll.

View attachment 68636

i mean speak our language, not default english