- ©«¤l
- 31
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-19
- ³Ì«áµn¿ý
- 2016-1-2
|
[µ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?- Sub µe®æ½u2()
- '
- ' µe®æ½u2 Macro
- ' alex ¦b 2012/7/13 ¿ý»sªº¥¨¶°
- '
- Range("A12:L44").Select
- ActiveWindow.SmallScroll Down:=-12
- Selection.Borders(xlDiagonalDown).LineStyle = xlNone
- Selection.Borders(xlDiagonalUp).LineStyle = xlNone
- With Selection.Borders(xlEdgeLeft)
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = xlAutomatic
- End With
- With Selection.Borders(xlEdgeTop)
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = xlAutomatic
- End With
- With Selection.Borders(xlEdgeBottom)
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = xlAutomatic
- End With
- With Selection.Borders(xlEdgeRight)
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = xlAutomatic
- End With
- With Selection.Borders(xlInsideVertical)
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = xlAutomatic
- End With
- With Selection.Borders(xlInsideHorizontal)
- .LineStyle = xlContinuous
- .Weight = xlThin
- .ColorIndex = xlAutomatic
- End With
- End Sub
½Æ»s¥N½X |
|