Excelدا تىلفۇن نۇمۇردىكى جۇپ سانلارنى ئايرىشتىن ياردەم سۇرايمەن

زىرەك0903

' |+ Z4 g! w2 }0 U; ^$ v3 A, P
دوسلار Excelدا تىلفۇن نۇمۇرنىڭ ئاخىردىكى توت خانىستىكى جۇپ سانلارنى تېپىىپ ئايرىشقا بۇلامدۇ بىلىدىغان دوسلارنىڭ ياردىمىنى ئايىماسلىقىنى ئۇمۇت قىلىمەن.ئايرىيدىغان مەزمۇن                                (abaa，1211，aabb，2277،，abc，123，abab，3838）مۇشۇ خىلدىكى سانلارنى ئايرىماقچى ئىدىم.   

yaxlik007

بولىدۇ . 13095009780  بۇ نومۇرغا تىلفۇن قىلىڭ . تورغا چىقىش شارائىتىڭىز بولسا مەن يىراقتىن كونتىرول قىلىپ كۆرسىتىپ قوياي . (ھەقلىق )

yaxlik007

مەخپىي ماتىريال بولمىسا  مەن  ئايرىپ  سىزگە ئەۋەتىپ بەرسەممۇ بولىدۇ .  

arkinjuma

ئاددىيلا بىر ئىش ئىدىغۇ بۇ تۆۋەندىكى ئادرېستىكى مەزمۇنلارنى كۆرۈپ بېقىڭ چوقۇم قىلالايسىز.
/forum.php?mod=viewthread&tid=33746

ئىز1053

ئۈستىدە دېيىلگەن ھۈنەرلەرمۇ بولىدىكەن، ئەڭ ياخشىسى ئازراق چىقىمدار بولساڭلارمۇ قاتتىق دىسكىنى ئالـماشتۇرۇپلاۋېتىڭلار، ھەممىمىز گە مەلۇم كومپىيۇتېر ئۇچۇر بىرتەرەپ قىلىشتىكى ئەڭ ئىلغار مەخلۇق، ئۇچۇر بىر تەرەپ قىلىش ئۈچۈن چۇقۇم بۇ ئۇچۇرلارنى ساقلايدىغان ئەڭ مۇھىم نەرسە ساقلىغۇچ دە، بىز مەيلى قانداق شەكىلدە يۇقىتايلى، بۇ كومپىيۇتېر نى ياسىغانلار ئاللىبۇرۇنلا بۇنى ئەسلىگە كەلتۈرۈشنىڭ ئامالىنى قىلىپ بولغان بولىشى مۇمكىن، قالغىنىنى ئويلىشىپ باقساق بولىدۇ.

ئىز1053

ئاپلا بۇ ئىكاسىم نەدە يۈرۈيدىغاندۇ؟ ئەسلى باشقا تېىمىغا يازغانتىم ، باشقۇرغۇچىلار مۇمكىن بولسا يۆتكەپ ياكى ئۆچۈرۋەتسەڭلا ئەجەپ سەت بولدى

uqkun

ئەركىن مۇئەللىم ئىيىتقان ئۇسۇلدىن پايدىلىنىڭ.
# N7 S3 V: ^& q# ?ھەقىلىق ھەل قىلغاندىن ئۆزىڭىز قول سىلىپ ئىشلىسىڭىز تىخىمۇ ياخشى.
# ~' |+ O' ~9 T
# j" B" J2 w3 i: I3 i% yمىنىڭ فورمۇلا بويىچە ھەل قىلىش ئۇسۇلۇم:
ئالدىن بىلەن ساننىڭ ئاخىرقى تۆت خانىسىنى ئايرىم ئايرىم ئىنىقلىۋالىمەن، ئاندىن ياردەمچى قۇردىن بىرنى قوشۇپ ئىنىقلىۋالغان سانلارنىڭ قايسى تىپلىق (سىز ئايرىماقچى بولغان تۇرنىڭ قايسىغا ماس كىلىدۇ) نى ئايرىۋىلىپ (IF ئارقىلىق) ئاخىرىدا سانلىق مەلۇماتنى تاسقاش ئۇسۇلىدىن پايدىلىنىمەن.

5 e- ]  \* z1 B! h1 q2 a- u- U# Aيۇقارقى ھەقلىق ياردەم قىلىدىغان دوستىمىزنىڭ بەلكىم ئالاھىدە ئۇسۇلى بولىشى مومكىن، لىكىن مىنىڭ ئۇسۇلىمدىن پايدىلىنىپمۇ قىلغىلى بولىدۇ.
  p$ C$ n+ n% q' w$ Z; Y

uqkun

رەسىمدىكىدەك قىلىپ سىناپ بىقىڭ

ئەلىthnk

بۇ  تىمىنى  ئىنتىل تورىدا كۆرۆپ  قىزىقىپ قالغان ئىدىم .بىر گوروپپا سانلار ئارىسىدىن  (aabb，abc，abab，abaa) شەكىلدىكى ئالاھىدە سانلارى ئايرىپ چىقىش .بۇنىڭ ھەل قىلىش چارىسى خىلمۇخىل بۇلۇشى مۇمكىن .
+ B( e! C% B, ^" l& l0 t) A% ?- x8 jتىما ئاپتۇرى ئىنتىل تۇرىدا  بىر قۇشۇمچە excelھۇججىتى تەمىنلىگەن بۇلۇپ ئۇنىڭدا 105 تال يانفۇن نۇمۇرى بۇلۇپ سىناپ باققۇچىلار بولسا مۇشۇنىڭدىن ئالاھىدە  سانلارنى ئايرىپ باقسا بۇلىدۇ
! `# r1 S8 k7 D: }# Y! ^

1. 15109907167
   8 S4 r# I6 ?6 E" L( X& P
2. 15109907293
   $ {( B1 b/ x- U+ l$ W
3. 15109907440
   4 q0 O0 i2 [# x3 D  a% `
4. 15109907641
   
5. 15109907995
   # S) m& D0 t8 ]2 Z
6. 15109908095
   . G, n2 d$ K. z) g) D6 o
7. 15109908227
   3 @$ ]8 S! u1 q
8. 15109908654
   
9. 15109908879
   
10. 15109908984
    7 `( `" u$ K" L2 I
