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

[µo°Ý] EXCEL ­×§ï¸ê®Æªº°ÝÃD

¦^´_ 1# wu731230
  1. Option Explicit
  2. Sub Ex()
  3.     With ActiveWorkbook
  4.        '*****************************************
  5.        'With Workbooks(2)  ' ¤£¬O§@¥Î¤¤ªº¬¡­¶Ã¯Ã¯
  6.        ' .Activate
  7.        '*****************************************
  8.         .Sheets.Select
  9.         .ActiveSheet.Range("A1:A30,D1:D30,G1:G30").Select
  10.          Selection.Value = 0
  11.     End With
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD