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

[µo°Ý] ¼Æ¦r§À¼Æ½Õ¾ã°ÝÃD

[µo°Ý] ¼Æ¦r§À¼Æ½Õ¾ã°ÝÃD

¥»©«³Ì«á¥Ñ spermbank ©ó 2012-3-16 16:02 ½s¿è

¤j®a¦n:
·Q½Ð°Ý¤@­Ó³]­p¥¨¶°ªº°ÝÃD:

§Ú¦btestÀɮפ¤ªº¤u§@ªísheet1¤¤ªºA°Ï»PB°Ï
§Ú­n¦p¦ó§â³o¨Ç¼Æ¦r¥Î¤U¦C³W«h:
¼Æ¦r°Ï¶¡0-10           ¸õ°Ê+-0.01   
¼Æ¦r°Ï¶¡10-50         ¸õ°Ê+-0.05
¼Æ¦r°Ï¶¡50-100      ¸õ°Ê+-0.1
¼Æ¦r°Ï¶¡100-500    ¸õ°Ê+-0.5
¼Æ¦r°Ï¶¡500-1000  ¸õ°Ê+-1
¼Æ¦r°Ï¶¡1000¥H¤W   ¸õ°Ê+-5

¨Ò¦p:
¼Æ¦r  6.7894  ¨ú 6.79  (¥u­n¼Æ¦r¤j©ó6.78´N¶i¦ì¨ú6.79)
¼Æ¦r  10.68    ¨ú10.7   (¥u­n¼Æ¦r¤j©ó10.65´N¶i¦ì¨ú10.7)
¼Æ¦r  56.92    ¨ú57      (¥u­n¼Æ¦r¤j©ó56.9´N¶i¦ì¨ú57)
¼Æ¦r  103.42 ¨ú103.5    (¥u­n¼Æ¦r¤j©ó103´N¶i¦ì¨ú103.5)
...µ¥µ¥

µM«á«ö¤U¥¨¶°´N§â¹Bºâ«áªº³W«h¼Æ¦r°e¤JC°Ï©MD°Ï
¤£ª¾¹D¦p¦ó¼g¡A½Ð¤j¤j­ÌÀ°¦£¤@¤U¡AÁÂÁ¡C

test.rar (8.84 KB)

¦^´_ 1# spermbank
¸Õ¸Õ¬Ý
  1. Sub nn()
  2. For Each a In Range("A:B").SpecialCells(xlCellTypeConstants, xlNumbers)
  3. b = Application.Lookup(a, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  4. a.Offset(, 3) = Application.Ceiling(a, b)
  5. Next
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


ÁÂÁÂH¤j¡Aµ{¦¡¶]¨Ó§¹¥þ²Å¦X·Qªk¡C

·Q¦b½Ð°Ý¤@¤U
­Y¬O§Ú·Q§ïÅܤ@¤U³W«h¡A·Q§Q¥Î±Ë¥hªk¡A§â¦h¾lªº§R°£
¨Ò¦p:
¼Æ¦r  6.7894  ¨ú 6.78  
¼Æ¦r  10.68    ¨ú10.6  
¼Æ¦r  56.92    ¨ú56.9      
¼Æ¦r  103.42 ¨ú103   
µ{¦¡­n«ç»ò­×§ï¡AÁÂÁ¡C

TOP

¦^´_ 3# spermbank
¸Õ¸Õ¬Ý
  1. Sub nn()
  2. For Each a In Range("A:B").SpecialCells(xlCellTypeConstants, xlNumbers)
  3. b = Application.Lookup(a, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  4. a.Offset(, 3) = Application.Ceiling(a, b)
  5. a.Offset(, 5) = Application.RoundDown(Application.Floor(a, b / 10), 2) 'µL±ø¥ó±Ë¥h
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

H¤j§A¦n:
§Ú§Q¥Î
a.Offset(, 5) = Application.RoundDown(Application.Floor(a, b / 10), 2) 'µL±ø¥ó±Ë¥h
¶]¥X¨Óªºµ²ªG¦ü¥G¤£¤Ó¹ï
¨Ò¦p:
12.33 ÁÙ¬O12.33 ¨S¿ìªkµL±ø¥ó±Ë¥hÅܦ¨12.3
45.47 Åܦ¨45.46 ¨S¿ìªkµL±ø¥ó±Ë¥hÅܦ¨45.45
15.27 Åܦ¨15.26 ¨S¦³¿ìµL±ø¥ó±Ë¥hÅܦ¨15.25
...µ¥µ¥

¥i¤£¥i½ÐH¤j¦AÀ°§Ú¬Ý¬Ý¡AÁÂÁ¡C

TOP

¦^´_ 5# spermbank
  1. Sub nn()
  2. For Each a In Range("A:B").SpecialCells(xlCellTypeConstants, xlNumbers)
  3. b = Application.Lookup(a, Array(0, 11, 51, 101, 501, 1001), Array(0.01, 0.05, 0.1, 0.5, 1, 5))
  4. a.Offset(, 3) = Application.Ceiling(a, b)
  5. a.Offset(, 5) = Application.Floor(a, b) 'µL±ø¥ó±Ë¥h
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh
·PÁ¡AÁÂÁÂH¤jÀ°¦£¡C

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD