Hsieh

¦^´_ 12# hugh0620
¨º´N¨Ä¤@ÂI

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Dim Ay()
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. With Sheet2
   
6. .Unprotect "1234"
   
7. 
   
8. 
   
9.     ar = .Range(.[B5], .[B65536].End(xlUp).Offset(, 2))
   
10.         For i = 1 To UBound(ar, 1)
    
11.             mystr1 = Join(Array(ar(i, 1), ar(i, 2), ar(i, 3)))
    
12.             d(mystr1) = d.Count
    
13.         Next
    
14. 
    
15.     With Sheet1
    
16.         ar = .Range(.[B5], .[B65536].End(xlUp).Offset(, 6))
    
17.         For i = 1 To UBound(ar, 1)
    
18.             mystr1 = Join(Array(ar(i, 1), ar(i, 2), ar(i, 6)))
    
19.             If d.exists(mystr1) = False Then
    
20.                 ReDim Preserve Ay(s)
    
21.                 Ay(s) = Array(ar(i, 1), ar(i, 2), ar(i, 6), ar(i, 7))
    
22.                 s = s + 1
    
23.             End If
    
24.         Next
    
25.     End With
    
26.     If s > 0 Then .[B65536].End(xlUp).Offset(1, 0).Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))
    
27.     .Protect "1234"
    
28. 
    
29. End With
    
30. 
    
31. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 10# Hsieh

   Dear ¤j¤j

   ¤p¤p¥d¼u¤¤,­Y¬Osheet[Data]¤¤¤w¦³¤@µ§¸ê,§Ú¸g¹L´ú¸Õ«á,¦b¬¡­¶[¿é¤J]´N¶×¤£¹L¥h¤F,
    °õ¦æªº®É­Ôµo²{¬O mystr1 = Join(Application.Index(ar, i)) ³o¦æ«ü¥O·|²£¥Í{°õ¦æ¶¥¬q¿ù»~"13" «¬ºA¤£²Å}
    ½Ð¤j¤j«ü¾É¤@¤U~

   °ÝÃD¦pªþ¥ó¤§½d¥» ¶×¥X_¦ý¤£­«ÂÐ_©µ¦ùÃD4.rar (12.54 KB)

¤U¸ü¦¸¼Æ: 5

2011-1-10 11:28

hugh0620

¦^´_ 10# Hsieh


    ÁÂÁ¤j¤j~ °ÝÃD¸Ñ¨M¤F
        ¥u­n¦b¶×«e¸Ñ¶}(Unprotect)»P¶×«áÂê¤W´N¦n¤F(Protect)

   ¯u¬O·PÁ¤j¤j~ §Úªº¾ã¥÷³øªíºCºC±N§¹¦¨

Hsieh

¦^´_ 9# hugh0620

1. Private Sub CommandButton1_Click()
   
2. 
   
3. Dim Ay()
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. With Sheet2
   
6. .Unprotect "password"  'password«ü¤u§@ªí«OÅ@±K½X
   
7.     ar = .Range(.[B5], .[B65536].End(xlUp).Offset(, 2))
   
8.         For i = 1 To UBound(ar, 1)
   
9.             mystr1 = Join(Application.Index(ar, i))
   
10.             d(mystr1) = d.Count
    
11.         Next
    
12. 
    
13.     With Sheet1
    
14.         ar = .Range(.[B5], .[B65536].End(xlUp).Offset(, 6))
    
15.         For i = 1 To UBound(ar, 1)
    
16.             mystr1 = Join(Array(ar(i, 1), ar(i, 2), ar(i, 6)))
    
17.             If d.exists(mystr1) = False Then
    
18.                 ReDim Preserve Ay(s)
    
19.                 Ay(s) = Array(ar(i, 1), ar(i, 2), ar(i, 6), ar(i, 7))
    
20.                 s = s + 1
    
21.             End If
    
22.         Next
    
23.     End With
    
24.     If s > 0 Then .[B65536].End(xlUp).Offset(1, 0).Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))
    
25.     .Protect "password"  'password«ü¤u§@ªí«OÅ@±K½X
    
26. End With
    
27. 
    
28. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 7# Hsieh


    Dear ¤j¤j

        ¤p§Ì¤S¤p¥d¼u¤F~ ¤j¤j§Ú»Ý­n±N¸ê®Æ¶×¥X,¦ý¬ODataªº³¡¥÷¤S­n«OÅ@ÁקK³Q¨Ï¥ÎªÌ­×§ï(¨Ï¥ÎªÌ¶È¯à¬Ý)
            ¦pªG§Ú§â¤u§@­¶«OÅ@¤F,¶×¥Xªº®É­Ôµ{¦¡°õ¦æ´N·|²£¥Í¿ù»~
        ³o¼Ëªº°ÝÃD¬O§_¥i¥H¸Ñ¨M©O??

            ªþ¥ó¬°°ÝÃD¤§½d¥» ¶×¥X_¦ý¤£­«ÂÐ_©µ¦ùÃD3.rar (12.41 KB)

¤U¸ü¦¸¼Æ: 7

2011-1-6 18:14

hugh0620

¦^´_ 7# Hsieh


    ÁÂÁ¤j¤j~ ­ì¨Ó¥u­n§âxldown §ï¦¨xlup´N¥i¥H±Nbugµ¹§JªA

Hsieh

¦^´_ 7# hugh0620

1. Private Sub CommandButton1_Click()
   
2. Dim Ay()
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheet2
   
5.     ar = .Range(.[B5], .[B65536].End(xlUp).Offset(, 2))
   
6.         For i = 1 To UBound(ar, 1)
   
7.             mystr1 = Join(Application.Index(ar, i))
   
8.             d(mystr1) = d.Count
   
9.         Next
   
10. 
    
11.     With Sheet1
    
12.         ar = .Range(.[B5], .[B65536].End(xlUp).Offset(, 6))
    
13.         For i = 1 To UBound(ar, 1)
    
14.             mystr1 = Join(Array(ar(i, 1), ar(i, 2), ar(i, 6)))
    
15.             If d.exists(mystr1) = False Then
    
16.                 ReDim Preserve Ay(s)
    
17.                 Ay(s) = Array(ar(i, 1), ar(i, 2), ar(i, 6), ar(i, 7))
    
18.                 s = s + 1
    
19.             End If
    
20.         Next
    
21.     End With
    
22.     If s > 0 Then .[B65536].End(xlUp).Offset(1, 0).Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))
    
