12. Comece por fazer download do livro CinemasAlfa.xls composto pelas folhas: 'Cinema', 'Filmes' e 'Sessões', e em seguida construa um formulário idêntico ao que se segue, para simular a emissão de bilhetes de cinema:

• No editor do Visual Basic, crie um novo formulário (menu <Inserir> seguido da opção <UserForm>), atribua-lhe o nome 'FormBilhete' (propriedade Name) e o título 'Bilhete' (propriedade Caption). De seguida, adicione os controlos que se indicam para estruturar o aspecto do formulário:
  • Três rótulos com o texto (propriedade Caption) 'Filme', 'Sessão' e 'Preço'..
  • Duas caixas de combinação de nome (propriedade Name) 'Filme' e 'Sessão'.
  • Uma caixa de texto de nome (propriedade Name) 'Preço', inactiva (propriedade Enabled igual a False).
  • Uma caixa de grupo com o texto 'Bilhete'
  • Três botões de opção de nome 'OpNormal', 'OpEstudante' e 'OpEconómico'.
  • Dois botões de comando de nome 'BotãoOk' e 'BotãoCancelar', com o texto 'Ok' e 'Cancelar'.
• Para executar o formulário 'FormBilhete' utilize o botão 'EmiteBilhete' da folha de cálculo 'Cinema'. Para isso copie para o módulo da folha de cálculo 'Cinema' o procedimento abaixo relativo ao evento Click do botão.
   
  Sub EmiteBilhete_Click()
  FormBilhete.Show
End Sub

No final dessa operação, ao premir o botão deverá ser apresentado o formulário.
   
• Por fim, defina os procedimentos necessários para obter a seguinte funcionalidade:
  • O activar do formulário deve:
    •  adicionar à caixa de combinação 'Filme', o conteúdo de todas as linhas consecutivas, não vazias a partir da célula B5 da folha 'Filmes';
    •  adicionar à caixa de combinação 'Sessão', o conteúdo de todas as linhas consecutivas não vazias a partir da célula B5 da folha 'Sessões';
    • seleccionar a opção de bilhete 'Normal' e colocar o preço igual a '5 €';
  • A selecção das opções de bilhete 'Normal', 'Estudante' e 'Económico' deve reflectir-se numa alteração do preço para '5 €', '4.5 €' e '3 €' respectivamente.
  • O pressionar do 'BotãoCancelar' deve fechar o formulário.
  • O pressionar do 'BotãoOk' deve preencher a lista de bilhetes emitidos na folha 'Cinema', conforme a imagem abaixo indica.
    
                  
     
    •  Comece por verificar se o filme e a sessão estão preenchidos no formulário. Caso não estejam, então uma MsgBox deverá alertar para o facto.
    • A partir da linha 5, procure a primeira linha livre para a inserção de um novo bilhete. Um vez encontrada a linha nessas condições, deve então inserir na primeira coluna a data actual e nas colunas subsequentes, o nome do filme, a hora da sessão, o tipo e o preço do bilhete.