ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ývbaªº¤º¥~®Ø½u

½Ð°Ývbaªº¤º¥~®Ø½u

¥»©«³Ì«á¥Ñ eric093 ©ó 2013-7-19 01:09 ½s¿è

½Ð°Ý¦U¦ì°ª¤â¡AÃö©óvbaªº¤º¥~®Ø½u¸Ó¦p¦ó¼g¡I
With Range("a1:c4").Borders
    .LineStyle = 4
    .LineStyle = 1
    .ColorIndex = 3
    .Weight = 3
End With

§Ú·Q¦ba1:c4ªº¤º®Ø¬°µê½u¡A³Ì¥~®Ø¬°¹ê½u¡A§Ú«ç»ò·Q¤£¥X¨Ó¡A¤]§ä¤£¨ìµª®×¡I
½Ð°Ý¦U¦ì°ª¤â¸Ó¦p¦ó¼g©O¡H·P®¦¡I

ªì¾ÇªÌ

¦^´_ 1# eric093


    §Ú·|¥Î¿ý¨î¥¨¶°
lmh

TOP

¦^´_ 1# eric093
  1. Option Explicit
  2. Sub Ex()
  3.     With Range("a1:c4").Borders 'Borders(®Ø½u)ª«¥ó
  4.         .LineStyle = 3                  '®Ø½uªº¦¡¼Ë
  5.         .ColorIndex = 3                 '®Ø½uªºÃC¦â
  6.         .Weight = 2                     '®Ø½uªº²Ê²Ó
  7.         .Parent.BorderAround 1, 2, 3
  8.                'BorderAround(¥~®Ø) LineStyle,Weight,ColorIndex
  9.     End With
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-7-19 07:06 ½s¿è

¦^´_ 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

TOP

·PÁ¦U¦ìªº«ù§U¡A§Ú¦¬¨ì¤F¡I
ÁÂÁÂc_c_lai ¡A¤]·PÁ GBKEEÁÙ¦³ mhl9mhl9µ¹ªº·N¨£¡I

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD