bioleon69

　暱稱: 小B

中學生 Rank: 2

帖子: 62
主題: 14
精華: 0
積分: 86
點名: 0
作業系統: win10
軟體版本: offffice2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2016-8-23
最後登錄: 2017-11-5

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-4-16 21:51 | 只看該作者

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

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

樓主熱帖

bioleon69

　暱稱: 小B

中學生 Rank: 2

帖子: 62
主題: 14
精華: 0
積分: 86
點名: 0
作業系統: win10
軟體版本: offffice2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2016-8-23
最後登錄: 2017-11-5

論壇贊助勳章

2^#

發表於 2017-4-16 22:46 | 只看該作者

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

TOP

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2017-4-17 14:34 | 只看該作者

本帖最後由 yen956 於 2017-4-17 14:36 編輯

回復 2# bioleon69
試試看:

'搜尋
Private Sub CommandButton1_Click()
Dim eR As Long, Dt As Date, Dt1 As Date, Dt2 As Date, St As String, Rng As Range, E
If [E2] = "" And [E4] = "" Then Exit Sub
[G2].Resize(Rows.Count - 1, 3) = ""
eR = [A65536].End(xlUp).Row
Set Rng = [A2].Resize(eR - 1, 1)
If [E2] <> "" Then
Dt1 = [E2] & "/1"
Dt2 = Year(Dt1) & "/" & Month(Dt1) + 1 & "/1"
End If
For Each E In Rng
Dt = E: St = E.Offset(, 1)
If [E2] = "" Then
If St = [E4] Then
eR = [G65536].End(xlUp).Row + 1
E.Resize(1, 3).Copy Cells(eR, 7)
End If
ElseIf [E4] = "" Then
If Dt >= Dt1 And Dt < Dt2 Then
eR = [G65536].End(xlUp).Row + 1
E.Resize(1, 3).Copy Cells(eR, 7)
End If
Else
If Dt >= Dt1 And Dt < Dt2 And St = [E4] Then
eR = [G65536].End(xlUp).Row + 1
E.Resize(1, 3).Copy Cells(eR, 7)
End If
End If
Next
End Sub
'清除
Private Sub CommandButton2_Click()
[G2].Resize(Rows.Count - 1, 3) = ""
End Sub

複製代碼

TOP

hcm19522

大學生 Rank: 4

帖子: 1363
主題: 4
精華: 0
積分: 1373
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-4-26

熱烈參與勳章

4^#

發表於 2017-4-18 15:38 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

5^#

發表於 2017-4-18 17:35 | 只看該作者

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

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

TOP

bioleon69

　暱稱: 小B

中學生 Rank: 2

帖子: 62
主題: 14
精華: 0
積分: 86
點名: 0
作業系統: win10
軟體版本: offffice2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2016-8-23
最後登錄: 2017-11-5

論壇贊助勳章

6^#

發表於 2017-4-19 00:59 | 只看該作者

回復 3# yen956

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

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

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

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

TOP