麻辣家族討論版版 » Excel程式區 » 欲建立資料篩選系統

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

欲建立資料篩選系統

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: windows8.1
軟體版本: office2007
閱讀權限: 10
註冊時間: 2015-2-6
最後登錄: 2015-3-19

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-2-6 16:52 | 只看該作者

欲建立資料篩選系統

請教各位大大

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

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

感謝

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2015-2-14 15:32 | 只看該作者

回復 1# indigpfbi

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

3^#

發表於 2015-2-14 11:28 | 只看該作者

看錯了...是篩選

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

複製代碼

小學生 Rank: 1

帖子: 11
主題: 1
精華: 0
積分: 12
點名: 0
作業系統: Win7 32
軟體版本: Office2013
閱讀權限: 10
性別: 男
來自: Keelong
註冊時間: 2015-2-14
最後登錄: 2015-3-16

2^#

發表於 2015-2-14 11:22 | 只看該作者

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

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

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

複製代碼

靜思自在 : 愛不是要求對方，而是要由自身的付出。

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