こんにちは、1 つの InputBox を使用して 2 つの機能を持たせることは可能ですか? そうしないと、情報を 2 回入力する必要があります。私はそれをフィルタリングして(すでに機能しています)、セルに表示したいと考えています。
FilterCriteria = InputBox("Code")
Sheet3.Range("B" & n).Value = InputBox("Code")
If FilterCriteria = "" Then Exit Sub
FilterCriteria = Replace(FilterCriteria, "*", "")
FilterCriteria = "*" & FilterCriteria & "*"