- 24 Fev 2020 às 17:06
#52516
Pessoal, estou precisando melhorar a rotina que executa um audio conforme cada célula é
preenchida com um valor determinado. segue abaixo um trecho da rotina que está funcionando só que gostaria de melhorar a rotina pois as condições serão muitas. Eu preciso que em 75 celulas seja testada uma por uma para cada 75 audios diferentes.
Private Sub Worksheet_Change(ByVal Target As Range)
If Planilha1.Range("A1") = 1 Then
PlayTheSound "B_01.wav"
End If
If Planilha1.Range("A1") = 2 Then
PlayTheSound "B_02.wav"
End If
If Planilha1.Range("A1") = 3 Then
PlayTheSound "B_03.wav"
End If
If Planilha1.Range("A1") = 4 Then
PlayTheSound "B_04.wav"
End If
If Planilha1.Range("A1") = 5 Then
PlayTheSound "B_05.wav"
End If
If Planilha1.Range("A1") = 6 Then
PlayTheSound "B_06.wav"
End If
If Planilha1.Range("A1") = 7 Then
PlayTheSound "B_07.wav"
End If
If Planilha1.Range("A1") = 8 Then
PlayTheSound "B_08.wav"
End If
If Planilha1.Range("A1") = 9 Then
PlayTheSound "B_09.wav"
End If
If Planilha1.Range("A1") = 10 Then
PlayTheSound "B_10.wav"
End If
If Planilha1.Range("A1") = 11 Then
PlayTheSound "B_11.wav"
End If
If Planilha1.Range("A1") = 12 Then
PlayTheSound "B_12.wav"
End If
If Planilha1.Range("A1") = 13 Then
PlayTheSound "B_13.wav"
End If
If Planilha1.Range("A1") = 14 Then
PlayTheSound "B_14.wav"
End If
End Sub
preenchida com um valor determinado. segue abaixo um trecho da rotina que está funcionando só que gostaria de melhorar a rotina pois as condições serão muitas. Eu preciso que em 75 celulas seja testada uma por uma para cada 75 audios diferentes.
Private Sub Worksheet_Change(ByVal Target As Range)
If Planilha1.Range("A1") = 1 Then
PlayTheSound "B_01.wav"
End If
If Planilha1.Range("A1") = 2 Then
PlayTheSound "B_02.wav"
End If
If Planilha1.Range("A1") = 3 Then
PlayTheSound "B_03.wav"
End If
If Planilha1.Range("A1") = 4 Then
PlayTheSound "B_04.wav"
End If
If Planilha1.Range("A1") = 5 Then
PlayTheSound "B_05.wav"
End If
If Planilha1.Range("A1") = 6 Then
PlayTheSound "B_06.wav"
End If
If Planilha1.Range("A1") = 7 Then
PlayTheSound "B_07.wav"
End If
If Planilha1.Range("A1") = 8 Then
PlayTheSound "B_08.wav"
End If
If Planilha1.Range("A1") = 9 Then
PlayTheSound "B_09.wav"
End If
If Planilha1.Range("A1") = 10 Then
PlayTheSound "B_10.wav"
End If
If Planilha1.Range("A1") = 11 Then
PlayTheSound "B_11.wav"
End If
If Planilha1.Range("A1") = 12 Then
PlayTheSound "B_12.wav"
End If
If Planilha1.Range("A1") = 13 Then
PlayTheSound "B_13.wav"
End If
If Planilha1.Range("A1") = 14 Then
PlayTheSound "B_14.wav"
End If
End Sub