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

¤½¦¡¶ñº¡

¤½¦¡¶ñº¡

¦³¤@°ÝÃ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

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

TOP

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