如何帶出正確資料

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2011-12-11 17:28 | 顯示全部帖子

回復 5# chen890708

Book2.zip (10.58 KB)

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2011-12-12 21:41 | 顯示全部帖子

本帖最後由 register313 於 2011-12-12 21:43 編輯

回復 7# chen890708

A欄為品號(需自行輸入或使用驗證/清單來作選擇)
B2=VLOOKUP(A2,第1頁!$A:$C,3,0) 往下複製
請操作看看

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2011-12-14 19:26 | 顯示全部帖子

本帖最後由 register313 於 2011-12-14 19:38 編輯

回復 9# chen890708

你所要的功能應該不需要用到巨集
  巨集程式是要用VB編輯器編寫不是放在工作表儲存格內


  方便的話給email 我寄檔案給你
  檔案只用到2個技巧(未用巨集))
A欄為品號(用選的)
B欄為查表函數 B2=VLOOKUP(A2,第1頁!$A:$C,3,0)  往下複製

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2011-12-16 09:38 | 顯示全部帖子

回復 11# chen890708

c(1, 2) = Sheets("第1頁").[a:z].Find(c)(1, 2)
===> c(1, 3) = Sheets("第1頁").[a:z].Find(c, , xlValues, xlWhole)(1, 3)