VBA Digitar sequências de palavras na coluna A

Prévia do material em texto

Sub Triangulo() 
 Dim l1 As Single, l2 As Single, l3 As Single 
 l1 = InputBox("Digite o lado 1") 
 l2 = InputBox("Digite o lado 2") 
 l3 = InputBox("Digite o lado 3") 
 If l1 < l2 + l3 And l2 < l1 + l3 And l3 < l1 + l2 Then 
 MsgBox ("Triângulo válido") 
 If l1 = l2 And l2 = l3 Then 
 MsgBox ("Equilátero") 
 ElseIf l1 <> l2 And l2 <> l3 And l1 <> l3 Then 
 MsgBox ("Escaleno") 
 Else 
 MsgBox ("Isósceles") 
 End If 
 Else 
 MsgBox ("Triângulo inválido") 
 End If 
End Sub 
 
 
Function Palavra_digitada(ByVal palavra As String, ByVal linha_atual As Long) 
 Palavra_digitada = False 
 linha = 1 
 Do While linha < linha_atual 
 If Cells(linha, 1) = palavra Then 
 Palavra_digitada = True 
 Exit Do 
 End If 
 linha = linha + 1 
 Loop 
End Function 
 
 
Sub Palavras() 
 Dim palavra As String 
 Dim linha_atual As Long 
 Dim ja_digitou As Boolean 
 linha_atual = 1 
 Do 
 palavra = InputBox("Digite uma palavra") 
 ja_digitou = Palavra_digitada(palavra, linha_atual) 
 If ja_digitou = False Then 
 Cells(linha_atual, 1) = palavra 
 linha_atual = linha_atual + 1 
 Else 
 MsgBox ("Essa palavra já foi digitada") 
 End If 
 Loop While ja_digitou = False 
End Sub