標題: 欲建立資料篩選系統 [打印本頁]

---

作者: indigpfbi    時間: 2015-2-6 16:52     標題: 欲建立資料篩選系統

請教各位大大

我想利用EXCEL進行資料篩選
分為AB兩個檔案，A檔案是總表，B表則是準備篩選的資料

動作大約如下
B檔案開啟後輸入一數值(數量)，之後B檔案會從A檔案撈出相關資料，而且我也可以在B檔案修改部分資料

感謝

---

作者: changxxx    時間: 2015-2-14 11:22

初學者給大大一些建議
先從同一工作簿開始練習(雖然只差一個Workbooks.Open而已)

[attach]20259[/attach]

以下為查詢部分(初學者寫法僅供參考)

1.     XD = TextBox1.Text
   
2.     Sheets("資料庫").Select
   
3.     Set FindCell = Cells.Find(What:=XD, After:=ActiveCell, LookIn:=xlFormulas, _
   
4.        LookAt:=1, SearchOrder:=2, SearchDirection:=xlNext, _
   
5.        MatchCase:=False, MatchByte:=False, SearchFormat:=True)
   
6.         If Not FindCell Is Nothing Then
   
7.             xj = Sheets("查詢").[A65536].End(xlUp).Row + 1
   
8.             Rows(FindCell.Row).Copy Sheets("查詢").Cells(xj, 1)
   
9.         Else
   
10.             MsgBox "查無"
    
11.         End If

複製代碼

---

作者: changxxx    時間: 2015-2-14 11:28

看錯了...是篩選

1.     Set WB = Workbooks.Open(ThisWorkbook.Path & "\資料庫.xlsx")
   
2.     Set Sht = WB.Worksheets(1)
   
3.     With Sht
   
4.         .Rows(1).AutoFilter
   
5.         .UsedRange.AutoFilter Field:=3, Criteria1:="查詢條件"
   
6.         .UsedRange.Copy ThisWorkbook.Worksheets("查詢").Range("A1")
   
7.     End With
   
8.     WB.Close False

複製代碼

---

作者: GBKEE    時間: 2015-2-14 15:32

回復 1# indigpfbi

Excel程式區 是有關VBA的函數,方法,屬性,等語法的用法有窒礙時提出討論的.
你應該先搜尋一下[討論區]有關篩選程式碼文章,然後提出你初步的程式碼,請教如何修改.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)