多張工作表查詢資料 - Excel程式區

[發問] 多張工作表查詢資料

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

1^# 跳轉到 »

發表於 2011-3-14 14:49 | 顯示全部帖子

本帖最後由 GBKEE 於 2011-3-14 14:51 編輯

回復 1# shootingstar
建議所有資料置於同一工作表
進階篩選

銷售表.rar (9.29 KB)

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

2^#

發表於 2011-3-15 16:40 | 顯示全部帖子

回復 5# shootingstar
請附檔上來. 才會看清楚錯誤在哪裡.
1樓的另一解法

Private Sub CommandButton1_Click()
Dim S As Worksheet, Rng As Range, R As Range
With Sheets("查詢表")
.Range("a4").CurrentRegion.Offset(1).Clear
For Each S In Sheets
If S.Name Like "*月" Then
Set Rng = Nothing
For Each R In S.UsedRange.Rows
If R.Cells(1, 2) = .[b1] Then
If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R)
End If
Next
End If
If Not Rng Is Nothing Then Rng.Copy .Range("A" & Rows.Count).End(xlUp).Offset(1)
Next
End With
End Sub

複製代碼

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

3^#

發表於 2011-7-13 14:55 | 顯示全部帖子

回復 5# shootingstar
請下載2樓檔案將資料庫客戶修改為你所希望的 , 再到查詢表客戶輸入 *ABCD* 或 *abcd* 或 *AB* 或 *ab*
試試看

靜思自在 : 做好事不能少我一人，做壞事不能多我一人。