Application.InputBoxを使用して小数値を貼り付けます

Question

私は3つのセル（inspecao、alpha、lambda）に値を割り当てています。 このコードは、割り当てられる整数には問題ありませんが、小数点では機能しません。

<数値または小数点の場合、Excelは0を書き込みます。

Dim alpha as Double 
Dim inspecao As Double 
Dim lambda As Double 

inspecao = CInt(Application.InputBox("Insira o intervalo de inspecao:", Type:=1)) 
alpha = CInt(Application.InputBox("Insira o parametro alpha:", Type:=1)) 
lambda = CInt(Application.InputBox("Insira o parametro lambda:", Type:=1)) 

Range("E1").Value = inspecao 
Range("I2").Value = alpha 
Range("L1").Value = lambda 

Answer 1

ウェーバーこれは、すべてをCIntとしているからです。それを取り除くと、あなたは大丈夫になります：

Dim alpha As Double 
    Dim inspecao As Double 
    Dim lambda As Double 

    inspecao = Application.InputBox("Insira o intervalo de inspecao:", Type:=1) 
    alpha = Application.InputBox("Insira o parametro alpha:", Type:=1) 
    lambda = Application.InputBox("Insira o parametro lambda:", Type:=1) 

    Range("E1").Value = inspecao 
    Range("I2").Value = alpha 
    Range("L1").Value = lambda