12
返回列表 上一主題 發帖

一個VLOOKUP函數問題

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
11# 跳轉到 »
發表於 2012-4-25 21:52 | 只看該作者
大大好
問題在樓上已問過, 現把資料再整理上傳發問, 希望能明白原因, 謝謝!!
cc.rar (12.19 KB)
aa.gif

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
12#
發表於 2012-4-25 22:29 | 只看該作者
回復 11# 周大偉
程式碼有誤，應更正如下
  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
複製代碼
學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
13#
發表於 2012-4-25 22:59 | 只看該作者
本帖最後由 register313 於 2012-4-25 23:28 編輯

回復 11# 周大偉
  1. Private Sub ComboBox1_Change()
  2.   範圍 = Sheets("人民").Cells(3, 1).End(xlDown).Row
  3.   ComboBox1.ListFillRange = "人民!$a$3:$b$" & 範圍
  4.   [C3] = ComboBox1
  5. End Sub

  7. Private Sub Worksheet_Change(ByVal Target As Range)
  8. Dim A As Range
  9. If Target.Address <> "$C$3" Then Exit Sub
  10.    Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
  11. If A Is Nothing Then Exit Sub
  12.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
  13.   [C14] = A.Offset(, 11) & A.Offset(, 12)
  14. End Sub
複製代碼
cc.rar (12.54 KB)

TOP

周大偉

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

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
15#
發表於 2012-4-29 09:05 | 只看該作者
本帖最後由 317 於 2012-4-29 09:06 編輯

大大們, 早晨
在這網站中的確提升了不少知識, 而這篇文章的發問, 小妹也吸收了知識, 但小妹有一問題解不開, 請大大協助解答, 現附上檔案, 內有說明,先行謝過各版主及各大大, 謝謝!!
ss.rar (202.5 KB)

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
16#
發表於 2012-4-29 09:55 | 只看該作者
回復 15# 317
match函數，搜尋值得資料型態必須相符
因為下拉選單所連結的儲存格C3
當選擇為數字資料時，被視為文字，故而產生錯誤
你這個問題比較不好解決，是因為你的資料有文字與數字混合
建議你把人民工作表A欄資料利用資料剖析轉成文字格式
這樣就容易處理了
學海無涯_不恥下問

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
17#
發表於 2012-4-29 11:33 | 只看該作者
回復 16# Hsieh
謝謝Hsieh版主大大,
其實小妹也曾想過是數字與文字間的格式, 小妹做法是在儲存格格式中把a欄轉為文字, 但不成功,
大大教導用資料分析倒是沒試過, 但如大大所料, 當分析轉為文字, 問題便解決, 謝過大大教導, 感恩!!

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
12
返回列表 上一主題