Hsieh

¦^´_ 5# hank10459
®æ¦¡¤Æ±ø¥ó¬OµLªk±±¨î±×½uªº®æ½u
¬JµM¥ÎVBA»²§U¡A¥i¥H²³æ¤@ÂI
03BAY¤u§@ªí¼Ò²Õµ{¦¡½X

1. Private Sub Worksheet_Activate()
   
2. Dim r&, k&, i%
   
3. With Sheets("(04)05BAY")
   
4. For k = 3 To 33 Step 3 'CÄæ¨ìAGÄæ¡A¶¡¹j3Äæ´`Àô
   
5.    For r = 4 To 26 Step 3 '²Ä4¦C¨ì26¦C¡A¶¡¹j3¦C´`Àô
   
6.       If Application.CountA(.Cells(r, k).Resize(3, 3)) = 7 Then '¦pªG¥þ³¡¶ñº¡
   
7.          With Cells(r, k).Resize(3, 3)
   
8.             .Merge '¦X¨ÖÀx¦s®æ
   
9.             For i = 5 To 6
   
10.                With .Borders(i) 'µe±×½u
    
11.                   .LineStyle = xlContinuous
    
12.                End With
    
13.             Next
    
14.           End With
    
15.           Else '§_«h°õ¦æ½Æ»s¶K¤W¡B²M°£¤º®e
    
16.           .Cells(r, k).Resize(3, 3).Copy Cells(r, k): Cells(r, k).Resize(3, 3) = ""
    
17.        End If
    
18.     Next
    
19. Next
    
20. End With
    
21. End Sub

½Æ»s¥N½X

¤U¸ü (66.19 KB)

2014-3-5 14:52

Hsieh

¦^´_ 12# yen956


   http://forum.twbts.com/viewthrea ... %EA%AE%C6%AB%AC%BAA