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

¤½¦¡¶ñº¡

¦^´_ 1# ayubbs
  1. Sub test2()
  2.     [C1].FormulaR1C1 = "=IF(RC[-2]<>"""",(RC[-2]*RC[-1]),"""")"
  3.     [C1].AutoFill Destination:=Range([C1], [A1].End(xlDown).Offset(, 2)) '¥HAÄæ§PÂ_¸ê®Æ°Ï
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# ayubbs

¨º´N­n¬Ý§A§PÂ_¦C¼Æªº¨Ì¾Ú¬O¬Æ»ò?
½Ð¤W¶ÇÀÉ®×»¡©ú§Aªº»Ý¨D
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD