¤½¦¡¶ñº¡

ayubbs

¦³¤@°ÝÃD½Ð±Ð¤j¤j­Ì¡A±`±`¦b¨Ï¥Î¤½¦¡¶ñº¡¨Ï¥Î¥¨¶°¥h§¹¦¨
¦ý±`·|µo¥Í¤@­Ó°ÝÃD¬O¸ê®Æ¤º®e¸g±`·|©Ò§tªº¼Æ¶q¤£¦P»Ý­×§ï¶ñº¡ªº½d³ò
¥i¦³¿ìªk¥iª½±µµ¹¤©¦Û°Ê§PÂ_¥X¸ê®Æ©Ò§t¦C¼Æµ¹¤©¶ñº¡¨ì¦C
¦]«Ü²Â~¤p©f±`³£¥u¥Î³oºØ¤è¦¡¥h­×§ï°Ï¶¡¡A~.~ ÁÂÁ¤j®a¤F

1. Sub test2()
   
2.     Range("C1").Select
   
3.     ActiveCell.FormulaR1C1 = "=IF(RC[-2]<>"""",(RC[-2]*RC[-1]),"""")"
   
4.     Range("C1").Select
   
5.     Selection.AutoFill Destination:=Range("C1:C18")
   
6.     Range("C1:C18").Select
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# ayubbs

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

ayubbs

¦^´_ 2# Hsieh


    ª©¤j¦p§Ú¸ê®Æ¤º®e¦³«Ü¦h»Ý®M¥Î¤½¦¡,¬O§_¯à±N¶}©l»Pµ²§ôªº°Ï¶¡³]¦¨ÅܼƨӮM¥Î
¦b¦U­Ó¤£¦Pªº¨ç¼Æ¨Ï¥Î,¦]¸ê®Æ¦C¼Æ°Ï¶¡¤£¤@©w¡A¥i¥H§PÂ_ªº¥X¨Ó¶Ü¡H

ÁÂÁ§ֳt¦^ÂСA¤H¤£¦b®a¤¤©|¥¼´ú¸Õ±ßÂI´ú¸Õ«á·|¦A¦^³ø

Hsieh

¦^´_ 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