Srs. estou com dificuldade em resolver a seguinte situação:
tenho um Form baseado em uma consulta, no qual realiza alguns calculos, ex: produção, perdas etc. Estou calculando também o seu nivel SIGMA onde consegui realizar o mesmo para um campo do formulário, porém preciso para 3.
Eu inseri esse código no formulário
Option Compare Database
Option Explicit
Public xlApp As Object 'Excel.Application
Private Sub Form_Close()
xlApp.Quit
Set xlApp = Nothing
End Sub
Private Sub Form_Load()
Set xlApp = CreateObject("Excel.Application")
Me.Visible = False
End Sub
onde abre e fecha o excel no formulário possibilitando a utilização da função Normsinv do excel
Criei um Módulo com o código:
Function MyNormsInv(calcNatual As Double) As Double
MyNormsInv = Form_Consolidado.xlApp.WorksheetFunction.Norm_S_Inv(calcNatual)
End Function
com isso, consegui obter o valor sigma, funciona legal!! mas não consegui aplicar para outros dois campos em meu formulário!
Alguém poderia me ajudar???
estou postando o arquivo de exemplo pra ajudar.
tenho um Form baseado em uma consulta, no qual realiza alguns calculos, ex: produção, perdas etc. Estou calculando também o seu nivel SIGMA onde consegui realizar o mesmo para um campo do formulário, porém preciso para 3.
Eu inseri esse código no formulário
Option Compare Database
Option Explicit
Public xlApp As Object 'Excel.Application
Private Sub Form_Close()
xlApp.Quit
Set xlApp = Nothing
End Sub
Private Sub Form_Load()
Set xlApp = CreateObject("Excel.Application")
Me.Visible = False
End Sub
onde abre e fecha o excel no formulário possibilitando a utilização da função Normsinv do excel
Criei um Módulo com o código:
Function MyNormsInv(calcNatual As Double) As Double
MyNormsInv = Form_Consolidado.xlApp.WorksheetFunction.Norm_S_Inv(calcNatual)
End Function
com isso, consegui obter o valor sigma, funciona legal!! mas não consegui aplicar para outros dois campos em meu formulário!
Alguém poderia me ajudar???
estou postando o arquivo de exemplo pra ajudar.
- Anexos
- teste.zip
- Help!!
- Você não tem permissão para fazer download dos arquivos anexados.
- (370 Kb) Baixado 4 vez(es)