請大大們協助了解篩選問題, - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請大大們協助了解篩選問題,

返回列表下一主題上一主題發帖

請大大們協助了解篩選問題,

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2013-11-3 16:21 | 顯示全部帖子

大大們, 小弟對vba知識有限, 近日小弟幾經辛苦才完成了一個滿以為可行的篩選程式, 但當用時原來是行不通,
...
hong912 發表於 2013-11-3 14:10

有關你附件檔案中之 abc() ，請你稍稍說明一下你實際到底想要做甚麼？
想法如何？程式碼中後有 end if 前面卻無 if, 還有 len(XXX) ？
還有過濾的條件 <> 甚麼？

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2013-11-3 21:46 | 顯示全部帖子

回復 3# hong912
請將程式複製於 ThisWorkbook 內：

Option Explicit
Sub Ex()
Dim 準則1 As String, rngFilter As String
準則1 = InputBox("輸入一字 (準則)")
If 準則1 = "" Then Exit Sub
With Sheets("Sheet1")
Sheets("Sheet2").Cells.Clear
rngFilter = "*" & 準則1 & "*"
.[AA1] = "姓名"
.[AA2] = rngFilter
.Range("A3").CurrentRegion.AdvancedFilter xlFilterCopy, .[AA1:AA2], _
CopyToRange:=Sheets("Sheet2").Range("A3"), Unique:=True
End With
End Sub

複製代碼

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。

返回列表下一主題上一主題