7. Defina um procedimento de nome 'AdivinhaA1' que pede repetidamente ao utilizador para adivinhar o valor presente na célula A1 até que este introduza o valor correcto. O procedimento deverá mostrar mensagens do tipo 'O valor da célula A1 é menor!' ou 'O valor da célula A1 é maior!' quando o valor introduzido pelo utilizador for respectivamente maior ou menor que o valor em A1. Assim que o utilizador acerte no valor correcto deverá ser apresentada uma caixa de mensagem indicando o número de tentativas utilizadas, como por exemplo, 'Acertou em 3 tentativas!' (Nota: para ocultar o valor da célula A1 formate a cor do tipo de letra como branco).

8. Construa um formulário que calcule sobre o conjunto de células seleccionadas as funções Soma, Média, Máximo e Mínimo e que guarde o resultado obtido numa outra célula. O acesso ao formulário deve ser conseguido através do uso de um botão de comando. As alíneas que se seguem orientam o desenvolvimento do formulário pretendido. À medida que realiza as várias alíneas experimente o seu resultado no formulário.

• 8.1. No editor do Visual Basic crie um novo formulário de nome 'FormFunBas' (menu <Inserir> seguido da opção <UserForm>) e adicione os controlos que se indicam para estruturar o aspecto do formulário segundo a figura abaixo:
  • Três rótulos com os textos (propriedade Caption) 'Função:', 'Resultado:' e 'Guardar em:'
  • Uma caixa de combinação de nome (propriedade Name) 'ComboBox1'
  • Uma caixa de texto de nome 'TextBox1' associada ao rótulo 'Resultado:'
  • Uma caixa de texto de nome 'TextBox2' associada ao rótulo 'Guardar em:'
  • Um botão de comando de nome 'CommandButton1' e com o texto 'OK'

  

• 8.2. Para executar o formulário a partir de um botão de comando faça o seguinte:
  • Mude para a janela do Excel e utilizando a caixa de ferramentas dos controlos da barra do Visual Basic insira um botão de comando na primeira folha de cálculo
  • Em seguida, mude para o editor do Visual Basic e na caixa Project seleccione a folha de cálculo onde introduziu o botão
  • Na caixa Properties seleccione o botão de comando e defina as propriedades Name e Caption respectivamente como 'CommandButtonFunBas' e 'Funções Básicas'
  • Por fim active o módulo da folha de cálculo e introduza o seguinte código:

    Private Sub CommandButtonFunBas_Click()
  FormFunBas.Show
End Sub

  • No final desta operação, ao premir o botão da folha de cálculo deverá ser apresentado o formulário
• 8.3. Para iniciar a caixa de combinação e limpar as caixas de texto do formulário, defina o evento Initialize como se segue:

  Option Explicit
Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Soma"
  ComboBox1.AddItem "Média"
  ComboBox1.AddItem "Máximo"
  ComboBox1.AddItem "Mínimo"
  TextBox1 = ""
  TextBox2 = ""
End Sub

• 8.4. Defina o evento Click do botão de comando como se segue:

  Private Sub CommandButton1_Click()
  Range(TextBox2) = TextBox1
  Unload Me
End Sub

• 8.5. Defina o evento Change da caixa de combinação (que ocorre sempre que o conteúdo da caixa de combinação muda) como se segue:

  Private Sub ComboBox1_Change()
  Select Case ComboBox1.ListIndex
    Case 0
      TextBox1 = CelSoma(Selection)
    Case 1
      TextBox1 = CelMed(Selection)
    Case 2
      TextBox1 = CelMax(Selection)
    Case 3
      TextBox1 = CelMin(Selection)
  End Select
End Sub

• 8.6. Para concluir a funcionalidade do formulário é necesário definir os vários procedimentos referidos na alínea anterior. Segue-se o exemplo para o procedimento CelMax:

  Function CelMax(rng As Range) As Integer
  Dim celula As Range
  CelMax = rng.Range("A1")
  For Each celula In rng
    If celula > CelMax Then CelMax = celula
  Next
End Function