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

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

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

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD