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

[µo°Ý] ¦p¦óÅã¥ÜÁôÂ꺦C¸ê®Æ

¦^´_ 7# onegirl0204
«ö¤@¤U·Æ¹«¥kÁä

EX1.GIF
2013-7-14 10:08
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# owen06
  1. Option Explicit
  2. Sub Ex()  ''¦p¤u§@ªí¨S¦³³]©w«OÅ@: °õ¦æ³oµ{¦¡
  3.         ActiveSheet.ScrollArea = ""
  4. End Sub
½Æ»s¥N½X
©Î¦p¹Ï

EX.GIF
2013-7-16 09:25
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# onegirl0204
¦ó¤£¤W¶Ç³oÀɮ׬ݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# owen06
¥i¦p¦¹²M°£¤º®e
  1. Sub Ex()
  2.    With Sheets("ÁôÂæCªº¤u§@ªí")
  3.         .Rows("1:5") = ""
  4.         MsgBox IIf(Application.CountA(.Rows("1:6")) = 0, "²M°£§¹²¦", "ÁÙ¦³¸ê®Æ")
  5.   End With
  6. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD