jesscc

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-10-20 16:47 | 只看該作者

[發問] 字典使用問題

工作是這樣的
用工作表2的"PN"欄位去跟工作表1的"PN"欄位比對，如果有比對到相同的，就把那個PN從C欄到L欄的數值傳回到工作表2相同PN的對應位置，程式一直沒辦法正確執行，不過實在找不到哪裡有問題，能幫忙看一下問題出在哪嗎?

test.rar (13.41 KB)

樓主熱帖

Jess

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

2^#

發表於 2018-10-20 21:25 | 只看該作者

回復 1# jesscc
程式碼修改如下：

Option Base 1
Sub test()
With Sheets("工作表1")
Set D = CreateObject("Scripting.Dictionary")
For Each B In .Range(.[B6], .[B100].End(xlUp))
Dim Ar(10)
For p = 1 To 10
Ar(p) = B.Offset(, p).Value
Next p
D(B & "") = Ar
Next
End With
With Sheets("工作表2")
.[F7:O1000].ClearContents
For Each E In .Range(.[E7], .[E100].End(xlUp))
If D.EXISTS(E & "") Then
E.Offset(, 1).Resize(, 10) = D(E & "")
Else: E.Offset(, 1) = "查無此 PN"
End If
Next
End With
End Sub

複製代碼

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

3^#

發表於 2018-10-20 23:25 | 只看該作者

請問K大，我之前其他的工作，字典程式開頭都沒加這段 "Option Base 1"，將陣列索引值下限設為1，但都可以正常執行，為什麼在這裡沒有加就會執行錯誤?

Jess

TOP

jackyq

中學生 Rank: 2

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

4^#

發表於 2018-10-21 07:34 | 只看該作者

回復 3# jesscc

With Sheets("工作表2")
.[F7:O1000].ClearContents
For Each E In .Range(.[E7], .[E100].End(xlUp))
   If D.EXISTS(B & "") Then
   E.Offset(, 1).Resize(, 10) = D(B & "")
   Else: E.Offset(, 1) = "查無此 PN"
   End If
Next
End With

TOP

jackyq

中學生 Rank: 2

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

5^#

發表於 2018-10-21 07:38 | 只看該作者

B change as E

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

6^#

發表於 2018-10-21 08:57 | 只看該作者

B change as E
jackyq 發表於 2018-10-21 07:38

已改，可正常執行，但我的疑問是如果把第一段這句 "Option Base 1" 拿掉，整個資料傳回結果會向右偏一欄，我只知道這是陣列索引下限值的問題，如果在不設定下限值的情形下，要如何改寫原來的陣列排列?

Jess

TOP

jackyq

中學生 Rank: 2

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

7^#

發表於 2018-10-21 10:26 | 只看該作者

回復 6# jesscc

With Sheets("工作表1")
Set D = CreateObject("Scripting.Dictionary")

For Each B In .Range(.[B6], .[B100].End(xlUp))
Dim Ar(10)
For p = 1 To 10
Ar(p) = B.Offset(, p).Value
Next p
D(B & "") = Ar
Next
End With

Dim Ar(10) change as Dim Ar(1 To 10)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-27

8^#

發表於 2018-10-21 11:00 | 只看該作者

Sub Test2()
Dim Arr, Brr, xD, i&, j%, U&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([工作表1!L6], [工作表1!B65536].End(xlUp))
For i = 1 To UBound(Arr): xD(Arr(i, 1)) = i: Next

[工作表2!F7:O2000].ClearContents
Brr = Range([工作表2!O7], [工作表2!E65536].End(xlUp))
For i = 1 To UBound(Brr)
U = xD(Brr(i, 1)): Brr(i, 2) = "查無此PN": If U = 0 Then GoTo 101
For j = 2 To 11: Brr(i, j) = Arr(U, j): Next
101: Next i
[工作表2!E7:O7].Resize(UBound(Brr)) = Brr
End Sub

TOP

Kubi

中學生 Rank: 2

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

9^#

發表於 2018-10-21 20:02 | 只看該作者

回復 3# jesscc

若沒有宣告Option Base 1的話，則底下的Dim Ar(10)會包含Ar(0)、Ar(1)、Ar(2)、Ar(3)...、Ar(10)共有11個陣列元素。
若宣告Option Base 1的話，則Ar(10)陣列只包含Ar(1)、Ar(2)、Ar(3)...、Ar(10)，10個陣列元素。
若Option Base 1 拿掉的話，整個資料傳回結果會向右偏一欄就是這個道理。

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

10^#

發表於 2018-10-21 20:51 | 只看該作者

回復 9# Kubi
謝謝K大，了解了。

Jess

TOP