如何通过输入框添加自定义文本

时间:2017-08-10 23:28:44

标签: excel vba user-input

我正在使用以下代码提示用户输入变量并将其添加到最后的每一行。出于某种原因,最后一行中的数字是填充所有单元格的数字。有没有办法修复这段代码?

Dim lr As Long    
Dim myRange As Integer

myRange = Application.InputBox("Enter Item Number", Type:=1)

lr = Cells(rows.Count, "A").End(xlUp).Row

Range("O2:O" & lr).Value = Format(myRange, "1")

2 个答案:

答案 0 :(得分:0)

您定义了从O2O" & lr的范围。

  

范围(" O"& lr).Value =格式(myRange," 1")

或者

  

单元格(rows.Count," A")。结束(xlUp)。偏移(1).Value =格式(myRange," 1")

答案 1 :(得分:0)

我真的不明白为什么你使用Format但是......

如果你想格式化它以确保它是一种数字格式我认为最好的方法是在输入框上循环而不是isnumeric(myrange)或空值。

使用格式格式化数字我认为它是零..

Format(1 , "0000")应该给0001 Format(10, "0")应该给10