ئىنتىل تورى › سەينا › Office بىلىمى › Excel بىلىمى › excelدا مۇنداق vbaكىرەكتى.....

كۆرۈش: 220|ئىنكاس: 5

excelدا مۇنداق vbaكىرەكتى..... [ئۇلانما كۆچۈرۈش]

uydown

دەلىللەنگەن

Rank: 5 Rank: 5

تۆھپە: 678
تىللا: 961
شۆھرەت: 1294

يوللىغان ۋاقتى 2012-9-7 21:21:13 |ھەممە قەۋەتنى كۆرۈش

بىر دانە كىشى ئىسىملىرى، ئادىرىسى بار جەدىۋەل بار ئىدى. (ئاساسەن خەنزۇچە)

|1| 买买提江 |1组01号|
|2| 阿里木    |1组01号|
|3| 萨代提    |2组01号|
|4| 拿衣普    |2组01号|
|5| 阿帕尔    |2组02号|
|6| 多来提    |2组03号|

ئىسىم، ئادىرىس ئايرىم ئايرىم ئىستۇندا......
مەقسەت؛ شەرت بۇيىچە ھەر بىر ئائىلىنى بىر ۋاراققا چىقىرىش (1- مەھەللە 1- ئائىلىدە 2ئادەم بولسا ئىككى ئادەم بىر ۋاراققا چىقىدۇ. 1ئادەم بولسا بىر ۋاراققا چىقىدۇ. )
自动筛选قىلىپ تاللاپ بىر- بىرلەپ مەھەللە بۇيىچە 4000ئائىلىنى قەغەزگە بېسىپ چىقىرىشقا خېلى «كۈچ»، ۋاقىت كەتكۈدەك
شۇڭا مۇشۇنى ھەل قىلىدىغان vbaكىرەك بۇلۇپ قالغان. بۇ يازمىنى ئاخىرىدا uydown تەھرىرلىگەن. ۋاقتى 2012-9-7 21:22

ياردەم تېمىسى يوللاش ساۋادى

جابدۇق ئىشلىتىش پاش قىلىش

Atush

ئالاھىدە ئەزا

Rank: 5 Rank: 5

تۆھپە: 781
تىللا: 1731
شۆھرەت: 1939

يوللىغان ۋاقتى 2012-9-7 23:38:26 |ھەممە قەۋەتنى كۆرۈش

تەلەپنىمۇ ئايرىم ئىپادىلەپ، ماتىريالنى تولۇق يوللاڭ! (بىر ئادەمنىڭ ئىسمى بىلەن ئادىرىسىنىلا بىرلا ۋاراققا چىقىرىش ئەمەستۇ؟) بۇ يازمىنى ئاخىرىدا Atush تەھرىرلىگەن. ۋاقتى 2012-9-7 23:40

جابدۇق ئىشلىتىش پاش قىلىش

uydown

دەلىللەنگەن

Rank: 5 Rank: 5

تۆھپە: 678
تىللا: 961
شۆھرەت: 1294

يوللىغان ۋاقتى 2012-9-8 08:30:54 |ھەممە قەۋەتنى كۆرۈش

قۇشۇمچە ھۆججەت ماۋۇ

isimlik.xls (47 KB, چۈشۈرۈش سانى: 26)
(قۇشۇمچە ھۆججەتتىكى نۇپۇس ئازايتىپ يوللاندى.)
مەسىلەن؛ 村1组01号ئائىلىدە 4جان بار. شۇ ئادەملەر بىر ۋاراققا بېسىپ ئايرىم چىقىرلىدۇ.يەنە 村1组21号ئائىلىدىمۇ 4جان بار. شۇ ئادەملەرمۇ بىر ۋاراققا ئايرىم بېسىپ چىقىرلىدۇ. .......
يەنە 村1组22号ئائىلىدىمۇ 5جان بار. شۇ ئادەملەرمۇ بىر ۋاراققا ئايرىم بېسىپ چىقىرلىدۇ. بىر ئائىلىدىكى نۇپۇسنىڭ سانى ئوخشاش ئەمەس، بەزىسىدە 1نۇپۇس، بەزىسىدە 7ياكى 8نۇپۇس بار. 住址 ئىستۇنغا ئاساسەن شەرت بىرىلىپ قەغەزگە بېسىپ چىقىرىلسا بۇلاتتى.
(يەنە بىر گەپ؛ قۇشۇمچە ھۆججەتتىكى كەنتە 4بولسىمۇ، ئىشىك نۇمۇرى تەرتىپ بۇيىچە ئەمەس. يەنى بەزى ئۆيلەردە پەقەتلا نۇپۇس يوق. ئۆلۈپ كەتكەن ياكى كۆچۈپ كەتكەن)

جابدۇق ئىشلىتىش پاش قىلىش

Atush

ئالاھىدە ئەزا

Rank: 5 Rank: 5

تۆھپە: 781
تىللا: 1731
شۆھرەت: 1939

يوللىغان ۋاقتى 2012-9-9 09:46:06 |ھەممە قەۋەتنى كۆرۈش

تۈنۈگۈن پۈتۈن كۈن توك يوك، شۇڭا بۈگۈن يوللىدىم.

isimlik.xls (53 KB, چۈشۈرۈش سانى: 44)

Sub aa()
s = 1
For n = 3 To 2000
If Cells(n, 3).Value = Cells(n - 1, 3).Value And Cells(n - 1, 3).Value <> "" Then s = s + 1
If Cells(n, 3).Value <> Cells(n - 1, 3).Value And Cells(n - 1, 3).Value <> "" Then
Cells(n, 3).Resize(21 - s).EntireRow.Insert
s = 1
End If
Next
End Sub

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

Cells(n, 3).Resize(21 - s).EntireRow.Insert

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

يۇقارقى جۈملىدىكى 21 : بىر بەتكە پاتىدىغان قۇرۇق قۇر سانى(بەلگىلەپ بىرىمىز)، s : ئائىلىدىكى ئادەم سانى(ماكرو ئۈزى سانايدۇ).
ئادەم سانى 5 بولغاندا  (16=5-21 ) ، 16 قۇرۇق قۇر قىستۇرلۇپ، شۇ ئائىلە ئايرىم بىر بەت بولۇشقا كاپالەتلىك قىلىنغان.
قۇستۇرۇلغان قۇرۇق قۇرنىڭ ئىگىزلىكى تەپمۇ-تەڭ بولىدۇ، شۇنداقلا خەت بار قۇرنىڭ ئىگىزلىكى بىلەن تەڭ، دىمەك سىز  ماكرو ئىجرا قىلىشتىن بۇرۇن،  تىزىملىك بار قۇرنىڭ ئىگىزلىكىنى خالىغانچە ئۆزگەرتىپ، بېسىپ چىقىرىشنى ئالدىن كۆرگىنىڭىزدە بىر بەتكە نەچچە قۇر توغرا كەلگەن بولسا ماكرودىكى 21 نى شۇنچىگە ئۆزگەرتىپ قويىسىز.
شەرت: بىر ئائىلدىكى بارلىق ئەزالار چوقۇم  ئارقا-ئارقىدىن يېزىلىپ بولۇپ ئاندىن باشقا بىر ئائىلە ئەزالىرى يېزىلغان بولىشى كىرەك(بىر ئائىلىدىكى مەلۇم ئەزا باشقا بىر  ئائىلىنىڭ ئاستىغا يېزىلىپ قالسا بولمايدۇ)، ئەگەر شۇنداق بولۇپ قالسا، ئاۋال رەتكە سېلىڭ!(排序)
ئائىللەر تەرتىۋى بىلەن مۇناسىۋەتسىز، يەنى 1-ئائىلدىن كىيىن 5-ئائىلە ئاندىن 2- ئائىلە يېزىلغان بولسىمۇ، مەلۇم نومۇرلۇق بىر ئائىلە يېزىلماي قالغان بولسىمۇ بولىۋىرىدۇ. بۇ يازمىنى ئاخىرىدا Atush تەھرىرلىگەن. ۋاقتى  2012-9-9 10:34

جابدۇق ئىشلىتىش پاش قىلىش

muhammad

مۇشاۋۇر

Rank: 8 Rank: 8

تۆھپە: 683
تىللا: 956
شۆھرەت: 1316

يوللىغان ۋاقتى 2012-9-9 15:51:20 |ھەممە قەۋەتنى كۆرۈش

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

جابدۇق ئىشلىتىش پاش قىلىش

uydown

دەلىللەنگەن

Rank: 5 Rank: 5

تۆھپە: 678
تىللا: 961
شۆھرەت: 1294

يوللىغان ۋاقتى 2012-9-9 17:31:42 |ھەممە قەۋەتنى كۆرۈش

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

جابدۇق ئىشلىتىش پاش قىلىش