Hsieh

回復 1# peter460191

不可能利用2個儲存格做為互相查詢的輸入
應該是利用單一儲存格做為輸入(可任意輸入代碼或是公司名稱)
而D3:D4作為查詢結果

下載 (90.43 KB)

2013-2-18 14:03

Hsieh

回復 3# peter460191

這是要用VBA來寫，一般公式是不可能達成的
工作表模組

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. If Intersect(Target, [D3:D4]) Is Nothing Then Exit Sub
   
4. Application.EnableEvents = False
   
5. Set A = Columns("A:B").Find(Target, lookat:=xlWhole)
   
6. If A Is Nothing Then MsgBox "輸入錯誤": [D3:D4] = "": GoTo 10
   
7. [D3] = Cells(A.Row, 1).Value
   
8. [D4] = Cells(A.Row, 2)
   
9. 10
   
10. Application.EnableEvents = True
    
11. End Sub

複製代碼