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

[µo°Ý] ½Ð°Ý¦U¦ì«e½úÃö©óVBA °}¦C¨ú¥N°ÝÃD

[µo°Ý] ½Ð°Ý¦U¦ì«e½úÃö©óVBA °}¦C¨ú¥N°ÝÃD

¤£¦n·N«ä¡B½Ð°Ý¤@¤U¦U¦ì«e½ú­Ì~¤p§Ìªºªþ¥ó¤¤¦³¨â­Ó¤À­¶¡B¤@­Ó¬OData¡B¤@­Ó¬OÂà´«­¶¡A
½Ð°Ý¦pªG¤p§Ì·Q­n±NData¤¤¦UÄæ¦ì¤U¤è¦³¼Æ­ÈªºÄæ¦ì¬Ò¨ú¥N¦¨¼Æ­È"1"¡A
¦p²{¦bÂà´«­¶©ÒÅã¥Üªº±¡ªp¡B½Ð°Ý¤p§Ì¸Ó¦p¦ó¨Ï¥Î°}¦C§ï¼g©O¡H¡H

¦A½Ð³Â·ÐÀ°¦£«e½ú«ü¾É¤@¤U¡BÁÂÁÂ~


array test1.rar (14.3 KB)

¦^´_ 1# ii31sakura
Sub Test()
  With Sheets("Data").[A1].CurrentRegion
    .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
  End With
End Sub

TOP

¦^´_ 2# stillfish00
¥i²¤Æ
  1. Sub Test()
  2.   With Sheets("Data").[A1].CurrentRegion
  3.     .Offset(1, 1).SpecialCells(xlCellTypeConstants, xlNumbers).Value = 1
  4.   End With
  5. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


    ·PÁÂstillfish00»PGBKEE«e½úªº«ü¾É¡B¨â¦ìªº¤èªk¹ï¤p§Ì¨Ó»¡³£¬O¦³¥Îªº¡A
    §Ú·|¦n¦nªº¾Ç²ß¡B·PÁ¨â¦ì«e½ú~

TOP

¦^´_ 3# GBKEE
¤]¹ï¡AÁÂÁ´£¿ô¡C

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD