利用VBA將搜尋內容顯示出來(數筆資料)

bioleon69

下載 (99.87 KB)

2017-4-16 21:50

小弟想讓自己的EXCEL流水帳能夠可以自己搜尋
不知道要怎麼做才可以呈現出這樣?
小弟問題已用圖片表示...
想要用VBA寫出來,不知道有沒有大師能夠點燃那麼一道光
一盞明燈...為小弟指引一點方向..

bioleon69

回復 3# yen956


謝謝YEN大,可以使用!
小弟需花點時間消化一下您的程式碼!



謝謝hcm大
也讓我挖到一個EXCEL網站!
感謝大大!

謝謝准提部林版主大
日期格式就是105/02 6個字串
沒附上是小弟疏忽!!
小弟目前先行研究前面兩位大大的方法
之後有問題會在發問!

非常感謝三位大大熱心回復
祝身體健康,事事順心,財源滾滾,投資操作順利!

准提部林

日期是什麼格式,
不上傳檔案, 難以提供意見??

FORMAT([a2], "E/MM") = 105/02

hcm19522

函數 參考
http://blog.xuite.net/hcm19522/twblog/500065104

yen956

回復 2# bioleon69
試試看:

1. '搜尋
   
2. Private Sub CommandButton1_Click()
   
3.     Dim eR As Long, Dt As Date, Dt1 As Date, Dt2 As Date, St As String, Rng As Range, E
   
4.     If [E2] = "" And [E4] = "" Then Exit Sub
   
5.     [G2].Resize(Rows.Count - 1, 3) = ""
   
6.     eR = [A65536].End(xlUp).Row
   
7.     Set Rng = [A2].Resize(eR - 1, 1)
   
8.     If [E2] <> "" Then
   
9.         Dt1 = [E2] & "/1"
   
10.         Dt2 = Year(Dt1) & "/" & Month(Dt1) + 1 & "/1"
    
11.      End If
    
12.     For Each E In Rng
    
13.         Dt = E: St = E.Offset(, 1)
    
14.         If [E2] = "" Then
    
15.             If St = [E4] Then
    
16.                 eR = [G65536].End(xlUp).Row + 1
    
17.                 E.Resize(1, 3).Copy Cells(eR, 7)
    
18.             End If
    
19.         ElseIf [E4] = "" Then
    
20.             If Dt >= Dt1 And Dt < Dt2 Then
    
21.                 eR = [G65536].End(xlUp).Row + 1
    
22.                 E.Resize(1, 3).Copy Cells(eR, 7)
    
23.             End If
    
24.         Else
    
25.             If Dt >= Dt1 And Dt < Dt2 And St = [E4] Then
    
26.                 eR = [G65536].End(xlUp).Row + 1
    
27.                 E.Resize(1, 3).Copy Cells(eR, 7)
    
28.             End If
    
29.         End If
    
30.     Next
    
31. End Sub
    
32. '清除
    
33. Private Sub CommandButton2_Click()
    
34.     [G2].Resize(Rows.Count - 1, 3) = ""
    
35. End Sub

複製代碼

bioleon69

下載 (109.79 KB)

2017-4-16 22:46

呈現結果如圖...跪求大神指點...