روھلان مۇنبىرى
كۆرۈش: 4284|ئىنكاس: 2
ئوڭ تەرىپنى يىغىش

سۈزۈپ ئېلىۋېلىنغان(筛选) ئۇچۇرلارنى ئايرىم ساقلاش ئۇسۇلى

[ئۇلانما كۆچۈرۈش]
ۋاقتى: 2014-10-24 18:40:29 | ھەممە قەۋەتنى كۆرۈش |كۆرۈش شەكلى
بۇ يازمىنى ئاخىرىدا   ئەلدىل تەھرىرلىگەن. ۋاقتى  2014-10-24 18:42  * a1 Z3 S# M" J' K3 uبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()

6 L, \7 I0 b- g2 N9 c8 g6 x+ L0 j Excel  دا دائىم ئۇچۇرلارنى ئۆزىمىزنىڭ ئېھتىياجى بۇيىچە سۈزۈپ ( 筛选 قىلىپ ) ئېلىۋالىمىز .8 l! }6 P0 V, ~3 t- Z  Kبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
لىكىن سۈزۈپ ئېلىنغان ئۇچۇرلارنى نۇسخىلاپ يېڭى  Excel ھۆججىتىگە چاپلىساق سۈزۈپ ئېلىنغان ۋە سۈزۈپ ئېلىنمىغان ھەممىسى بىراقلا چاپلىنىپ بىزنى ئاۋارە قىلىدۇ .
8 w7 h& Y) u6 f% c+ V, ]) Bمەنمۇ بۇ مەسلە ئۈستىدە كۆپ ئىزدىنىپ ئاخىرى بىر كود تاپتىم شۇڭا بۇ كودنى كوپچىلىكمۇ پايدىلىنىپ كۈرۈپ باقسۇن دىگەن مەقسەتتە تورداشلارغا سۇندۇم .2 o6 k1 g& Q$ {5 i! U8 k- S0 jبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
بۇ كود    宏   كودى بۇلۇپ ئېشلىتىش ئۇسۇلى چاپلاپ ئىجرا قىلسىڭىزلا سىز سۈزۈپ قۇيغان ئۇچۇرلارنى sheet2 گە يۆتكەپ بىرىدۇ
' @" Y, S- P1 Dبۇ كود تۆۋەندىكىچە 4 o* `; n! q0 F7 e! _; Y* T( Eبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
Sub CopyFilter()& F0 k; ^! C3 xبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
    Sheet2.Cells.Clear6 E6 N4 }* a6 z/ v/ eبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
    WITh Sheet1
% m! n# y; V% s0 z, v2 e/ n, ^, f        If .FilterMode Then6 k) g# G; p. n( Kبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
            .AutoFilter.Range.SpecialCells(12).Copy Sheet2.Cells(1, 1)% o: V- y$ x. Z! A7 nبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
        End If
7 q7 Z: J3 X* z& a4 w9 f5 Q    End With
1 h. n, r0 {- c" \2 ~2 CEnd Sub, N! \8 Z; @1 ]' a; H5 g* aبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
قېنى ئىشلىتىپ سىناپ كۈرۈڭلار  چۈشىنەلمىگەن مەسلە بولسا ئاستىغا ئىنكاس قايتۇرساڭلار چۈشەندۈرۈپ قۇيىمەن.
ياقتۇرىشىڭىز مۇمكىن؟

مۇناسىۋەتلىك تېمىلار

ۋاقتى: 2014-10-25 23:46:12 | ھەممە قەۋەتنى كۆرۈش
ياخشى بىلىمكەن جاپاچىكىپسىز
ۋاقتى: 2015-2-1 19:52:25 | ھەممە قەۋەتنى كۆرۈش
بۇنى قانداق چاپلايمز بولسا ئەملى مىسال ئىلىپ چۈشەندۈرۈپ قويغان بولسىڭىز

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

كىرگەندىن كېيىن ئىنكاس يازالايسىز كىرىش | ئەزا بولۇڭ

سەھىپە جۇغلانما قائىدىسى

archiver|يانفۇن نۇسخا|قاماقخانا|ئېلان بېرىڭ|بىز كىم؟|ئۈندىدار|روھلان مۇنبىرى

GMT+8, 2016-8-5 06:55

Powered by Discuz! X3.2(NurQut Team)

© 2001-2013 Comsenz Inc.

تېز ئىنكاس چوققىغا قايتىش سەھىپىگە قايتىش