Ir para conteúdo
Fórum Script Brasil

Benhur Palini

Membros
  • Total de itens

    27
  • Registro em

  • Última visita

Tudo que Benhur Palini postou

  1. Oi, Admilton! Qual é teu objetivo? Caso Textbox2 * Textbox3 for maior que Textbox2 * Textbox4 atribuir o resultado de Textbox2 * Textbox3 ao Texbox1? Segue um exemplo simples que pode ajudar: Private Sub CommandButton1_Click() 'atribui o resultado da multiplicação às variáveis V1 e V2 para facilitar V1 = TextBox2.Value * TextBox3.Value V2 = TextBox2.Value * TextBox4.Value If V1 > V2 Then TextBox1.Value = V1 ElseIf V1 < V2 Then TextBox1.Value = V2 End If End Sub Observe que se V1 for igual a V2 nenhum dos casos será verdadeiro. Tu pode usar "Else" no lugar de "ElseIf V1 < V2 Then " para retornar verdadeiro se V1 for igual a V2. Sugiro usar a propriedade .value para garantir que nenhum valor seja tratado como texto. Sugiro usar a formatação apenas no final. Espero que eu tenha entendido o problema e ajudado.
  2. Oi, ViniciusZ! Abra o projeto e dê um click duplo na planilha onde está a tabela. O evento Worksheet_Selectionchange(ByVal Target As Range) já deverá aparecer como padrão. Este evento ocorre cada vez que alguma célula é ativada. Este exemplo atribui o valor 1 à célula ativada: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Worksheet_Selectionchange(ByVal Target As Range) ActiveCell.Value = 1 End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' mas poderia ser assim: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Worksheet_Selectionchange(ByVal Target As Range) Separar() End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
×
×
  • Criar Novo...