[發問] 如何尋找相同資料並複製其他欄位

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

2^#

發表於 2012-9-30 20:42 | 顯示全部帖子

本帖最後由 cslinmiso 於 2012-9-30 20:44 編輯

回復 2# hugh0620

謝謝您的回應，非常感謝。
但我套用您的公式試執行後出現錯誤13 型態不符合
是否為哪裡有錯誤或者小弟哪裡弄錯了呢？
謝謝

Case 1
If Target.Offset(0, 1) = "" And Target.Offset(0, 2) = "" Then Exit Sub

複製代碼

是在此發生錯誤的。

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

3^#

發表於 2012-10-1 22:37 | 顯示全部帖子

回復 5# GBKEE
非常感謝GBKEE版主，試用後得到我想要的結果:)
小弟不材還需要跟各位多討教
想請問一個問題，若今日需要在另外一份檔案搜尋(假設為Sheet1的資料)
是否將 Set Rng = Sheets("sheet1").[a2] 此行
定義成worksheet.sheet("檔名").[a2] 即可呢?

hugh0620大哥
已附上檔案
若是小弟操作方面錯誤還得見諒，此外感謝大力協助

comparison.rar (17.51 KB)

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

4^#

發表於 2012-10-1 22:39 | 顯示全部帖子

回復 6# Hsieh

是的，日期時間名字都必須完全符合才複製DEF欄位的資料至該欄。
謝謝協助 :)

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

5^#

發表於 2012-10-1 22:54 | 顯示全部帖子

Hsieh 版主，您的程式也執行成功
但概念以及程式用法上，小弟尚有不解，可否請您簡述一下呢？
同是利用Dictionary物件
您的程式硬是少上許多，這其中有什麼差異呢？
謝謝

PS:小弟並非有意發這麼多次文，係為時間差，又想到問題想問。請見諒

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

6^#

發表於 2012-10-2 11:25 | 顯示全部帖子

回復 10# GBKEE

感謝版主再次回覆，小弟會試驗看看，遇錯再發問還請指教。

此外，小弟發現之前給的檔案格式有錯誤，試用正確格式的檔案，各位大哥的程式都跑不出來了。
欄位一切都一樣，但是就是跑不出來，我重做了一次表格內容也有更動，想請各位再次指點，謝謝。

Compa.rar (11.55 KB)

-------
另外藉此機會順便問一下小弟寫的一個程式是否可以更簡潔，或者有更好的寫法。
謝謝

相信各位都應該看得懂，不過我還是大概解釋一下
此程式是取用Week (週數)分析.XLS 該報表內的數據
先以某欄(mytype)篩選出各項後計數填入另外一份報表Weekly Refund report letter.xls 之 D10欄位開始13個欄位
大概即是如此

Sub Macro8()
Dim mySubtotal As Double
Dim mytype As Variant
Dim Wkabc As Variant
Dim Wkvip As Variant
Dim myx, myi As Integer
Dim i As Integer
Dim searchTerm As String
Dim myArray(10) As String
Application.ScreenUpdating = False '關閉螢幕更新
Wkabc = Application.InputBox(prompt:="Please Input Current Week", Title:="Weekly Report Letter for ABC")
Filename = "Week " & Wkabc & "分析" & ".XLS" 'report名稱更改週數
'搜尋開啟的report名稱
For i = 1 To Workbooks.Count
'Arr = Array(Workbooks(i).Name)
myArray(i) = Workbooks(i).Name
Next
GoTo Search '搜尋開啟的report名稱
Search: 'find report name contains wkabc
searchTerm = Wkabc & "分析"
'Check if a value exists in the Array
If UBound(Filter(myArray, searchTerm)) >= 0 And searchTerm <> "" Then
GoTo Filter1
Else
MsgBox "找不到此報告，確認是否輸入正確並確認檔案已經開啟"
'若找不到就停止
GoTo Weeklyvip
End If
Filter1:
mytype = Array("Absent", "Client", "Computer", "Connection", "Consultant Shortage", "Disconnection", "Disconnection(Idle)", "Headset", "Instant Break (Disconnection)", "Other", "Power Outage", "System", "TE")
'計數myi 13 次
For myi = 0 To 12
'定義MYX為陣列 mytpe + MYI次數(即位置)
myx = (mytype(myi))
' 'Filter
Workbooks(Filename).Activate
mySubtotal = D10
Worksheets("分析").Range("$A$1:$J$250").AutoFilter Field:=9, Criteria1:=myx
'Count range
mySubtotal = Application.WorksheetFunction.Subtotal(3, Worksheets("分析").Range("B2:B250"))
Windows("Weekly Refund report letter.xls").Activate
Range("D" & myi + 10) = mySubtotal
Next myi
Workbooks(Filename).Activate
ActiveSheet.Range("$A$1:$J$250").AutoFilter Field:=9 '開回篩選ALL

複製代碼

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

7^#

發表於 2012-10-2 19:53 | 顯示全部帖子

感謝GBKEE再次提點，試用後的確是執行正常。完美無缺。
真不知道小弟當時怎麼會一直執行後得到空白？

感謝您的修正，看見您將陣列改成for each，請問此種寫法是否比較直覺或者比較簡單呢？
小弟還是新手常常繞了一大圈。

今日還有寫了幾個還得勞駕各位看看，不過現在已經在家了，明天再勞煩各位。

再次感謝GBKEE版主以及Hsieh 超版.hugh0620 ^_^

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

8^#

發表於 2012-10-4 16:09 | 顯示全部帖子

回復 15# GBKEE

謝謝GBKEE版主提點，試用您的程式後正常。
想請問我原本的程式是比較不好還是會造成問題呢?

hugh0620 十分感謝您的幫助，我會吸收您的建議

感謝各位，今後有問題我想我應該直接接著這篇繼續問好了(如果相關的話)

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。