- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 247
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-13
|
¦^´_ 5# hank10459
®æ¦¡¤Æ±ø¥ó¬OµLªk±±¨î±×½uªº®æ½u
¬JµM¥ÎVBA»²§U¡A¥i¥H²³æ¤@ÂI
03BAY¤u§@ªí¼Ò²Õµ{¦¡½X- Private Sub Worksheet_Activate()
- Dim r&, k&, i%
- With Sheets("(04)05BAY")
- For k = 3 To 33 Step 3 'CÄæ¨ìAGÄæ¡A¶¡¹j3Äæ´`Àô
- For r = 4 To 26 Step 3 '²Ä4¦C¨ì26¦C¡A¶¡¹j3¦C´`Àô
- If Application.CountA(.Cells(r, k).Resize(3, 3)) = 7 Then '¦pªG¥þ³¡¶ñº¡
- With Cells(r, k).Resize(3, 3)
- .Merge '¦X¨ÖÀx¦s®æ
- For i = 5 To 6
- With .Borders(i) 'µe±×½u
- .LineStyle = xlContinuous
- End With
- Next
- End With
- Else '§_«h°õ¦æ½Æ»s¶K¤W¡B²M°£¤º®e
- .Cells(r, k).Resize(3, 3).Copy Cells(r, k): Cells(r, k).Resize(3, 3) = ""
- End If
- Next
- Next
- End With
- End Sub
½Æ»s¥N½X
|
|