-1

こんにちは、1 つの InputBox を使用して 2 つの機能を持たせることは可能ですか? そうしないと、情報を 2 回入力する必要があります。私はそれをフィルタリングして(すでに機能しています)、セルに表示したいと考えています。

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



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

1 に答える 1