¸óÀɮ׭קï¦a§}

hong912

«e½ú­Ì, ¦n³B
¤p§Ì¦³¤@­×§ï¦a§}°ÝÃD½Ð«e½ú­Ì¨ó§U, ²{ªþÀÉ, ¤º¦³»¡©ú, ¥ý¦æÁ¹L..
¯¬¶P«e½ú­Ì¤Î¦Uª©¤j, ·s¦~§Ö¼Ö, ¨­Åé°·±d..
Desktop.zip (15.8 KB)

¤U¸ü¦¸¼Æ: 17

2018-2-14 18:28

Kubi

¦^´_ 1# hong912
½Ð°Ñ¦Ò¡C
©ú²Óªí.rar (18.36 KB)

¤U¸ü¦¸¼Æ: 10

2018-2-27 10:46

hong912

¦^´_ 2# Kubi
¤j¤j, ¦­±á
·PÁ¦^À³, ¯¬Ä@·s¤@¦~¨­Åé°·, ¸U¨Æ¦p·N..

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

hong912

¦^´_ 4# Hsieh
ÁÂÁª©¤j¦^À³,
¤p§Ì°J¤ß·PÁÂ, ©ó¦¹¯¬Ä@¨­Åé°·±d..ÁÂÁÂ..