使用InputBox在循環中輸入值

我有一個宏，詢問我要添加多少新的「板」（部分）。那麼它會根據該值插入新列。我想補充的是第二個InputBox詢問每個我想要的部分。（我們使用相同的＃多次）使用InputBox在循環中輸入值

所以，如果問我有多少的，並說10 然後，它會詢問哪些部分＃和我說＃1234

，那麼我會希望它貼上10個新列每個都有＃1234部分。

這就是我所擁有的。

Dim Answer As String 
Dim i As Integer 
Dim Number As Integer 
Dim Plate As String 

On Error GoTo whoa 
Answer = InputBox("How many new plates would you like add?") 
Number = CInt(Answer) 
For i = 1 To Number 

Plate = InputBox("Enter a Plate number or Press OK") 

With sht3 
Columns("F:F").EntireColumn.Insert 
Columns("F").ColumnWidth = 10 
sht8.Range("F4:F100").Copy Range("F4:F100") 
End With 
Range("F8").Value = Plate 
Next i

感謝

來源

2017-05-26 Matt Taylor

得到要點考慮做一個實際的用戶窗體，而不是輸入框。您將擁有更好的UX/UI，並可以完全控制輸入驗證。另外...考慮*縮進*你的代碼 - 如果你不知道如何，知道[我有一個工具]（http://rubberduckvba.com/indentation）。 –

我完全同意@ Mat'sMug。用戶表單是最好的方式去這 –

用戶表單很酷，但我不喜歡excel的實現 –

Dim Answer2 as string 

Answer2 = InputBox("FEED ME INPUT")

，我認爲你從這裏

來源

2017-05-26 13:58:33

使用InputBox在循環中輸入值

回答

相關問題