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

°Æµ{¦¡/if§PÂ_¤£¨ì/½Ð¨D¸Ñ´b

¦^´_ 9# c_c_lai

If StrComp(Cells(a, 1), x, 1) >= 0 And StrComp(y, Cells(a, 1), 1) >= 0
§Ú­è¬d¤F¤@¤UStrComp¨ç¦¡¥Î¨Ó¤ñ¸û¦r¦ê¡A¥B­Y²Ä¤@­Ó°Ñ¼Æ¤p©ó¡Bµ¥©ó©Î¤j©ó²Ä¤G­Ó°Ñ¼Æ®É¡A¨Ì§Ç¦^¶Ç-1¡B0©Î1
StrComp(Cells(a, 1), x, 1) >= 0 ³o¬O«ç»ò§PÂ_ªº ½Ð±Ð¤@¤U.
Cells(a, 1)©M x¤ñ«á´N¦³ÂI¼Ò½k¤F..
§A¦n³á

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-10-22 06:05 ½s¿è

¦^´_ 11# ³Ì°ª¾÷±K
¬Ý¤F¥H¤U¤ÀªR«K¤£·|²V¶Ã¤F¡G
  1. °²³] x¡Ay  §Aªº¿é¤J­È¤À§O¬° 20040116¡A20040206

  2. x                          = "20040116"  (¿é¤J­È)
  3. y                          = "20040206"  (¿é¤J­È)
  4.                   [A2]
  5. Cells(a, 1)                = 20040109
  6. StrComp(Cells(a, 1), x, 1) = -1        '  [A2] < x
  7. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A2]
  8.                   [A3]     (±ø¥ó²Å¦X - ¦¨¥ß)
  9. Cells(a, 1)                = 20040116
  10. StrComp(Cells(a, 1), x, 1) = 0         '  [A3] = x
  11. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A3]
  12.                   [A4]     (±ø¥ó²Å¦X - ¦¨¥ß)
  13. Cells(a, 1)                = 20040130
  14. StrComp(Cells(a, 1), x, 1) = 1         '  [A4] > x
  15. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A4]
  16.                   [A5]     (±ø¥ó²Å¦X - ¦¨¥ß)
  17. Cells(a, 1)                = 20040206
  18. StrComp(Cells(a, 1), x, 1) = 1         '  [A5] > x
  19. StrComp(y, Cells(a, 1), 1) = 0         '  y = [A5]
  20.                   [A6]
  21. Cells(a, 1)                = 20040213
  22. StrComp(Cells(a, 1), x, 1) = 1         '  [A6] > x
  23. StrComp(y, Cells(a, 1), 1) = -1        '  y < [A6]
  24.                   [A7]
  25. Cells(a, 1)                = 20040220
  26. StrComp(Cells(a, 1), x, 1) = 1         '  [A7] > x
  27. StrComp(y, Cells(a, 1), 1) = -1        '  y < [A7]
½Æ»s¥N½X
¼·¶³¨£¤é¤F¶Ü¡H

TOP

¦^´_ 12# c_c_lai


    §ÚÀ´¤F «D±`·PÁ§A
§A¦n³á

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD