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

[µo°Ý] ¤p¾Ç¥Í°ÝÃD 3 (ÁÂÁÂ)

[µo°Ý] ¤p¾Ç¥Í°ÝÃD 3 (ÁÂÁÂ)

¥»©«³Ì«á¥Ñ binargoo ©ó 2011-7-13 01:31 ½s¿è

¶Ë¸£µ¬®É¶¡¡I¿n·¥¾Ç²ß:funk:

  »¡©ú¡Gªí¤@¡Bªí¤G¦P¤@¥÷ªí®æ¡C

                ·í B7-B9<50¨º»òB8¤£Åã¥Ü¡AB7-B9>=50®É±Nµ²ªG°£ 2 Åã¥Ü©óB8¡C
                ³] B8 ¬°ªÅ¥Õ¡AB7-B9»ù®t+B7¥Ñ©³³¡³vµ§²Ö¥[»ù®tÅã¥Ü©óC2:C6(¦pªí¤@)¡C
                    B8 ¬°¼Æ¦r¡AB7-B8»ù®t+B7¥Ñ©³³¡³vµ§²Ö¥[»ù®tÅã¥Ü©óC2:C6(¦pªí¤G)¡C

  ²{·Q±N«e­z±ø¥ó¼g¤JC8¡A½Ð°Ý¼gªk¡H
(­ì©óC2:C6¦³¤½¦¡¡A«o¦Ñ³Q»~§R)

  ¦³³Ò½Ñ°ª¤â¤j¤j¤£§[¼ö¸Û±Ð¾É·P®¦¦b¥ý¡I

OTS56T-07.jpg (55.87 KB)

OTS56T-07.jpg

OTS56T-07.rar (3.96 KB)

¥u¬°¾Ç²ß©Ò¥Hµo°Ý

B8=IF(B7-B9>=50,(B7-B9)/2,"")
C8=IF(B8<>"",2*B7-B8,2*B7-B9)
¼g¤JC2:C6ªº°Ê§@¥²¶·¨Ï¥ÎVBA»²§U
¦b¸Ó¤u§@ªí¼Ò²Õ¤º¿é¤Jµ{¦¡½X
  1. Private Sub Worksheet_Calculate()
  2. k = Application.CountA([C2:C6])
  3. If k = 5 Then [C2:C6] = "": k = 0
  4. [C8].Offset(-2 - k, 0) = [C8]
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶W¯Å·PÁ Hsieh ¶W¤j¤j¡A¤j¤OÀ°¦£¡I

¦b B8 ªº³¡¤À­ì¤w¦³¤½¦¡¥u¬O¨S±¾¤W¡A¤p¾Ç¥Íªº§xÃø¦b©ó " C8 "¡C
¤µ»X¶Wª©¤j«ü¾É¤è¦VÀò¯q¨}¦h¤p¾Ç¥Í¦A¦¸·P®¦¥~¡A¨Ã±N§ó§V¤O«õ±¸°ÝÃD¨Ó¦@¦P±´°Q¡B¾Ç²ß¡C
¥u¬°¾Ç²ß©Ò¥Hµo°Ý

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD