12
返回列表 上一主題 發帖

一個VLOOKUP函數問題

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-22 22:09 | 只看該作者

一個VLOOKUP函數問題

大大們, 安好
有一VLOOKUP問題請教,現把附件上傳, 請大大們教導, 謝謝!!
Book1.rar (8.71 KB)
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-22 22:26 | 只看該作者
回復 1# 317

先用函數來完成,參考

1.選C4~C13
  輸入=TRANSPOSE(OFFSET(Sheet1!B3:K3,MATCH(C3,Sheet1!A3:A18,0)-1,0))
   Ctrl+Shift+Enter 完成輸入
2.C14=VLOOKUP(C3,Sheet1!A3:M18,12,0)&VLOOKUP(C3,Sheet1!A3:M18,13,0)

transpose.rar (6.52 KB)

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
3#
發表於 2012-4-22 22:38 | 只看該作者
回復 2# register313
謝謝大大回應, 其實我現時之檔案也是函數完成, 函數雖不是同一但功效與大大的一樣, 但真心感謝大大,
因檔案有時給予其他同事使用, 往往做成, 工作表函數損壞, 而同事亦不明白原理, 故希望能用程式取代, 因程式是在程式區, 是不會受到損壞,故請大大們協助, 謝謝!!

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-4-22 22:45 | 只看該作者
回復 3# 317
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. If Target.Address <> "$C$3" Then Exit Sub
  4. Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
  5. If A Is Nothing Then Exit Sub
  6. [C4].Resize(10, 1) = A.Offset(, 1).Resize(, 10).Value
  7. [C14] = A.Offset(, 11) & A.Offset(, 12)
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
5#
發表於 2012-4-23 06:15 | 只看該作者
回復 4# Hsieh
謝謝版主大大, 衷心感謝, 祝快樂..

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
6#
發表於 2012-4-24 01:52 | 只看該作者
Hsieh 版主大大,好
小弟有問題請教, 現把問題寫於檔案工作表3, 請大大教導, 感恩
aa.rar (8.97 KB)

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
7#
發表於 2012-4-24 18:45 | 只看該作者
本帖最後由 周大偉 於 2012-4-24 18:54 編輯

transpose.rar (20.27 KB) 回復 2# register313
大大, 好
小弟試用大大函數, 這條函數均用上陣列
=TRANSPOSE(OFFSET(Sheet1!B3:K3,MATCH(C3,Sheet1!A3:A18,0)-1,0))
=VLOOKUP(C3,Sheet1!A3:M18,12,0)&VLOOKUP(C3,Sheet1!A3:M18,13,0)
b3:k3是傳回欄位b至k, a3:a18是範圍, 按若改變範圍, a1:1000, 對話盒彈出提示, 不能改變陣列一部份, 請教大大, 若把範圍若大是如何修改
謝謝謝!

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-4-24 19:13 | 只看該作者
回復 7# 周大偉

請詳看2#之操作步驟
transpose.rar (22.5 KB)

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
9#
發表於 2012-4-24 19:20 | 只看該作者
回復 6# 周大偉
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. If Target.Address <> "$C$3" Then Exit Sub
  4.   Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
  5. If A Is Nothing Then Exit Sub
  6.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
  7.   [C14] = A.Offset(, 11) & A.Offset(, 12)
  8. End Sub
複製代碼
aa.rar (9.17 KB)

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
10#
發表於 2012-4-24 22:35 | 只看該作者
回復 9# register313
謝過大大回應,  衷心感謝謝!!,

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
12
返回列表 上一主題