因此,当前在特定条件下,我会弹出此InputBox供用户输入注释,然后该框将这些注释填充到单元格中。我想尝试做的是,如果在InputBox向其填充注释的单元格中已经有注释,这些注释将已经出现在输入字段中,以便用户可以添加到其中。我不知道这是否可以完成,在Google上找不到任何内容。如果不能做到这一点,请使用insted用户表单。
下面显示输入框的当前代码,“注释”是InputBox填充到的字段:
If InStr(OPs, "Incomplete") > 0 Or InStr(OPs, "Miss") Then
notes.Interior.Color = RGB(255, 200, 0)
If notes = "" Then
Do While notes = ""
notes = notes & InputBox("You must imput notes for " & Desc & " !", "Notes")
Loop
End If
End If
答案 0 :(得分:2)
使用Default
的{{1}}参数:
类似的东西:
InputBox
但是,如果您使用此方法,则您不想使用notes = notes & InputBox("You must input notes for " & Desc & " !", "Notes", notes)
,因为字符串字段会迅速溢出。.也许就是这样:
notes = notes & ...