返回列表 上一主題 發帖

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

回復 9# mchan2k
回復 10# ericsm77

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

TOP

回復 5# Hsieh
想請問Hsieh版大

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

是否有哪裡需要做更正
查詢綜合資料庫.rar (20.22 KB)

TOP

  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range, Rng As Range
  3. If Target.Column = 1 Then
  4. With Sheets("綜合資料庫")
  5. For i = 1 To .UsedRange.Rows.Count
  6.    Set A = .UsedRange.Rows(i).Find(Target)
  7.    If Not A Is Nothing Then
  8.      If Rng Is Nothing Then
  9.      Set Rng = .UsedRange.Rows(i)
  10.      Else
  11.      Set Rng = Union(Rng, .UsedRange.Rows(i))
  12.      End If
  13.     End If
  14. Next
  15. End With
  16. End If
  17. Application.EnableEvents = False
  18. If Not Rng Is Nothing Then Rng.Copy Target.Offset(, 1) Else Target.Offset(, 1).Resize(, 50) = ""
  19. Application.EnableEvents = True
  20. End Sub
複製代碼
回復 12# jackson7015
學海無涯_不恥下問

TOP

回復 13# Hsieh

感謝Hsieh版主
程式可以正常使用了

目前還在測試中,若有其他問題再回報給您

TOP

回復 5# Hsieh


    不好意思版主大大,我正在尋找有關find的資料,有幸來到這個壇但是注冊了未能下載附件,不知版主大大可不可以E給我呢??:P
b26465400b@yahoo.com.hk

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題