周大偉

大大好
問題在樓上已問過, 現把資料再整理上傳發問, 希望能明白原因, 謝謝!!
cc.rar (12.19 KB)

下載次數: 3

2012-4-25 21:51

下載 (311.73 KB)

2012-4-25 21:52

Hsieh

回復 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

複製代碼

register313

回復 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
   
6. 
   
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)

下載次數: 7

2012-4-25 23:28

周大偉

謝謝register313 大大, 及Hsieh 大大,
衷心感謝,

317

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

下載次數: 9

2012-4-29 09:05

Hsieh

回復 15# 317
match函數，搜尋值得資料型態必須相符
因為下拉選單所連結的儲存格C3
當選擇為數字資料時，被視為文字，故而產生錯誤
你這個問題比較不好解決，是因為你的資料有文字與數字混合
建議你把人民工作表A欄資料利用資料剖析轉成文字格式
這樣就容易處理了

317

回復 16# Hsieh
謝謝Hsieh版主大大,
其實小妹也曾想過是數字與文字間的格式, 小妹做法是在儲存格格式中把a欄轉為文字, 但不成功,
大大教導用資料分析倒是沒試過, 但如大大所料, 當分析轉為文字, 問題便解決, 謝過大大教導, 感恩!!