-1

你好,一个输入框可以同时拥有两个功能吗?否则我必须填写两次信息。我希望它过滤(已经有效)并且还想在单元格中显示它。

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



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

1 回答 1

0

试试这个:

FilterCriteria = InputBox("Code")
Sheet3.Range("B" & n).Value = FilterCriteria
于 2013-10-01T10:13:28.107 回答