返回列表 上一主題 發帖

欲建立資料篩選系統

changxxx

帖子
11 
主題
1 
精華
0 
積分
12 
點名
0  
作業系統
Win7 32 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
來自
Keelong 
註冊時間
2015-2-14 
最後登錄
2015-3-16 
1# 跳轉到 »
發表於 2015-2-14 11:22 | 顯示全部帖子
初學者給大大一些建議
先從同一工作簿開始練習(雖然只差一個Workbooks.Open而已)

sshot-2.png

以下為查詢部分(初學者寫法僅供參考)
  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
複製代碼

TOP

changxxx

帖子
11 
主題
1 
精華
0 
積分
12 
點名
0  
作業系統
Win7 32 
軟體版本
Office2013 
閱讀權限
10 
性別
男 
來自
Keelong 
註冊時間
2015-2-14 
最後登錄
2015-3-16 
2#
發表於 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
複製代碼

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題