excel - 如果有两位数，则来自实验室天平的输入会下降一个整数。即：2.453 = 2.453 但 2.344 = 2.340

Question

正如标题所解释的，输入框的结果表现得很奇怪。似乎当来自下面第二个子中的余额的数据中的最后一个整数连续翻倍时，返回后单元格中的内容与余额屏幕上显示的内容不同。

所以：平衡屏幕上的 2.56 在单元格中给出 2.56 但屏幕上的 2.55 给出 2.50？

或： 余额屏幕上的 2.565 在单元格中给出 2.565 但屏幕上的 2.855 给出 2.850 ？任何想法都会很棒。谢谢。

这是代码。

Private Sub Barcode_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                            ByVal Shift As Integer)    
    Worksheets("Data").Activate    
    ActiveSheet.Unprotect "waterypanda"

    If KeyCode = vbKeyReturn Then    
        ActiveCell = Barcode.Value    
        ActiveCell.Offset(0, 1).Select    
        ActiveCell.Value = ""    
        If Len(Me.Barcode.Value) = 8 Then Me.weight.SetFocus    
    End If

    Worksheets("Data").Activate  
    ActiveSheet.Protect "waterypanda"    
End Sub


Private Sub weight_Keydown(ByVal KeyCode As MSForms.ReturnInteger, _
                            ByVal Shift As Integer)
    Worksheets("Data").Activate    
    ActiveSheet.Unprotect "waterypanda"

    If KeyCode = vbKeyReturn Then    
        ActiveCell = weight.Value    
        Barcode.Value = ""    
        weight.Value = ""    
        ActiveCell.Offset(1, -1).Select    
    End If

    Worksheets("Data").Activate   
    ActiveSheet.Protect "waterypanda"    
End Sub

标签： excelvba