³Ì°ª¾÷±K

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

c_c_lai

¦^´_ 11# ³Ì°ª¾÷±K
¬Ý¤F¥H¤U¤ÀªR«K¤£·|²V¶Ã¤F¡G

1. °²³] x¡Ay  §Aªº¿é¤J­È¤À§O¬° 20040116¡A20040206
   
2. 
   
3. x                          = "20040116"  (¿é¤J­È)
   
4. y                          = "20040206"  (¿é¤J­È)
   
5.                   [A2]
   
6. Cells(a, 1)                = 20040109
   
7. StrComp(Cells(a, 1), x, 1) = -1        '  [A2] < x
   
8. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A2]
   
9.                   [A3]     (±ø¥ó²Å¦X - ¦¨¥ß)
   
10. Cells(a, 1)                = 20040116
    
11. StrComp(Cells(a, 1), x, 1) = 0         '  [A3] = x
    
12. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A3]
    
13.                   [A4]     (±ø¥ó²Å¦X - ¦¨¥ß)
    
14. Cells(a, 1)                = 20040130
    
15. StrComp(Cells(a, 1), x, 1) = 1         '  [A4] > x
    
16. StrComp(y, Cells(a, 1), 1) = 1         '  y > [A4]
    
17.                   [A5]     (±ø¥ó²Å¦X - ¦¨¥ß)
    
18. Cells(a, 1)                = 20040206
    
19. StrComp(Cells(a, 1), x, 1) = 1         '  [A5] > x
    
20. StrComp(y, Cells(a, 1), 1) = 0         '  y = [A5]
    
21.                   [A6]
    
22. Cells(a, 1)                = 20040213
    
23. StrComp(Cells(a, 1), x, 1) = 1         '  [A6] > x
    
24. StrComp(y, Cells(a, 1), 1) = -1        '  y < [A6]
    
25.                   [A7]
    
26. Cells(a, 1)                = 20040220
    
27. StrComp(Cells(a, 1), x, 1) = 1         '  [A7] > x
    
28. StrComp(y, Cells(a, 1), 1) = -1        '  y < [A7]

½Æ»s¥N½X

¼·¶³¨£¤é¤F¶Ü¡H

³Ì°ª¾÷±K

¦^´_ 12# c_c_lai


    §ÚÀ´¤F «D±`·PÁ§A