Macro Beep

foxcyberfox · 22 de junho de 2012

Eu estou tentando fazer uma planilha que quando a celula B1 entrar dados ele da a hora na celula C1 e faça beep a cada celula preenchida, ate a parte da data ta feito mais como adicionar o beep?

Ex:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Colunas As Range

Set Colunas = Range("B1:B20000")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

linha = Target.Row

Range("C" & linha).Value = Time

End If

End Sub

Alguem pode dar uma ideia.

Obrigado.

deejaywesley · 23 de junho de 2012

Boa Noite foxcyberfox

coloque a linha em vermelho no seu codigo!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range

Set Colunas = Range("B1:B20000")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

linha = Target.Row

Range("C" & linha).Value = Time

Call Tocar

End If

End Sub

Crie um Modulo e coloque este codigo

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'Aqui é pra emitir o som!

Sub Tocar()

'Onde 200 é a frequencia

'E 500 é o tempo em milisegundos

Beep 200, 500

End Sub

Obs. o beep é emitido pelo Twitter interno da CPU

"Aquele que apita quando o micro é ligado"

so o seu micro nao faz aquele som porque nao tem o Twitter ou porque ele esta estragado

nao sairá som!

Agora... se você quiser que saia nas caixas, ai o codigo é outro, e tambem tenho ele se quiser!

Espero ter ajudado!

Patropi · 23 de junho de 2012

Bom dia fox

Tentando contribuir, no site abaixo, a terceira matéria é sobrre o assunto:

http://www.josevalter.com.br/excel.htm

Um abraço.

foxcyberfox · 23 de junho de 2012

Ficou show de bola amigo era isso mesmo!!Obrigado

Agora esse beep e meio chato ne.Posta e esse outro codigo pra ficar melhor ainda.

Valeu.

deejaywesley · 23 de junho de 2012

Opa beleza...

bom dia, então vamos lá....

no seu codigo vai ficar assim...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range

Set Colunas = Range("B1:B20000")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then

linha = Target.Row

Range("C" & linha).Value = Time

Call PlayWAV

End If

End Sub

e no modulo você coloca esse...

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _

ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0

Const SND_ASYNC = &H1

Const SND_FILENAME = &H20000

Sub PlayWAV()

WAVFile = "alarm.wav"

WAVFile = ThisWorkbook.Path & "\" & WAVFile

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub