Вставить десятичное значение с помощью Application.InputBox

Question

Я назначаю значения для трех ячеек (inspecao, alpha и lambda). Этот код отлично подходит для целых чисел, назначенных, но не для десятичных знаков.

Для < 1 число или десятичный знак, Excel вместо этого записывает нуль.

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