Question

我将值分配给三个单元格（inspecao，alpha和lambda）。此代码适用于分配的整数，但不适用于小数。

对于＆lt; 1个数字或小数，Excel写入零。

/Applications/Xcode-beta.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS9.3.sdk

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

使用Application.InputBox粘贴十进制值

1 个答案: