³sÄò & ¤£³sÄò ¤§°}¦C³B²z¤è¦¡ex:1~3,5,7,9~11

PKKO

¦U¦ì¤j¤j¦pÃD,°}¦C¤ºªº¼Æ¦r¤w¸g·|¨Ì·Ó¼Æ¦r¤j¤p¶i¦æ±Æ§Ç,¥Ñ¤p¦Ü¤j
¦ý­n¦p¦ó¹F¨ì¥H¤U®ÄªG©O~?(°}¦Cªø«×¤£¤@©w)
°²³]°}¦C¬°
1,2,3,5,7,9,10,11 =>1~3,5,7,9~11
1,11=>1,11
5,6,8,9=>5~6,8~9

¤]´N¬O¤W¤@­Ó¼Æ¦r»P³o­Ó¼Æ¦r¬O³sÄòªº´N­n¥Î"~"ªí¥Ü,¥B¬Ù²¤¤¤¶¡¼Æ¦r
¦ý­Y¤£¬O³sÄòªº,«h¥H","Åã¥Ü,¥B¤£±o¬Ù²¤¼Æ¦r

PKKO

¦^´_ 2# luhpro

·PÁ¤j¤jªº¦^ÂÐ,¦ýµLªk¦¨¥\Åã¥Ü,³Ì«áµ²ªG¥u·|¥X²{¥½´X½X¦Ó¤w

PKKO

¦^´_ 4# GBKEE


    ·PÁª©¤j,§¹¥þ¥¿½T!,¥B§¹¥þ©ú¥Õ¤F!!

PKKO

Dear ¥u·|¥X²{§À¼Æ(8~9)

1. Sub nn()
   
2. 
   
3.   Dim iI%
   
4. 
   
5.   Dim lL&
   
6. 
   
7.   Dim sStr$
   
8. 
   
9.   Dim vA, vB
   
10. 
    
11.   
    
12. 
    
13.   'vA = Array(1, 2, 3, 5, 7, 9, 10, 11)
    
14. 
    
15.   'vA = Array(1, 11)
    
16. 
    
17.   vA = Array(1, 6, 8, 9)
    
18. 
    
19.   ReDim vB(0)
    
20. 
    
21.   lL = vA(0)
    
22. 
    
23.   sStr = lL
    
24. 
    
25.   For iI = 1 To UBound(vA)
    
26. 
    
27.     If vA(iI) <> lL + 1 Then
    
28. 
    
29.       If vA(iI - 1) <> sStr Then sStr = sStr & "~" & vA(iI - 1)
    
30. 
    
31.         vB(UBound(vB)) = sStr
    
32. 
    
33.         ReDim Preserve vB(UBound(vB) + 1)
    
34. 
    
35.         sStr = vA(iI)
    
36. 
    
37.     End If
    
38. 
    
39.     lL = vA(iI)
    
40. 
    
41.   Next
    
42. 
    
43.   If vA(UBound(vA)) <> sStr Then sStr = sStr & "~" & vA(iI - 1)
    
44. 
    
45.   vB(UBound(vB)) = sStr
    
46.     MsgBox vB(UBound(vB))
    
47. End Sub

½Æ»s¥N½X

¦^´_ 6# bobomi

PKKO

·PÁ¨â¦ì¶Wª©ªº«ü±Ð,¥H¤Îbobomi ªº´£¿ô,­ì¨Ó¬O¤p§Ì²¨©¿¤F,·P®¦!!