Até onde sei a função Acos não é nativa no VBA, então deve ser "chamada" utilizando application.worksheetfunction.
Tambem no seu primeiro exemplo 1-2*h estava entre parenteses, no ultimo não, isso afetara o resultado, veja no anexo as duas situações
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 1537 ocorrências
- Sáb Jan 24, 2015 12:01 pm
- Fórum: Geral
- Tópico: Equação Trigonométrica em VBA
- Respostas: 5
- Exibições: 3177
- Sex Jan 23, 2015 10:50 pm
- Fórum: Geral
- Tópico: Equação Trigonométrica em VBA
- Respostas: 5
- Exibições: 3177
Re: Equação Trigonométrica em VBA
Experimente
Código: Selecionar todos
Sub cc()
Dim x As Single, h As Single, d As Single
h = 2
d = 8
x = 2 * Application.WorksheetFunction.Acos(CDec(((1 - 2 * h) / d)))
MsgBox x
End Sub
- Qua Jan 21, 2015 9:45 am
- Fórum: VBA Básico
- Tópico: Problema Fechar Excel apos abri UserForm
- Respostas: 8
- Exibições: 8957
Re: Problema Fechar Excel apos abri UserForm
Acredito que o problema seja na rotina agregada ao Botão (Custon Control) Sair. Altere conforme abaixo e teste: Private Sub Sair(control As IRibbonControl) Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("CAPA").Activate Application.Quit End Sub Postagem similar...
- Ter Jan 20, 2015 2:57 pm
- Fórum: VBA Básico
- Tópico: Inserir Dados com Data!
- Respostas: 18
- Exibições: 10292
Re: Inserir Dados com Data!
Teste/experimente, e veja se atende (alteração somente no formulário expedição)
- Seg Jan 19, 2015 2:23 pm
- Fórum: VBA Básico
- Tópico: Impressão automatica via VBA (Resolvido)
- Respostas: 6
- Exibições: 7603
Re: Impressão automatica via VBA (Resolvido)
Como disse (ou escrevi), a rotina está acima, porem precisa adaptar a sua realidade. Como está dito em uma de suas imagens, não é difícil, mas tem que ser adaptada a sua realidade. Você também não mencionou se experimentou/tentou utilizar, então continuemos no eu acho Eu acho que assim: Application....
- Sex Jan 16, 2015 11:39 am
- Fórum: Geral
- Tópico: Dúvida na Função
- Respostas: 2
- Exibições: 2721
Re: Dúvida na Função
Do help VBA/Excel "Marca uma função definida pelo usuário como volátil. Uma função volátil precisa ser recalculada sempre que ocorrem cálculos em qualquer célula da planilha . Um função não volátil só é recalculada quando as variáveis de entrada são alteradas. Este método não tem efeito quando ...
- Qui Jan 15, 2015 8:29 pm
- Fórum: VBA Básico
- Tópico: Impressão automatica via VBA (Resolvido)
- Respostas: 6
- Exibições: 7603
Re: Impressão automatica via VBA (Resolvido)
Seria algo +/- assim, mas sem ver sua planilha voce precisará adaptar Sub imprimir() Dim lRow As Long, lLop As Long Application.ScreenUpdating = False 'Determina quantos registros na coluna A, para impressão lRow = Sheets("Plan1").Cells(Cells.Rows.Count, "A").End(xlUp).Row 'Alter...
- Qua Jan 14, 2015 1:51 pm
- Fórum: VBA Básico
- Tópico: Formatar data com application.inputbox [RESOLVIDO]
- Respostas: 2
- Exibições: 3410
Re: Formatar data com application.inputbox
A variavel nData está definida como range, então não aceitará o formato data. Altere para Dim nData as Date e teste
- Qua Jan 14, 2015 8:37 am
- Fórum: VBA Básico
- Tópico: Botão não obedece comando
- Respostas: 2
- Exibições: 2449
Re: Botão não obedece comando
Não há erro nessa rotina, o que pode ocorrer é Ao cadastrar o novo "cliente", se não for preenchido os dados da coluna 4 - Cargo, ao utilizar os botões de navegação para "passar" entre os registros, é questionado pela rotina se a celula está preenchida --> If Not IsEmpty(.Cells(i...
- Seg Jan 12, 2015 2:13 pm
- Fórum: Geral
- Tópico: Formulário Busca RESOLVIDO
- Respostas: 2
- Exibições: 2089
Re: Formulário Busca
Veja se auxilia: Variavel Linha "transferida" para publica --> Public Total_Ocorrencias As Long, Linha As Long Na rotina de procura adicionado linha para definição do valor da variável linha se houver --> If SpinButton1.Enabled Then Linha = MatrizResultados(SpinButton1.Value) Rotina para g...