c_c_lai

¦^´_ 1# eric093
³o¬O¤£¬O²Å¦X§A©Ò­nªºµª®×¡H

1. Sub Ex()
   
2.     With Range("A1:C4")
   
3.         .Borders(xlEdgeLeft).Weight = xlMedium
   
4.         .Borders(xlEdgeTop).Weight = xlMedium
   
5.         .Borders(xlEdgeBottom).Weight = xlMedium
   
6.         .Borders(xlEdgeRight).Weight = xlMedium
   
7.         .Borders(xlInsideVertical).Weight = xlHairline
   
8.         .Borders(xlInsideHorizontal).Weight = xlHairline
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# GBKEE
±zªº¼Ò²Õ¤ñ¸û¾A©y¡A¥B¤S²¼ä¡AÁÂÁ¡I

1. Sub Ex2()
   
2.     With Range("A1:C4").Borders            '  Borders(®Ø½u)ª«¥ó
   
3.         .LineStyle = 3                         '   ®Ø½uªº¦¡¼Ë
   
4.         .ColorIndex = 15                  '   ®Ø½uªºÃC¦â 1:¶Â 2:µL 3:¬õ 4:²Hºñ 5:ÂÅ 6:¶À 7:¾ï 8:¤ÑÂÅ 9:µµ 15:¦Ç
   
5.         .Weight = 1                            '   ®Ø½uªº²Ê²Ó xlHairline = 1 (²@½u(³Ì²Óªº®Ø½u))¡BxlThin = 2 (²Ó½u)¡B
   
6.         '                          xlMedium = -4138 (¾A¤¤)¡BxlThick = 4 (²Ê½u (³Ì¼eªº®Ø½u) )
   
7.         .Parent.BorderAround 1, xlMedium, 1             '   BorderAround(¥~®Ø) LineStyle, Weight, ColorIndex
   
8.     End With
   
9. End Sub

½Æ»s¥N½X