Question

我正在处理Excel电子表格（路线书），enter image description here请参阅附件。我要求excel在打开电子表格时通过弹出输入框请求信息，这将分别反映在b2，c2，d2，e2，f2，g2，h2上，一旦所有信息被填入然后a2变得可用（这可以是通过公式完成）然后应该转到下一行。因此，基本上每次用户打开电子表格时，excel都会通过弹出屏幕请求信息，一旦填写了此信息，订单号就变为可用，循环将在新行上重新开始。类似下面的enter image description here

然后，一旦完成，则自动弹出另一个，直到捕获到所有信息并且订单号可用。我不能让弹出窗口一个接一个地跟进直到结束

Sub inputbox1()
Dim adddata As Range
Dim addinput As String
Set adddata = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
addinput = InputBox("Enter date here", "Date")
If addinput = Empty Then Exit Sub
adddata.Value = addinput
End Sub
Sub inputbox2()
Dim adddata As Range
Dim addinput As String
Set adddata = Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
addinput = InputBox("Enter Transporter here", "Transporter")
If addinput = Empty Then Exit Sub
adddata.Value = addinput
End Sub

VBA输入框 - EXCEL请求在电子表格打开时的信息

0 个答案: