Ir ao conteúdo
  • Cadastre-se

riberex00

Membro Júnior
  • Total de itens

    15
  • Registro em

  • Última visita

  • Qualificações

    0%
  1. Mais um ponto para você... Kkk... Obrigado!
  2. Por quê o programa arredonda o valor da multa? Por exemplo: Num valor a pagar de 10,00, com 5 dias de atraso e multa de 0.75 seria: 5 * 0.75 = 3.75 = 10,00 = 13,75. Mas o valor retornado = 14,00. Como corrigir isso, por gentileza? Sub CalcMultaAt ( ) Dim curValorDev As Currency Dim curTotalPg As Currency Dim intDiasAt As Integer Dim intMulta As Integer Dim Ws As Worksheet: Set Ws = Plan1 curValorDev = InputBox("Digite o valor devido: ") MsgBox "Valor devido é igual a : " & curValorDev Ws.[B1].Value = curValorDev intDiasAt = InputBox("Digite a quantidade de dias em a
  3. Boa noite pessoal. Mais uma ajuda por favor. Nesse meu procedimento quando eu testo o resultado , por exemplo, strLuzAcesa = Verde (Case "Verde"), não aparece o vbCritical e nem o título. Porém quando eu mudo a Var strLuzAcesa para Marron, que é "Case Else" aí sim aparece o título e o vbCritical. Onde está o erro? Obrigado! Sub desvioMultiplo ( ) Dim strLuzAcesa As String strLuzAcesa = "Verde" Select Case strLuzAcesa Case "Azul" MsgBox "A luz roxa ou azul está acesa!" Case "Vermelha" MsgBox "A luz vermelha ou amarela está acesa!" Case "Verde" MsgBox "A luz verde está acesa
  4. @Edson Luiz Branco Obrigado Edson, vou me atentar a esse detalhe.
  5. Boa noite pessoal. Estou criando um procedimento para calcular multa em atraso de pagamento (é só treinamento), mas estou com um problema nas caixas inputbox, msgbox e na janela 'verificação imediata', pois, sem elas, quando eu clico na tecla F8 os cálculos são exibidos na janela de 'variáveis locais", sem problemas. Porém eles não aparecem na janela 'verificação imediata'. Outra situação é que quando eu tento visualizar os resultados na planilha eles aparecem em branco, sem número algum após os dois pontos. Onde estaria erro, por gentileza? Obrigado. Sub CalcMultaAt() Dim curValor
  6. @Midori Excelente. Deu certo. Obrigado pela ajuda.
  7. Olá pessoal, como utilizar a caixa de texto MsgBox para leitura de dados inseridos na caixa InputBox? Por exemplo num módulo VBA que mostra se o aluno foi aprovado, em recuperação ou reprovado. Quando eu atribuo valores para n1 e n2 o programa funciona bem, porém eu gostaria que o usuário atribuísse os valores. Então, eu preciso de criar uma instrução InputBox, conforme abaixo e uma instrução MsgBox para ler a nota digitada pelo usuário. Já tentei várias soluções, mas, sem sucesso. Obrigado. Sub nota_aluno() Dim n1, n2, med As Double InputBox ("Digite a 1ª Nota")
  8. Olá pessoal. Sou aprendiz em Excel e gostaria de fazer uma função cont.se e somase, talvez aninhadas, sobre o salário de funcionários para retornar valores em três níveis: <500; >=500 e <=1000 ; >1000. Os extremos eu consegui. Estou apanhando um pouco é para montar a fórmulas para os níveis >=500 e <=1000. Alguém poderia me ajudar, por favor? Segue anexo a planilha em que estou trabalhando. Obrigado. PlnFor.xlsx
  9. Bom dia. Tenho windows defender instalado no meu PC. De uns dois dias pra cá, tenho recebido de forma insistente, uma oferta (ANEXO) do antivírus McAfee e já tentei de todas as formas eliminar isso, mas, sem sucesso. Alguém sabe como eliminar isso em definitivo, por gentileza? Obrigado.
  10. @Simon Viegas Obrigado meu amigo. As duas serviram.
  11. Boa tarde, Pessoal eu construí, no VISUALG, O algoritmo abaixo. E sobre o STATUS de uma partida de futebol. Quando eu coloco resultado BANGU 0 x 0 MADUREIRA retorna corretamente o status “EMPATE” ou, quando coloco BANGU 2 x 1 MADUREIRA retorna “PARTIDA NORMAL”. O problema é quando eu inverto e coloco uma quantidade de gols maiores para o MADUREIRA. Por exemplo BANGU 1 x 3 MADUREIRA era para retornar o status “PARTIDA NORMAL”, mas ao invés disso ele encerra o programa. Na linha 11 eu precisei colocar o Abs (dif), pois, senão retornava sinal negativo quando a qte de gols do segundo time era
  12. Olá pessoal, estou criando esse procedimento e quando mando executar retorna uma erro de sintaxe na 8ª linha (em vermelho). Já fiz várias mudanças, porém, nada. Alguém com mais experiência poderia me dar uma força, por favor? Valeu! Sub exibirContatos ( ) MsgBox listaContatos (True), vbInformation, "Lista de Contatos" End Sub Function listaContatos(Optional argCompleto As Boolean = False) As String Dim i As Integer For i = 1 To intUltimoContato listaContatos = listaContatos & vbLf _ i & " " & arrContato(i).nomeCompleto If argCompleto
  13. Valeu meu amigo. Um pequeno detalhe. Eu estava tentando colocar um & após o vbCrLf . Agora deu certo. O código agora ficou assim: " [ 6 ] Sair" & vbCrLf _ , "Agenda de Contatos"). Estudar mais né? Kkk...
  14. Estou iniciando em programação e resolvi começar por um curso básico em VBA. Estou com um "pequeno problema. Por quê quando mando executar (F8) o procedimento a seguir dá uma mensagem de erro de sintaxe? Obrigado. Type typContato nomeCompleto As String * 20 dataNascimento As Date fone As String * 12 email As String * 20 End Type Public arrContato(1 To 10) As typContato Public intUltimoContato As Integer Sub menuAgenda() Dim varOpcao As Variant varOpcao = inputBox ("Informe a opção desejada:" & vbCrLf & _

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

livros-black-friday.jpg

SEMANA BLACK FRIDAY
Clube do Hardware

Todos os livros por apenas R$ 9,99 cada!

Eletrônica | Montagem de Micros | Redes