返回列表 上一主題 發帖

[發問] 如何用VBA搜尋兩工作表資料

ansonwen0107

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
winxp 
軟體版本
ie7 
閱讀權限
10 
註冊時間
2010-6-11 
最後登錄
2011-8-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-24 18:37 | 只看該作者

[發問] 如何用VBA搜尋兩工作表資料

本帖最後由 ansonwen0107 於 2010-7-24 19:50 編輯

請各位大大幫忙..很急~

目前有兩個產品類別 ,其目前兩產品分別在不同工作表 sheet A ,sheet B
(A產品與B產品流程是不一樣 )


sheetA : (目前產品A的現狀)

站點     產品批號 目前狀態 處置結果
yy1     aa9x10    hold            P
yy2     aa9x20    wait            Q
yy3     aa9x60    run             S
yy5     aa9x80    hold            P
.              .              .                 .
.              .              .                 .
.              .              .                .
.              .              .                .
yy99  aa9x81       run             Q

=====================

sheetB : (目前產品B的現狀)

站點              產品批號          目前狀態     處置結果
zz1              aa7x11         hold            P
zz5              aa7x21         wait            Q
zz3              aa7x61         run              S
zz6              aa7x81         hold            P
.                      .                   .              .
.                      .                   .              .
.                      .                   .              .
.                      .                   .              .
zz81           aa7x82          run           Q

========================
Sheet C: ( 依使用者輸入產品批號 ,帶出 站點 / 目前狀態 / 處置結果 )

產品批號 站點 目前狀態 處置結果
aa7x21
aa6x34
aa7x21
aa6x34
aa7x21
aa6x34
.
.
.
aa7x23

目前想要在另一工作表 sheetC 輸入一些產品批號 , 去搜尋SheetA ,
及Sheet B 相同的批號 , 且能帶出相同的站點 , 目前狀況及處置結果欄位
若sheetC 輸入一些產品批號,在SheetA 及Sheet B 中找不到 , 則在
sheetC 中的相對產品批號的目前狀況帶出 "ok" 訊息
( 另外所有sheetA , B, C 的產品批號數量都是不固定相同 )

wipsearch.rar (2.3 KB)

問題檔

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-7-24 19:37 | 只看該作者
回復 1# ansonwen0107
請附上範例檔 並說明之

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2010-7-25 00:09 | 只看該作者
回復 1# ansonwen0107
  1. Sub searchdata()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each sh In Sheets(Array("a", "b"))
  4.    With sh
  5.      For Each a In .Range(.[B2], .[B65536].End(xlUp))
  6.         d(a.Value) = Array(a.Offset(, -1).Value, a.Offset(, 1).Value, a.Offset(, 2).Value)
  7.      Next
  8.     End With
  9. Next
  10. With Sheets("尋找")
  11.    For Each a In .Range(.[A2], .[A65536].End(xlUp))
  12.       a.Offset(, 1).Resize(, 3) = ""
  13.       a.Offset(, 1).Resize(, 3) = d(a.Value)
  14.    Next
  15. End With
  16. End Sub
複製代碼
學海無涯_不恥下問

TOP

ansonwen0107

帖子
2 
主題
1 
精華
0 
積分
8 
點名
0  
作業系統
winxp 
軟體版本
ie7 
閱讀權限
10 
註冊時間
2010-6-11 
最後登錄
2011-8-23 
4#
發表於 2010-7-25 10:51 | 只看該作者
回復 3# Hsieh


    謝謝老師~~~對於小弟受用很大~~~~

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
返回列表 上一主題