23. End With
    
24. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 4# Hsieh

Dear ¤j¤j
     §Ú¥Î¤@­Ó«Ü²Âªº¤è¦¡¨Ó³B²z·íDATAµL¸ê®Æ®É,©Ò²£¥Íªº°ÝÃD
     ¤£ª¾¹D¤j¤j¬O§_¦³¨ä¥L¤è¦¡
     ³o¬O§Ú¥Î¤j¤jªºµ{¦¡½X­×§ï (¬õ¦â¬°§Ú·s¼Wªº¦a¤è)
Dim Ay()
Set d = CreateObject("Scripting.Dictionary")
With Sheet2
    ar = .Range(.[B5], .[B5].End(xlDown).Offset(, 2))
        If UBound(ar, 1) = 0 Or UBound(ar, 1) = 65536 - 4 Then
            For i = 1 To 1
                mystr1 = Join(Application.Index(ar, i))
                d(mystr1) = d.Count
            Next
        Else            For i = 1 To UBound(ar, 1)
                mystr1 = Join(Application.Index(ar, i))
                d(mystr1) = d.Count
            Next
        End If    With Sheet1
        ar = .Range(.[B5], .[B5].End(xlDown).Offset(, 6))
        For i = 1 To UBound(ar, 1)
            mystr1 = Join(Array(ar(i, 1), ar(i, 2), ar(i, 6)))
            If d.exists(mystr1) = False Then
                ReDim Preserve Ay(s)
                Ay(s) = Array(ar(i, 1), ar(i, 2), ar(i, 6), ar(i, 7))
                s = s + 1
            End If
        Next
    End With
    If s > 0 Then .[B65536].End(xlUp).Offset(1, 0).Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))
End With

hugh0620

¦^´_ 4# Hsieh


    Dear ¤j¤j
        ·PÁÂ~ §Úª¾¹D­n§ï­þÃä¤F~ µ{¦¡½X°õ¦æ¤W¤]¨S¦³°ÝÃD~
            ¦ý¬O¤p§Ì¦b´ú¸Õ®É~ ¤S­J«ä¶Ã·Q~ µ²ªG~ §ä¥X¤F¤@­Ó°ÝÃD~
            ´N¬O­YData¤¤~¤@¶}©l´N¨S¦³¸ê®Æ©Î¬O¶È¤@µ§¸ê®Æªº®É­Ô¦n¹³¬O´N·|²£¥Í°ÝÃD~
             For i = 1 To UBound(ar, 1) ¸Ó¦æ«ü¥O¤¤UBound(ar, 1) ´N·|µ¥©ó65536 ³y¦¨¤@ª½¶]¤£°±

        ¦A½Ð¤j¤j½ç±Ð¤@¤U

        ªþ¥ó¬°°ÝÃD¤§½d¥» ¶×¥X_¦ý¤£­«ÂÐ_©µ¦ùÃD2.rar (10.98 KB)

¤U¸ü¦¸¼Æ: 8

2011-1-4 17:59

Hsieh

¦^´_ 3# hugh0620

1. Private Sub CommandButton1_Click()
   
2. Dim Ay()
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. With Sheet2
   
5.     ar = .Range(.[B5], .[B5].End(xlDown).Offset(, 2))
   
6.         For i = 1 To UBound(ar, 1)
   
7.             mystr1 = Join(Application.Index(ar, i))
   
8.             d(mystr1) = d.Count
   
9.         Next
   
10. 
    
11.     With Sheet1
    
12.         ar = .Range(.[B5], .[B5].End(xlDown).Offset(, 6))
    
13.         For i = 1 To UBound(ar, 1)
    
14.             mystr1 = Join(Array(ar(i, 1), ar(i, 2), ar(i, 6)))
    
15.             If d.exists(mystr1) = False Then
    
16.                 ReDim Preserve Ay(s)
    
17.                 Ay(s) = Array(ar(i, 1), ar(i, 2), ar(i, 6), ar(i, 7))
    
18.                 s = s + 1
    
19.             End If
    
20.         Next
    
21.     End With
    
22.     If s > 0 Then .[B65536].End(xlUp).Offset(1, 0).Resize(s, 4) = Application.Transpose(Application.Transpose(Ay))
    
23. End With
    
24. 
    
25. End Sub

½Æ»s¥N½X