VBA InputBox错误

Question

我正在尝试让我的输入框将一个数字转储到特定的单元格中。只要在正确的单元格上提示框就可以了，但是当我按enter或单击ok时，单元格仍然是空白的。有谁知道怎么修复吗？

谢谢！！

    Sub DiscardPipe()        
    Dim str As String
    Dim rtrn As String
    Dim impu As Integer
       With Worksheets(ActiveSheet.Name)
       rtrn = ActiveSheet.Name
       str = Range("e2").Value

    Set SrchRng = Worksheets("Information").Range("J8:J17").Find(what:=str)
     Sheets("information").Select
     Range("J8:J17").Find(what:=str).Select
     Selection.End(xlToRight).Select
       Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToLeft).Select
        ActiveCell.Offset(0, 1).Range("A1").Select
      impu = InputBox("Enter New Bottom Pipe Serial Number", "New Pipe", 1)

        End With
    End Sub 

Answer 1

在输入框中添加数字后，以下内容仍保留空白单元格。

 Sub DiscardPipe()         Dim str As String         Dim rtrn As String         Dim impu As Integer

       With Worksheets(ActiveSheet.Name)
       rtrn = ActiveSheet.Name
        str = Range("e2").Value
        End With
    Set SrchRng = Worksheets("Information").Range("J8:J17").Find(what:=str)
     Sheets("information").Select
     Range("J8:J17").Find(what:=str).Select
     Selection.End(xlToRight).Select
       Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToRight).Select
        Selection.End(xlToLeft).Select
        ActiveCell.Offset(0, 1).Range("A1").Select
        impu = InputBox("Enter New Bottom Pipe Serial Number", "New Pipe", 8)
        Range("A1").Value = impu
    End Sub