Hsieh

¦^´_ 1# hong912

1. Sub ¦a§}§ó·s()
   
2. '¨âÀɮ׸m©ó¦P¤@¥Ø¿ý
   
3. Dim A As Range, Wk As Workbook, Sh As Worksheet, d As Object, yn As Integer
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Set Wk = Workbooks.Open(ThisWorkbook.Path & "\" & "¦a§}°O¿ýªí.xlsm")
   
6. For Each Sh In Wk.Sheets
   
7.    With Sh
   
8.       For Each A In .Range(.[A2], .[A2].End(xlDown))
   
9.         d(A.Value) = Array(A.Offset(, 1), Sh.Name, A.Offset(, 1).Address)
   
10.       Next
    
11.    End With
    
12. Next
    
13. With ThisWorkbook.Sheets(1)
    
14.   If d.exists(.[B25].Value) And d(.[B25].Value)(0) <> .[B26] Then
    
15.      yn = MsgBox("¦a§}¤£¦P¡A¬O§_§ó·s?", vbYesNo)
    
16.      If yn = 6 Then
    
17.         Wk.Sheets(d(.[B25].Value)(1)).Range(d(.[B25].Value)(2)) = .[B26]
    
18.         Wk.Close 1
    
19.         Else
    
20.         Wk.Close 0
    
21.      End If
    
22.   End If
    
23. End With
    
24. End Sub

½Æ»s¥N½X