- توردا
- 106 سائەت
- ئاخىرقى قېتىم
- 2012-11-8
- تىزىملاتقان
- 2010-10-7
- شۆھرەت
- 845
- تىللا
- 659
- تۆھپە
- 417
- ھوقۇقى
- 200
- جۇغلانما
- 2860
- ئالبوم
- 1
- بلوگ
- 0
- خاتىرە
- 0
- يازما
- 94
- تېما
- 41
- نادىر
- 0
- ھەمبەھر
- 0
- UID
- 519
- تۆھپە
- 417
- تىللا
- 659
- شۆھرەت
- 845
|
مەلۇم بىر جەدىۋەلدە A2دىن باشلاپ تەكرالانغان ھەم ئارلاش سانلىق مەلۇماتلار بار بولسۇن(مەلۇم شىركەتنىڭ ۋاكالىتەن ساتقۇچىللىرنىڭ ئىسمى دىگەچ تۇرايلى)،B2دىن باشلاپ مەھسۇلات ساتقان ۋاقتى ،C2دە ماس بولغان سېتىلش مىقدارى دىگەندەك ئۇچۇرلار بار بولسا ،ھەر بىر ساتقۇچىنىڭ سېتىش مىقدارىنى تۇر بۇيىچە جەملىمەكچى بولساق ،تۇۋەندىكى كود ئارقىلىق ئەمەلگە ئاشۇرۇشقا بۇلىدۇ .- Public Sub 汇总()
- i = 2
- t = 0
- zc = 0
- While Cells(i, 1).Value <> ""
- t = t + 1
- zc = zc + Cells(i, 3) '
- If Cells(i, 1) <> Cells(i + 1, 1) Then
- Rows(i + 1).Select
- Selection.Insert Shift:=xlDown
- Cells(i + 1, 3) = zc
- zc = 0
- i = i + 1
- t = 0
- End If
- i = i + 1
- Wend
- Rows(i).Select
- End Sub
مەزمۇننى كۆچۈرۈۋېلىش كودتىكىi = 2نى ئوزگەرتسەك باشلىنىش قۇرى ئوزگىرىدۇ،- While Cells(i, 1).Value <> ""ۋە If Cells(i, 1) <> Cells(i + 1, 1) Then
مەزمۇننى كۆچۈرۈۋېلىش دىكى 1نى ئوزگەرتسەك شەرتى رايۇنى يەنى ئىسىم -فامىلىسى بار ئىستون ئوزگىرىدۇ،- zc = zc + Cells(i, 3) ۋە Cells(i + 1, 3) = zc
مەزمۇننى كۆچۈرۈۋېلىش دىكى 3نى ئوزگەرتسەك قۇشۇلىدىغان سانلىق مەلۇمات رايۇنى ئوزگىرىدۇ . |
-
1
باھا خاتىرىسى
-
|