Olá Marcio Ribeiro Da formas de tratamento de erros demostradas - só sabia utilizar a On Error Goto, agora posso tentar as variações de tratamento de erros, conforme apresentado por sua pessoa ... Grato, Marcelo Adriano
Bom dia Marcelo, tudo bem? Que bom que estamos trazendo novidades e contribuindo para seu aperfeiçoamento. Você já curtiu nossa página no facebook: facebook.com/mastermrtreinamentos Lá eu estou publicando nossos treinamentos e novidades, curta lá e nos acompanhe, pois ainda teremos muita coisa bacana pela frente. Abraços.
Boa Tarde Marcio, acessei o youtube do Alessandro Trovato, e ele me disse que você vai fazer uma aula sobre vba, excel, web. Já me inscrevi no sei youtube.
Boa noite Fabio, tudo bem? Você tem toda razão. Está realmente prestando atenção nos vídeos, hein. rsrsrs. Eu percebi o erro depois que já havia gerado o vídeo e se gravasse outro, iria atrasar. Coloquei uma observação na descrição do vídeo, mas segue abaixo a correção detalhada: Com o On Error Resume Next ua-cam.com/video/QJgOtIZMq2w/v-deo.htmlm35s De: If Err.Number 0 Then Para: If Err.Number 0 Or byNota > 10 Then *** Estou somente acrescentando a verificação da nota maior que 10 *** Com o On Error GoTo retorne ua-cam.com/video/QJgOtIZMq2w/v-deo.htmlm47s Inserir uma linha abaixo de: byNota = InputBox(strPrompt, strTitle) Com o seguinte código: If byNota > 10 then byNota = -1 *** Incluir nova linha verificando se byNota é maior que 10, se for, forçar um erro para retornar. Desculpe a falha. Abraços e obrigado pelo comentário.
Hahahaha além de prestar atenção já tenho alguma experiência no assunto, fica mais fácil visualizar o que vai acontecer. Agora, tudo que eu presto atenção nos vídeos eu não presto na descrição, nunca leio kkkkkkk Valeu! Abs
kkkkk.. Acho que a maioria não lê. kkkk. Bacana que já tem experiência, assim vc pode me ajudar.. rsrsrs.. Fique à vontade para comentar e dar sugestões. Obrigado. Grande Abraço.
Boa noite Marcelo, tudo bem? Obrigado, meu amigo. Fico feliz que gostou!!! Os comentários de vocês me inspira a continuar colocando sempre mais conteúdo. Continue acompanhando e se possível, peço para compartilhar para levarmos conhecimento a mais pessoas. Ainda teremos muito conteúdo pela frente. Abraços e novamente agradeço.
Márcio, acho que o botão cancelar não está funcionando. veja se eu estou correto por gentileza: Public Const srtTitulo As String = "Curso de VBA Básico - Master MR" Sub resultado() Dim byNota As Byte, strPrompt As String, lngIcone strPrompt = "Digite a nota do aluno" On Error Resume Next retorne: Err.Clear byNota = InputBox(strPrompt, strTitulo) If Err.Number 0 Then strPrompt = "Nota inválida, digite a nota novamente" GoTo retorne End If Select Case byNota Case 10 strPrompt = "Aprovado - Excelente!" lngIcone = vbInformation Case 9 strPrompt = "Aprovado - Muito Bom!" lngIcone = vbInformation Case 8 strPrompt = "Aprovado - Bom" lngIcone = vbInformation Case 7 strPrompt = "Aprovado, ufa! foi por pouco" lngIcone = vbExclamation Case 5 To 6 strPrompt = "Exame - precisa estudar mais" lngIcone = vbExclamation Case Is < 5 strPrompt = "Reprovado, voce fo muito mal" lngIcone = vbCritical End Select MsgBox strPrompt, lngIcone, srtTitulo End Sub
Boa noite, tudo bem? A constante strTitulo está a com as letras invertidas (t-r) na declaração e na última msgbox. O código foi criado de forma que se vc pressionar o botão cancelar ele vai mudar o prompt para nota invalida e vc só irá sair do inputbox preenchendo a nota válida. Para que o botão cancelar possa fechar o inputbox o código precisa ser alterado. Muito obrigado. Abraços!!
Olá Marcio Ribeiro
Da formas de tratamento de erros demostradas - só sabia utilizar a On Error Goto, agora posso tentar as variações de tratamento de erros, conforme apresentado por sua pessoa ...
Grato,
Marcelo Adriano
Bom dia Marcelo, tudo bem?
Que bom que estamos trazendo novidades e contribuindo para seu aperfeiçoamento.
Você já curtiu nossa página no facebook:
facebook.com/mastermrtreinamentos
Lá eu estou publicando nossos treinamentos e novidades, curta lá e nos acompanhe, pois ainda teremos muita coisa bacana pela frente.
Abraços.
Boa Tarde Marcio, acessei o youtube do Alessandro Trovato, e ele me disse que você vai fazer uma aula sobre vba, excel, web. Já me inscrevi no sei youtube.
Boa noite Marcelo!
Seja muito bem vindo!!! Espero que goste do conteúdo.
Abraços.
Muito bom Márcio, continue nesse nível! Sobre essa aula específica, fiquei com a sensação que se colocasse nota entre 11 e 255 ficou sem tratar. Abs.
Boa noite Fabio, tudo bem? Você tem toda razão. Está realmente prestando atenção nos vídeos, hein. rsrsrs.
Eu percebi o erro depois que já havia gerado o vídeo e se gravasse outro, iria atrasar. Coloquei uma observação na descrição do vídeo, mas segue abaixo a correção detalhada:
Com o On Error Resume Next
ua-cam.com/video/QJgOtIZMq2w/v-deo.htmlm35s
De: If Err.Number 0 Then
Para: If Err.Number 0 Or byNota > 10 Then
*** Estou somente acrescentando a verificação da nota maior que 10 ***
Com o On Error GoTo retorne
ua-cam.com/video/QJgOtIZMq2w/v-deo.htmlm47s
Inserir uma linha abaixo de: byNota = InputBox(strPrompt, strTitle)
Com o seguinte código: If byNota > 10 then byNota = -1
*** Incluir nova linha verificando se byNota é maior que 10, se for, forçar um erro para retornar.
Desculpe a falha. Abraços e obrigado pelo comentário.
Hahahaha além de prestar atenção já tenho alguma experiência no assunto, fica mais fácil visualizar o que vai acontecer. Agora, tudo que eu presto atenção nos vídeos eu não presto na descrição, nunca leio kkkkkkk
Valeu!
Abs
kkkkk.. Acho que a maioria não lê. kkkk. Bacana que já tem experiência, assim vc pode me ajudar.. rsrsrs.. Fique à vontade para comentar e dar sugestões.
Obrigado.
Grande Abraço.
Muito bom Márcio. Excelente aula.
Boa noite Marcelo, tudo bem?
Obrigado, meu amigo. Fico feliz que gostou!!! Os comentários de vocês me inspira a continuar colocando sempre mais conteúdo. Continue acompanhando e se possível, peço para compartilhar para levarmos conhecimento a mais pessoas.
Ainda teremos muito conteúdo pela frente.
Abraços e novamente agradeço.
Márcio, acho que o botão cancelar não está funcionando. veja se eu estou correto por gentileza:
Public Const srtTitulo As String = "Curso de VBA Básico - Master MR"
Sub resultado()
Dim byNota As Byte, strPrompt As String, lngIcone
strPrompt = "Digite a nota do aluno"
On Error Resume Next
retorne:
Err.Clear
byNota = InputBox(strPrompt, strTitulo)
If Err.Number 0 Then
strPrompt = "Nota inválida, digite a nota novamente"
GoTo retorne
End If
Select Case byNota
Case 10
strPrompt = "Aprovado - Excelente!"
lngIcone = vbInformation
Case 9
strPrompt = "Aprovado - Muito Bom!"
lngIcone = vbInformation
Case 8
strPrompt = "Aprovado - Bom"
lngIcone = vbInformation
Case 7
strPrompt = "Aprovado, ufa! foi por pouco"
lngIcone = vbExclamation
Case 5 To 6
strPrompt = "Exame - precisa estudar mais"
lngIcone = vbExclamation
Case Is < 5
strPrompt = "Reprovado, voce fo muito mal"
lngIcone = vbCritical
End Select
MsgBox strPrompt, lngIcone, srtTitulo
End Sub
Boa noite, tudo bem?
A constante strTitulo está a com as letras invertidas (t-r) na declaração e na última msgbox.
O código foi criado de forma que se vc pressionar o botão cancelar ele vai mudar o prompt para nota invalida e vc só irá sair do inputbox preenchendo a nota válida.
Para que o botão cancelar possa fechar o inputbox o código precisa ser alterado.
Muito obrigado. Abraços!!