ئىنتىل تورى

 پارول قايتۇرىۋېلىش
 تىزىملىتىش
ئىزدەش
ئاۋات ئىزدەش: مۇسابىقەchromeexcelwordps
كۆرۈش: 804|ئىنكاس: 2

OfficeVba دىن پادىلىنىپ تۈر بويىچە جەملەش [ئۇلانما كۆچۈرۈش]

artuq   [ئىشەنچلىك ئەزا]  实名认证 

Rank: 7Rank: 7Rank: 7

تۆھپە
417
تىللا
659
شۆھرەت
845

شەرەپ تۆھپە

يوللىغان ۋاقتى 2011-1-10 21:37:46 |ھەممە قەۋەتنى كۆرۈش
مەلۇم بىر جەدىۋەلدە A2دىن باشلاپ تەكرالانغان ھەم ئارلاش سانلىق مەلۇماتلار بار بولسۇن(مەلۇم شىركەتنىڭ ۋاكالىتەن ساتقۇچىللىرنىڭ ئىسمى دىگەچ تۇرايلى)،B2دىن باشلاپ مەھسۇلات ساتقان  ۋاقتى ،C2دە ماس بولغان سېتىلش مىقدارى دىگەندەك ئۇچۇرلار بار بولسا ،ھەر بىر ساتقۇچىنىڭ سېتىش مىقدارىنى تۇر بۇيىچە جەملىمەكچى بولساق ،تۇۋەندىكى كود ئارقىلىق ئەمەلگە ئاشۇرۇشقا بۇلىدۇ .
  1. Public Sub 汇总()
  2. i = 2
  3. t = 0
  4. zc = 0
  5. While Cells(i, 1).Value <> ""
  6. t = t + 1
  7. zc = zc + Cells(i, 3)  '
  8. If Cells(i, 1) <> Cells(i + 1, 1) Then
  9. Rows(i + 1).Select
  10. Selection.Insert Shift:=xlDown
  11. Cells(i + 1, 3) = zc
  12. zc = 0
  13. i = i + 1
  14. t = 0
  15. End If
  16. i = i + 1
  17. Wend
  18. Rows(i).Select

  19. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
كودتىكىi = 2نى ئوزگەرتسەك باشلىنىش قۇرى ئوزگىرىدۇ،
  1. While Cells(i, 1).Value <> ""ۋە If Cells(i, 1) <> Cells(i + 1, 1) Then
مەزمۇننى كۆچۈرۈۋېلىش
دىكى 1نى ئوزگەرتسەك شەرتى رايۇنى يەنى ئىسىم -فامىلىسى بار ئىستون ئوزگىرىدۇ،
  1. zc = zc + Cells(i, 3) ۋە Cells(i + 1, 3) = zc
مەزمۇننى كۆچۈرۈۋېلىش
دىكى 3نى ئوزگەرتسەك قۇشۇلىدىغان سانلىق مەلۇمات رايۇنى ئوزگىرىدۇ .
1

باھا خاتىرىسى

artuq   [ئىشەنچلىك ئەزا]  实名认证 

Rank: 7Rank: 7Rank: 7

تۆھپە
417
تىللا
659
شۆھرەت
845

شەرەپ تۆھپە

يوللىغان ۋاقتى 2011-1-10 21:41:14 |ھەممە قەۋەتنى كۆرۈش
يۇقارقى مىسالنىڭ قۇشۇمچىسى ،باياتىن چىقىرىشنى ئۇنتۇپ قاپتىمەن .

TUR BUYIQE JEMLESH.rar

8.1 KB, چۈشۈرۈش سانى: 185

TUR BUYIQE JEMLESH.rar

8.1 KB, چۈشۈرۈش سانى: 148

Rank: 3Rank: 3

تۆھپە
80
تىللا
130
شۆھرەت
127
يوللىغان ۋاقتى 2011-4-6 15:36:34 |ھەممە قەۋەتنى كۆرۈش
ئىنكاس قايتۇرۇش artuq نىڭ يازمىسى

بەك ياخشى بىلىمكەن، يەنىمۇ ياخشى ئۆلەىلەر بولسا يوللاپ تۇرارسىز، كودلارنى خىلى تەپسىلى چۈشەندۈرۈپ ئۆتۈپسىز، رەىمەت سىزگە.
كىرگەندىن كىيىن ئىنكاس يازالايسىز كىرىش | تىزىملىتىش

يانفۇن|Archiver|intil.cn ( 新ICP备11001938号 )

GMT+8, 2012-11-8 15:06 , Processed in 0.103617 second(s), 21 queries .

Powered by Discuz! X2(NurQut Team) Licensed

© 2001-2011 Comsenz Inc.

چوققىغا قايتىش