是否可以将一个InputBox用于两个函数？

Question

您可以使用一个InputBox来实现两个功能吗？否则我必须填写两次信息。我希望它过滤（已经有效）并且还想在单元格中显示它。

FilterCriteria = InputBox("Code")
Sheet3.Range("B" & n).Value = InputBox("Code") 



If FilterCriteria = "" Then Exit Sub
FilterCriteria = Replace(FilterCriteria, "*", "")
FilterCriteria = "*" & FilterCriteria & "*"

Answer 1

试试这个：

FilterCriteria = InputBox("Code")
Sheet3.Range("B" & n).Value = FilterCriteria