Excel中的VBA -文本框

Question

我正在制作电子表格，并添加了一个w/VBA按钮，以按行项的状态过滤。有3种不同的状态类型可用。我认为用户选择按钮并获得一个输入框来输入其中一个状态(带有* = ALL状态)。在输入框中输入的状态被插入到一个字段中，以显示选择了哪个过滤器。我的问题是(也许这是一个两部分):如果用户选择*(所有)，我怎么能得到文本" all "插入到字段中?或者，而不是输入框，是否有VBA可以下拉/选项选择所有3个状态选项加上" all "?使用的代码如下。谢谢你！凯萨琳

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="1234"
Dim strInput As String
strInput = InputBox("Please enter the status to Filter - enter * for ALL rows")
Selection.AutoFilter
ActiveSheet.Range("A7:S1006").AutoFilter Field:=13, Criteria1:=strInput
Range("F3").Value = strInput
ActiveSheet.Protect Password:="1234"

结束子

Answer 1

使用Replace函数

strInput = Replace(InputBox("Please enter the status to Filter - enter * for ALL rows"), "*", "ALL")