搜尋 Excel檔案、活業簿多筆關鍵字，再多筆"完整"列出

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

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

11^# 跳轉到 »

發表於 2012-3-26 23:31 | 只看該作者

回復 9# mchan2k
回復 10# ericsm77

1.進階篩選是把所有符合篩選條件的紀錄都篩選出來
2.VBA使用FIND指令,也可把所有符合條件的都找出來

TOP

jackson7015

中學生 Rank: 2

帖子: 233
主題: 53
精華: 0
積分: 292
點名: 0
作業系統: WinXp
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-6
最後登錄: 2024-3-8

論壇贊助勳章

12^#

發表於 2012-4-24 16:47 | 只看該作者

回復 5# Hsieh
想請問Hsieh版大

我使用在我的資料庫後,會出現偵測錯誤
且儲存格的格式化條件也有錯誤
而在刪除查詢資料時,會出現巨集程式錯誤

是否有哪裡需要做更正

查詢綜合資料庫.rar (20.22 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

13^#

發表於 2012-4-24 17:47 | 只看該作者

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, Rng As Range
If Target.Column = 1 Then
With Sheets("綜合資料庫")
For i = 1 To .UsedRange.Rows.Count
Set A = .UsedRange.Rows(i).Find(Target)
If Not A Is Nothing Then
If Rng Is Nothing Then
Set Rng = .UsedRange.Rows(i)
Else
Set Rng = Union(Rng, .UsedRange.Rows(i))
End If
End If
Next
End With
End If
Application.EnableEvents = False
If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1) Else Target.Offset(, 1).Resize(, 50) = ""
Application.EnableEvents = True
End Sub