- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 註冊時間
- 2015-1-20
- 最後登錄
- 2023-10-1
|
小弟這有一個程式當資料庫的B欄=F欄 ,C欄=G欄則H欄會帶出A欄的值
請教先進是否可以改成在活頁簿"Test"A欄="資料庫"B欄 ,"Test"B欄="資料庫"C欄 則"Test"C欄會帶出"資料庫"A欄,"Test"D欄會帶出"資料庫"D欄
"資料庫"
Part No. Name NOTE DATA
1 A OK NA
2 B OK NA
3 C OK NA
4 D OK NA
5 E OK NA
"Test"
Name NOTE Part No. DATA
A OK
C OK
E OK- Option Explicit
- Sub Lib()
- Dim Rng, Ar, R As Range, i As Integer, ii As Integer
-
- Ar = Range("A1").CurrentRegion.Value '資料庫
-
- i = [MATCH(H1,A1:C1,0)] '比對所有條件
-
- Set Rng = Range("F1", Range("F1").End(xlDown)).Resize(, 2)
-
- For Each R In Rng.Rows
-
- For ii = 1 To UBound(Ar, 1)
-
- If R.Cells(1, 1) & R.Cells(1, 2) = Ar(ii, 2) & Ar(ii, 3) Then
-
- R.Cells(1, 3) = Ar(ii, 1)
-
- Exit For
- End If
- Next
- Next
- End Sub
|
|
發表於 2015-6-14 01:42
| 
