Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#65057
Boa tarde meus amigos, estou enfrentando um problema grave.

Tenho esse Useform da imagem em anexo.

Imagem

Nela, tenho o numero de dia de estudos, o número de matérias e hora diária.

Eu gostaria de um código para quando clicar no botão calcular, então o textbox das horas fosse multiplicada pelo textbox dos dias de estudos, apresentando o resultado em horas, mesmo que seja mais de 30:00:00 hs.

Ao mesmo tempo, queria um código para dividir as horas por um número, tipo dividir por 30..

Já tentei milhões de códigos, parece que não há como dividir ou multiplicar, ou mesmo somar e subtrair horas por números.

Uma outras questão é se seria possível somar horas, tipo 02:10:00 + 03:00:00 = 05:10:00

Alguém pode dar uma luz?
Imagem
#65059
georgedo escreveu: 09 Jun 2021 às 13:24 ... estou enfrentando um problema grave. :shock: :?: :?: :?:
Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com alguns exemplos e com os resultados desejados. Imagens não servem!
#65068
[quote=osvaldomp post_id=65059 time=1623259091 user_id=6908

Sugestão: disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel com alguns exemplos e com os resultados desejados..
[/quote]
#
Informe com exatidão em quais campos do Form você tem problema.
Exemplo: o usuário irá preencher o campo X com o valor Y, em seguida irá clicar no botão BZ. Então desejo que o campo B apresente o resultado MM que é o resultado da adição do campo X ao campo Y.
#65072
Boa noite, obrigado pela disposição em ajudar.

Eu consegui descobrir alguns erros e fiz, inclusive, algumas correções. Segue o Projeto, em anexo, com algumas correções.

O que eu pretendo é que, no TextBox "1", apareça as horas diárias escolhidas em "horas diárias" só que multiplicado pelo número de dias que
está em "Dias de Estudo".

No TextBox "2", quero que apareça as horas escolhidas em "Horas diárias" multiplicado por 5
No TextBox "3", quero que apareça as horas escolhidas em "Horas diárias" multiplicado por 7
No TextBox "4", quero que apareça as horas escolhidas em "Horas diárias" multiplicado por 22

Imagem ilustrativa:

Imagem
Você não está autorizado a ver ou baixar esse anexo.
#65085
Veja se ajuda.
1. remova ou desative os códigos Private Sub boxhors_Change() e Private Sub boxhors_Exit()
2. no código Private Sub NovAlarm () acrescente a linha em vermelho conforme abaixo
End If
If boxhors.Value <> "" Then TextBox11.Value = boxhors.Value * boxdia.Value
End Sub
3. insira o código abaixo; para o seu funcionamento insira um valor em boxhors e aperte Enter
Código: Selecionar todos
Private Sub boxhors_AfterUpdate()
 If boxhors.Value = "" Then
  TextBox11.Value = ""
  TextBox12.Value = ""
  TextBox13.Value = ""
  TextBox14.Value = ""
 Else
  TextBox11.Value = boxhors.Value * boxdia.Value
  TextBox12.Value = boxhors.Value * 5
  TextBox13.Value = boxhors.Value * 7
  TextBox14.Value = boxhors.Value * 22
 End If
End Sub
#
dicas:
1. não é necessário compactar o arquivo para anexar aqui no fórum
2. eu sugiro que você limpe a Propriedade Text das TextBoxes que estão com o texto 00:00:00, pois essa notação representa um horário (uma certa hora do dia) e o que você quer naqueles campos é quantidade de horas, que é diferente.
ex:
Bozo irá estudar por quinze horas, deve ser escrito 15 horas e não 15:00:00.
Bozo irá estudar por sete horas e meia, deve ser escrito 7,5 horas e não 07:30:00.
georgedo agradeceu por isso
#65089
Olá, @georgedo .

Que bom que ajudou.

Grato pelas palavras. God bless you too.

O único problema é que ele procura[…]

Ranking PROCV

... mas fiz as alterações correspo[…]

Bom dia comunidade! Preciso implementar uma solu&[…]

Saldos

Olá, estou fazendo um dashboard e tenho um[…]

Deve ter outra forma, mas sugiro que faça n[…]

Tente esta: Acc = CALCULATE ( [Receita], […]

AJUDA COM FUNÇÃO "SE"

O problema não é devido ao uso da fu[…]

Veja no link abaixo se aproveita algo. https://w[…]