Új hozzászólás Aktív témák

• #48941 Magnat veterán bteebi #48927

  Új Válasz 2022-05-02 00:12:31 #48941

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Magnat

  veterán

  válasz bteebi #48927 üzenetére

  Szia,

  Set eredmenyek = ActiveSheet.Range("B2:B10,D2:D10,F2:F10")
Vizsgal = false
For Each cella In eredmenyek
If Vizsgal Then
If Abs(Cella - PreCell) < 1 Then
Application.Speech.Speak "Please check", SpeakAsync:=True
Else: Application.Speech.Speak "OK", SpeakAsync:=True
End If
Else
Vizsgal = true
End If
PreCell = Cella
Next

Új hozzászólás Aktív témák