作者e1911r0304 (波)
看板Visual_Basic
标题[VBA ] 关於VBA筛选结果
时间Tue Sep 11 09:41:43 2012
各位前辈
我想询问以下这个筛选语法
-------------------------------------------------
Sub 筛选改()
Dim j As String
Dim i As String
i = InputBox("是要地几排")
j = InputBox("是要筛选啥")
With Range("B2:G24")
.AutoFilter i, j
If i = 1 Then
j = "*" & Left(j, 2) & "*" ← 问题在这,为何这里要有个"*"呢
ElseIf i = 2 Then
j = "*" & Left(j, 6) & "*" 另外如果想要inputbox跳出来可以直接
ElseIf i = 3 Then 打中文的话是要用搜寻的语法吗
j = "*" & Left(j, 1) & "*" ex: 搜寻性别可直接打"性别"
ElseIf i = 4 Then
j = "a" Or "ab" Or " b" Or "o"
ElseIf i = 6 Then
j = "*" & Left(j, 3) & "*"
End If
End With
MsgBox "筛选结果为" & j
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 101.15.12.241
1F：→ tsongs:"*"要怎改随你高兴，只是让MsgBox里多个符号 09/11 13:35