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

جىددى ياردەم سورايمەن

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

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

بولسا سەل تەپسىلىيراق دېسىوىز، چۈشەنچە بېرىشكە قولايلىق بولاتتى، بولسا مەقسەتنى رەسىم ئارقىلىق ئىپادىلەپ بېقىڭ.
ۋاقتى: 2014-8-17 23:37:08 | ھەممە قەۋەتنى كۆرۈش
بۇ كود ئارقىلىق سېلىشتۇرۇڭ
5 S/ X" M. z' G0 W6 Y: YSub selixtur()( N# ~  ^9 E/ [, L9 ?5 ^# t% Eبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
Dim i, ii
' I& p. M) ~& dFor i = 1 To 10 'Sheet1 ning kur sani8 P. T  H9 X; i! k3 g$ t/ Xبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
    For ii = 1 To 10 'Sheet2 ning kur sani5 G' n0 M; F$ ^% oبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
    If Worksheets("Sheet1").Range("A" & i).Value = Worksheets("Sheet2").Range("A" & ii).Value Then
% f% c# |* F& i* G% P# b    Worksheets("Sheet1").Range("B" & i).Value = Worksheets("Sheet2").Range("A" & ii).Value
6 V# b/ [9 x+ k0 I8 n& A    End If# }2 u0 o' T  Jبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
    Next ii0 ?! A$ s2 _( J! W# B7 Nبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
Next i1 ^; Z% P/ [/ t  E, q6 iبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
End Sub

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

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

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

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

GMT+8, 2016-8-28 07:58

Powered by Discuz! X3.2(NurQut Team)

© 2001-2013 Comsenz Inc.

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