Hsieh

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

複製代碼

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

複製代碼

Hsieh

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