　暱稱: jjjohn

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-26 00:21 | 只看該作者

[發問] 請問怎樣尋找相同的資料

本帖最後由 john2006168 於 2011-8-27 17:48 編輯

請問 ,我有2個 sheets,用sheet1的part no,尋找資料庫找sheet2(資料庫)相同的part no,如找到在sheet1 填上資料庫的"ref no",

但是資料庫內有些相同的part no有2個ref.,請問我應該點改下列程序,我是新手請老師指導.

Sub testchecking()

test.rar (7.8 KB)

Dim i As Integer
Dim j As Integer
Dim RANGE As String

For i = 3 To Sheet1.RANGE("c65536").End(xlUp).Row
For j = 2 To Sheet2.RANGE("E65536").End(xlUp).Row

If Sheet1.Cells(i, 3).Value = Sheet2.Cells(j, 5).Value Then

      Sheet1.Cells(i, 12).Value = Sheet2.Cells(j, 2).Value

      ElseIf Sheet1.Cells(i, 3).Value <> Sheet2.Cells(j, 5).Value Then
Sheet1.Cells(i, 12).Value = "No received"

ElseIf Sheet1.Cells(i, 2).Value = "" Then Sheet1.Cells(i, 12).Value = ""

End If

If Sheet1.Cells(i, 3).Value = Sheet2.Cells(j, 5).Value Then

Sheet1.Cells(i, 12).Value = Sheet2.Cells(j, 2).Value
Sheet1.Cells(i, 13).Value = Sheet2.Cells(j, 1).Value

i = i + 1
End If
Next
Next

End Sub

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-8-28 15:56 | 只看該作者

回復 1# john2006168
使用Dictionary 物件試試看

Sub Ex()
Dim D As Object, E, S As String, S1 As String
Set D = CreateObject("SCRIPTING.DICTIONARY")
With Sheets("Sheet2")
For Each E In .Range("E2", .[E2].End(xlDown))
If D.EXISTS(E.Value) = False Then
D(E.Value) = Array(E.Offset(, -3), E.Offset(, -4))
Else
S = "," & D(E.Value)(0) & ","
If InStr(S, "," & E.Offset(, -3) & ",") = 0 Then
S = D(E.Value)(0) & "," & E.Offset(, -3)
Else
S = D(E.Value)(0)
End If
S1 = "," & D(E.Value)(1) & ","
If InStr(S1, "," & E.Offset(, -4)) & "," = 0 Then
S1 = D(E.Value)(1) & "," & E.Offset(, -4)
Else
S1 = D(E.Value)(1)
End If
D(E.Value) = Array(S, S1)
End If
Next
End With
With Sheets("Sheet1")
For Each E In .Range("C3", .[C3].End(xlDown))
If D.EXISTS(E.Value) Then
E.Offset(, 9) = D(E.Value)(0)
E.Offset(, 10) = D(E.Value)(1)
Else
E.Offset(, 9) = "No received"
E.Offset(, 10) = ""
End If
Next
End With
End Sub

複製代碼

TOP

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

3^#

發表於 2011-8-28 21:40 | 只看該作者

回復 2# GBKEE

It is ok, 多謝老師抽時間回覆.

TOP

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

4^#

發表於 2011-8-28 22:30 | 只看該作者

回復 john2006168
使用Dictionary 物件試試看
GBKEE 發表於 2011-8-28 15:56

另外想問 D(E.Value)(0), (0)是什麼意思??
D(E.Value)(1), (1)是什麼意思??

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2011-8-29 14:33 | 只看該作者

回復 4# john2006168
Dictionary 物件 D(Key->關鍵字) = Item ->對應項目
D(E.Value) = Array(E.Offset(, -3), E.Offset(, -4))
D(E.Value)(0) = Array(0)
D(E.Value)(1) = Array(1)

TOP

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 178
主題: 65
精華: 0
積分: 252
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2024-2-1

6^#

發表於 2011-8-31 22:40 | 只看該作者

回復 john2006168
Dictionary 物件 D(Key->關鍵字) = Item ->對應項目
D(E.Value) = Array(E.Offset(, ...
GBKEE 發表於 2011-8-29 14:33

Thanks.

TOP