11. 15109909112
    . ?; w% u, {. q0 S- s$ O% A
12. 15109909337
    9 g4 L, S/ @% @$ [9 T! W
13. 15109909429
    
14. 15109909440
    * X" D" u% J9 y: D0 q
15. 15109909462
    
16. 15109909547
    
17. 15109909583
    
18. 15199231411
    7 u* i7 B+ ^7 o  j! B
19. 15199234144
    
20. 15199235456
    
21. 15199237377
    : F% u0 }4 s8 m( X  b1 E+ P
22. 15109904970
    $ t" v& Z$ C% G
23. 15109905079
    , \, k- R9 J2 X3 y& Z( m; I
24. 15109905735
    
25. 15109905775
    6 f; O2 P! [/ p% ~1 W& F/ W7 o0 Y
26. 15109906916
      w4 x5 S& Y2 H3 D
27. 15109906924
    
28. 15109907744
    
29. 15109907867
    , A0 V3 a! a1 m9 w' J7 \* V' j
30. 15109908304
    
31. 15109908550
    - w5 B7 A% d5 [# [- L
32. 15109908915
    " M0 U9 u* f/ r; ], [
33. 15109909764
    
34. 15199230234
    
35. 15199230456
    
36. 15199234456
    : F# L% D% _" |9 E/ d" ^$ m
37. 15199235978
    " w1 P$ f  x: x! O
38. 15199236548
    
39. 15199250716
    
40. 15199260022
    
41. 15199260044
    
42. 15199260066
    " c/ |# y7 a1 I2 f# `
43. 15109908765
    
44. 15109909178
    
45. 15109909496
    
46. 15109909652
    
47. 15109909664
    
48. 15199234798
    
49. 15199236622
    
50. 15199239699
    ' i) E, n3 E  S8 e9 Q4 V0 v
51. 15199241911
    * I: Q: c' e3 i; l! D4 R4 Y2 F
52. 15199244949
    
53. 15199260678
    
54. 15199262022
    . G* q7 T) F  Q- N: W
55. 15199263733
    
56. 15199267755
    
57. 15199269399
    5 o5 v, N$ C( F& Z1 W/ _
58. 15199276699
    
59. 15199278234
    
60. 15199281011
    - L, Z7 |: u/ Y6 b: ?8 H  t5 B
61. 15199281988
    
62. 15199289153
    $ g8 C& Q) F) p! Z3 W, H# ~
63. 15199289764
    6 B, o! ~) F* B: b$ v1 w4 u
64. 15199245255
    ( l0 g3 a; r# O' Y8 W% k+ P1 y
65. 15199260055
    . a3 c5 k9 Z( Q" Y) |! J, @5 @
66. 15199262678
    
67. 15199264788
    
68. 15199268123
    
69. 15199280719
    
70. 15199283344
    
71. 15199287789
    * I8 ^$ w, e4 j( I3 _* Y
72. 15199287977
    
73. 15199289672
    " {7 v0 j; ?/ C
74. 15199292123
    + j  K9 u6 h) `8 m/ h7 R9 d
75. 15199295488
    
76. 15199295533
    & `: }( E: y8 X, C( P( X* E  W
77. 15199410188
    2 G$ e2 _* j) @  I& |( K
78. 15199412622
    
79. 15199419188
    
80. 15199419588
    ( b# \# m+ M, Q
81. 15199419788
    
82. 15199710099
    
83. 15199710597
    
84. 15199710634
    
85. 15109909434
    
86. 15109909615
    - q+ c- X$ y7 W5 q
87. 15109909786
    6 y$ ]" _: O$ k1 i5 w4 Y, i
88. 15109909805
    
89. 15109909824
    
90. 15199234744
    
91. 15199234944
    / a. U; _" M3 j, W  n
92. 15199235955
    
93. 15199236655
    
94. 15199239955
    
95. 15199245599
    , f# a% v& t' [' C# p
96. 15199247711
    
97. 15199247744
    
98. 15199260412
    
99. 15199260421
    
100. 15199261456
     
101. 15199268234
     5 ~$ G' i: o4 @3 p6 G6 B1 t
102. 15199269911
     
103. 15199279678
     + S4 ?0 Q% F( F: c* ?& L
104. 15199281311
     ) B. p8 O% H% k* F: h
105. 15199281711

مەزمۇننى كۆچۈرۈۋېلىش

. m: a& U9 O; s$ I+ ?0 @


! F, C; g# B. D

+ Z- ^. `$ e! Zمەن بۇنى vb6دىن پايدىلىنىپ سىناپ باقتىم .نەتىجىدە 48 تال ساننى ئايرىپ چىقىتى،نىشان excel  ھۇججىتىنى د دىسكغا(ئاساسىي مۇندەرىجە) كۇچۇرمىز..ئىسمىنى nixan غا ئۇزگەرتىمىز .
ئاندىن د دىسكىغا قۇرۇق excelھۇججەتتىن بىرنى قۇرۇمىز (ئاساسىي مۇندەرىجە رايونىغا).ئىسمىنى mدەپ قۇيىمىز
ئاندى  vbنى ئىچىپ excel لىبىراي ھۇججىتىنى قۇشىمىز .  (vb6نىڭ كارخانا نۇسخىسى )
+ c. c' q- M) c/ [( eكۇنۇپكىدىن بىرنى قۇرۇپ تۇۋەندىكى
كودنى چاپلاپ كۇنۇپكىنى باسسساق تىز  سۇرئەتتە  ھىلىقى قۇرۇق ئىكسىل ھۇججەتكە نەتىجىسىنى ئايرىپ چىقىدۇ .نەچچە ئونمىڭ سان بولسىمۇ بىرنىمۇ زىيادە ياكى كام بولمايدۇ.
! r0 t  b% S$ o! a# T$ A$ B

1. 15199231411
   
2. 15199234144
   
3. 15199235456
   ! j& ?2 C/ X, y3 \
4. 15199237377
   
5. 15109907744
   3 f2 f  u  o# e0 y  D
6. 15199230234
   
7. 15199230456
   1 z5 b0 @1 ]3 |' u8 n
8. 15199234456
   
9. 15199260022
   . {" J- L1 M. X- I2 L
10. 15199260044
    
11. 15199260066
    8 Q9 H. Z2 d$ H" J6 ~. p* r- E
12. 15199236622
    9 c6 ^! H; Y7 ~9 }% [3 Y& G" [
13. 15199239699
    
14. 15199241911
    
15. 15199244949
    
16. 15199260678
    
17. 15199262022
    # q: J7 O- m& Z& `( C
18. 15199263733
    - a) c) j3 I9 N' o
19. 15199267755
    
20. 15199269399
    5 t8 b! ^5 K0 @5 ^+ m
21. 15199276699
    + y# j0 C" V; |0 y6 K7 J. J
22. 15199278234
    # Y: A! g" _: v! n" h; _, \
23. 15199281011
    
24. 15199245255
    
25. 15199260055
    
26. 15199262678
    
27. 15199268123
    1 ~: k5 D& C" T
28. 15199283344
    2 P; Z' s1 [/ ^1 s4 ]2 l
29. 15199287789
    
30. 15199287977
    
31. 15199292123
    $ r' W" T% \1 h' X$ _/ i( J! O
32. 15199295533
    & R6 W1 h1 O% a) P8 B8 b
33. 15199412622
    4 `0 U8 `* {7 v: Z
34. 15199710099
    9 _$ q7 Q6 }8 [7 C3 q( m
35. 15199234744
    
36. 15199234944
    / ^. p" j% A$ }# t1 e* |+ r3 A6 N
37. 15199235955
    
38. 15199236655
    " M" e+ b3 ]7 C4 U4 X5 h5 j* [
39. 15199239955
    8 w8 M2 t6 h3 B, m9 F! U7 U' Q4 E
40. 15199245599
    7 _5 q3 ?0 l' r# i; I* V+ [
41. 15199247711
    
42. 15199247744
    3 c8 ~( x, T% V: t& ]* y7 G
43. 15199261456
    6 X! n; r: F% W1 @
44. 15199268234
    ! W/ W5 v8 d/ v3 B$ O/ O7 u
45. 15199269911
    1 b+ i2 F+ d5 F$ i4 v
46. 15199279678
    
47. 15199281311
    ! k$ |3 q0 y, F
48. 15199281711

مەزمۇننى كۆچۈرۈۋېلىش

1. Dim xlApp     As Excel.Application
   ' P2 Q( C1 i  K9 N# s( E- P
2. Dim xlbook    As Excel.Workbook
   
3. Dim xlsheet   As Excel.Worksheet
   - N# B) I% |, _7 p/ Z
4. 
   $ m; i% b# w0 w5 w
5. Dim mxlApp     As Excel.Application
   8 s7 C4 _: f: x/ K
6. Dim mxlbook    As Excel.Workbook
   # ^+ Q+ \, Z% I; x  t# c: d
7. Dim mxlsheet   As Excel.Worksheet
   
8. Private Sub Command1_Click()
   # `  F5 j( b" p0 I
9. For i = 1 To 50000
   ; ~% P  [8 p8 y7 e$ H& \) r' g
10. Me.Caption = i & "  , " & r & "  , " & b
    6 R# t- w3 e! I  s/ B
11. m = xlsheet.Cells(i, 1)
    & |1 |4 L0 b1 z8 k
12. n = Mid(xlsheet.Cells(i, 1), 8, 4)
    $ {7 c- B; |/ f. u$ E9 C
13. If n <> "" Then
    ( [" H% l' ~; g  [
14. If Mid(n, 1, 1) = Mid(n, 2, 1) And Mid(n, 3, 1) = Mid(n, 4, 1) Or Mid(n, 1, 1) = Mid(n, 3, 1) And Mid(n, 2, 1) = Mid(n, 4, 1) Or Mid(n, 1, 1) = Mid(n, 2, 1) And Mid(n, 1, 1) = Mid(n, 4, 1) Or Mid(n, 1, 1) = Mid(n, 3, 1) And Mid(n, 1, 1) = Mid(n, 4, 1) Or Mid(n, 2, 1) = Mid(n, 3, 1) And Mid(n, 2, 1) = Mid(n, 4, 1) Or Mid(n, 2, 1) + 0 = Mid(n, 1, 1) + 1 And Mid(n, 3, 1) + 0 = Mid(n, 2, 1) + 1 Or Mid(n, 3, 1) + 0 = Mid(n, 2, 1) + 1 And Mid(n, 4, 1) + 0 = Mid(n, 3, 1) + 1 Then
    
15. 
    8 A2 @' ^* O5 ?$ B2 Z# V6 J) ]
16. b = b + 1
    
17. mxlsheet.Cells(b, 1) = m
    ! ~, ?2 H4 z; [3 j& S2 I  S9 p, M- B" W7 C
18. End If
    
19. Else
    ; Z- r% a+ C( G' ~
20. xlbook.Close True
    4 v% G  I- ^& U) }7 _
21.    xlApp.Quit
    4 @' |) n% G1 v( W. S
22. mxlApp.ActiveWorkbook.Save
    * K1 m& e9 M# G8 h# u
23. mxlbook.Close True
    0 b2 H& f# H( m9 t" D
24.    mxlApp.Quit
    0 G# ?2 o2 Y! q+ a3 E, o0 u
25.    Exit Sub
    7 [8 z) Y, b7 Q
26. End If
    
27. DoEvents
    
28. Next i
    7 x" G; r! C7 j# ?- o
29. End Sub
    
30. Private Sub Form_Load()
    
31. Set xlApp = New Excel.Application
    
32. xlApp.Visible = False
    
33. Set xlbook = xlApp.Workbooks.Open("d:\nixan.xls")
    
34. Set xlsheet = xlbook.Worksheets(1)
    
35. 
    
36. Set mxlApp = New Excel.Application
    
37. mxlApp.Visible = False
    # S. O4 x6 m2 p) w7 z- |( s
38. Set mxlbook = mxlApp.Workbooks.Open("d:\m.xls")
    1 s. x! f8 G" @4 J5 ]
39. Set mxlsheet = mxlbook.Worksheets(1)
    
40. End Sub

مەزمۇننى كۆچۈرۈۋېلىش

  [  A% H! e6 G1 |! I% K5 @
5 ^, C: U+ _% z* _) ]