Dan de Wauconda fez a pergunta sobre o Excel desta semana.
Eu tenho uma planilha do Excel que calcula um valor. Se o valor da célula for> 100, preciso que um arquivo midi seja reproduzido.
Esta dica usa os manipuladores de eventos discutidos aqui em 23 de dezembro. Se você não estiver familiarizado com manipuladores de eventos, leia essa dica primeiro.
A primeira etapa é colar uma cópia do arquivo MIDI em um local afastado da planilha.
- Abra o reprodutor de mídia WIN95. Programas> Acessórios> Multimídia
- Abra o arquivo midi escolhido no media player.
- No reprodutor de mídia, selecione Editar e Copiar objeto.
- No Excel, encontre um local fora do caminho. Neste exemplo, estou escolhendo Sheet1 Cell Z99. Clique aqui e clique em Editar> Colar
- Observe a caixa de nome no Excel. Na caixa de nome, ele dará um nome ao arquivo midi. O meu é chamado de Objeto 1.
A macro VBA para reproduzir esse arquivo midi é:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubDependendo se você tem o Excel 97 ou Excel 95 / 7.0, você usaria o manipulador de eventos apropriado para invocar o código acima. Aqui está um exemplo para o Excel 97. Suponha que se um novo valor for inserido na célula A1, você deseja verificar se a célula calculada em A2 é> 100. O manipulador de eventos é o seguinte:
Abra o Editor do Visual Basic. Na janela esquerda, clique com o botão direito em Plan1 e selecione Exibir código. Na parte superior da caixa de diálogo Book1 - Sheet1 Code, há dois menus suspensos. No menu suspenso à esquerda, selecione Planilha. No menu suspenso à direita, selecione Alterar. Insira as seguintes linhas de código:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A2")> 100 Then ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End If End If End Sub
