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

[µo°Ý] ½Ð°Ý¦U¦ì¤j¤j,¦p¦ó²¤Æ¥H¤Uµ{¦¡

[µo°Ý] ½Ð°Ý¦U¦ì¤j¤j,¦p¦ó²¤Æ¥H¤Uµ{¦¡

¦U¦ì¤j¤j¦n

¥H¤U¬O§Ú¿ý»sªºµ{¦¡½X
§Ú·Q¦b'A12:L44'µe®Ø½u
¤£¹Lµ{¦¡¦n¹³¦³ÂIªø
½Ð°Ý­n¦p¦ó²¤Æ©O?
  1. Sub µe®æ½u2()
  2. '
  3. ' µe®æ½u2 Macro
  4. ' alex ¦b 2012/7/13 ¿ý»sªº¥¨¶°
  5. '

  6.     Range("A12:L44").Select
  7.     ActiveWindow.SmallScroll Down:=-12
  8.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  9.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  10.     With Selection.Borders(xlEdgeLeft)
  11.         .LineStyle = xlContinuous
  12.         .Weight = xlThin
  13.         .ColorIndex = xlAutomatic
  14.     End With
  15.     With Selection.Borders(xlEdgeTop)
  16.         .LineStyle = xlContinuous
  17.         .Weight = xlThin
  18.         .ColorIndex = xlAutomatic
  19.     End With
  20.     With Selection.Borders(xlEdgeBottom)
  21.         .LineStyle = xlContinuous
  22.         .Weight = xlThin
  23.         .ColorIndex = xlAutomatic
  24.     End With
  25.     With Selection.Borders(xlEdgeRight)
  26.         .LineStyle = xlContinuous
  27.         .Weight = xlThin
  28.         .ColorIndex = xlAutomatic
  29.     End With
  30.     With Selection.Borders(xlInsideVertical)
  31.         .LineStyle = xlContinuous
  32.         .Weight = xlThin
  33.         .ColorIndex = xlAutomatic
  34.     End With
  35.     With Selection.Borders(xlInsideHorizontal)
  36.         .LineStyle = xlContinuous
  37.         .Weight = xlThin
  38.         .ColorIndex = xlAutomatic
  39.     End With
  40. End Sub
½Æ»s¥N½X

  1. Sub µe®æ½u2()
  2.     [A12:L44].Borders.LineStyle = 1
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# oobird


    ·PÁ¶W¯Åª©¥D~~~­ì¨Ó³o»ò²³æ ^-^

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD