(感谢蓝桥玄霜老师！问题已解决！) 多任务多条件数据模糊查询

tommyszeto · 发表于 2010-4-8 02:45

以同一EXCEL工作簿为输入界面及数据库，实现模糊查询、匯出等功能，请帮忙，谢谢！

APR_Wx11_ALL Brand_Country View_EUON_VBA.zip (12.06 KB, 下载次数: 50)

要求说明：
1、以“sheet1"作为输入界面，将“sheet1"表格中输入以〝C3〞及〝N3〞进行模糊查询，以下所列的等得唯一查询结果。
- A3
- E3
- G3
- H3
- I3
- J3
- K3
- L3
- P3
- Q3
- W3
- AA3
- AB3
-AD3

menu.zip (111.01 KB, 下载次数: 30)

2、需要顯示尋得行數的結果總和與 L3欄內合共數量的總和。

求和.zip (135.86 KB, 下载次数: 26)

3、按“匯出”按钮，符合条件的数据保存至“sheet2”表中。

OUTPUT.zip (6.38 KB, 下载次数: 20)

[ 本帖最后由 tommyszeto 于 2010-5-2 02:49 编辑 ]

cailc1361 · 发表于 2010-4-8 05:31

看不懂楼主的意图
请上传附件

cflood · 发表于 2010-4-8 07:02

看不出附件和题目有什么关系

tommyszeto · 发表于 2010-4-8 20:30

你們好！已附上圖片！

蓝桥玄霜 · 发表于 2010-4-8 20:51

你的附图与表格附件完全没有关系？是不是上传错了附件？

tommyszeto · 发表于 2010-4-8 23:37

原帖由 蓝桥玄霜 于 2010-4-8 20:51 发表
你的附图与表格附件完全没有关系？是不是上传错了附件？

蓝桥玄霜老師：

首先，向你說so sorry，因為我日常生活都是用白話來溝通，所以不知不覺地表達方式漸漸地變得詞不達意。敬請原諒！

請看看，我能否說得清楚的？

詳細深入解釋.zip (242.01 KB, 下载次数: 62)

謝謝

蓝桥玄霜 · 发表于 2010-4-9 11:32

请见附件。

tommyszeto · 发表于 2010-4-10 03:15

原帖由藍橋玄霜 於2010-4-9 11:32 發表
請見附件。

藍橋玄霜老師早晨啊!

只是有少許的問題:
- PP month的顯示, 能夠MMM-YY (例如 May-10)
- 顯示查詢窗體的Series 〝N3〞, 輸入了串連的關鍵字, 可是並順利找扣查詢結果,附上一些資料,以供查閲:

Copy of tom0409.zip (24.77 KB, 下载次数: 48)

Thank you so much for your help once again!

蓝桥玄霜 · 发表于 2010-4-10 09:58

Sub tb()
'填表
Set ITM = ListView1.ListItems.Add()
ITM.Text = Format(Sht1.Cells(ii, 1), "mmm-yy")
ITM.SubItems(1) = Sht1.Cells(ii, 3)
ITM.SubItems(2) = Sht1.Cells(ii, 5)
ITM.SubItems(3) = Sht1.Cells(ii, 7)
ITM.SubItems(4) = Sht1.Cells(ii, 8)
ITM.SubItems(5) = Sht1.Cells(ii, 9)
ITM.SubItems(6) = Sht1.Cells(ii, 10)
ITM.SubItems(7) = Sht1.Cells(ii, 11)
ITM.SubItems(8) = Sht1.Cells(ii, 12)
ITM.SubItems(9) = Sht1.Cells(ii, 14)
ITM.SubItems(10) = Sht1.Cells(ii, 16)
ITM.SubItems(11) = Sht1.Cells(ii, 17)
ITM.SubItems(12) = Sht1.Cells(ii, 22)
ITM.SubItems(13) = Sht1.Cells(ii, 27)
ITM.SubItems(14) = Sht1.Cells(ii, 28)
ITM.SubItems(15) = Sht1.Cells(ii, 30)
total = total + Sht1.Cells(ii, 12).Value
End Sub

复制代码

tommyszeto · 发表于 2010-4-10 12:40

原帖由藍橋玄霜 於2010-4-10 09:58 發表
Sub tb()
'填表
    Set ITM = ListView1.ListItems.Add()
ITM.Text = Format(Sht1.Cells(ii, 1), "mmm-yy")
    ITM.SubItems(1) = Sht1.Cells(ii, 3)
    ITM.SubItems(2) = Sht1.Cells(ii, 5)
    ITM. ...

藍橋玄霜老師：

顯示查詢窗體的Series 〝N3〞, 輸入了串連的關鍵字, 可是並順利找扣查詢結果,附上一些資料圖片, 麻煩老師你再幫幫忙:

例如:
1. 輸入了英文字母"s”後, 正常合符是顯示以下:

Copy of tom0409_1.zip (25.2 KB, 下载次数: 22)
Stret
Jouis
Miss
C'est Ca 001
AMST999

2. 但結果顯示如下:

圖2.zip (15.93 KB, 下载次数: 13)
Stret
AMST999

3. 其後再行輸入串連英文字母"t", 結果只顯示如下:

圖3.zip (12.02 KB, 下载次数: 16)
AMST999

[ 本帖最后由 tommyszeto 于 2010-4-10 12:46 编辑 ]

		自动登录	找回密码
密码			免费注册

[分享] (感谢蓝桥玄霜老师！问题已解决！) 多任务多条件数据模糊查询

最新热点 /1