Olá Galera, estou iniciando no VBA e preciso de uma ajuda! Criei uma aplicação para calcular do Alvará (Alvará + Horário Especial + taxa).
Para melhor orientação, em regra geral, o cálculo do Alvará é assim:
metragem x UFM (unidade financeira municipal) x alíquota (tabela específica)
Horário Especial: metragem x UFM (unidade financeira municipal) x alíquota (tabela específica)
Taxa = apenas um valor fixo para os dois
Observação1: a diferença entre alvará e h. especial é o valor da alíquota - "são 2 cálculos em 1".
Um Ex.: 530 x 12,49 x 0,2 = R$ 1.323,94 (alvará) e 530 x 12,49 x 0,1 = R$ 661,97(h. especial) + 6,25 (taxa) = R$ 1.992,16
Criei um formulário onde consta: 3 TextBox (metragem, UFM e alíquota), 1 Textbox (alíquota - h. especial), 1 Label para o resultado, 2 caixa de seleção: uma para TAXA e outro para o HORÁRIO ESPECIAL e apenas 1 botão para o cálculo.
O cálculo do h. especial foi determinado quando a caixa de seleção do h. especial fosse True.
Como não conseguir fazer, todas a condições, aparecerem no Label_resultado, clicando no botão Bt_calcucar, dividir a visualização em mais 3 label (uma para o alvará, uma para o h. especial e outra para o Resultado Final) .
Até aí conseguir os resultados, mais com uma condição, a TextBox_alíquota do horário especial tem que esta preenchida, ou seja, se estivesse vazia da erro devido a variável utilizada no cálculo.
Lembrando que nesse formulário quero mostrar que o alvará, dependendo da CAIXA DE SELEÇÃO mostrar: como e/ou sem taxa, assim como, com e/ou sem o h. especial.
* Gostaria de ajuda para resolver a questão da TEXTBOX da Alíquota do h. especial, quando clicar no Bt_calcular e a caixa de seleção do horário especial estivesse True, tipo: aparecesse uma MsgBox informando que para o cálculo do Horário Especial a TextBox da alíquota do h. especial deve ser preenchida.
Quando a caixa de seleção do h. especial esta False e a TextBox da alíquota do h. especial preenchida., funciona perfeito.
Observação2: todo RESULTADO exibido, é mediante alterações nas caixas de seleção, porém, para cada alteração tenho que clicar no botão CALCULAR.
* Pois isso, outro coisa que queria acrescentar no meu formulário, além do cálculo do botão Calcular, é ao clicar nas caixas de seleção (TAXA e HORÁRIO ESPECIAL) os resultas alterasse automático nas Label destinadas ao RESULTADO(alvará, horário especial e resultado final).
Desde já agradeço pela atenção, desculpa o texto longo, mas acho que tinha que ser explicado.
Postado : 27/01/2017 1:26 pm