بۇ مەسىلىنى قانداق ھەل قىلىمىز ؟؟

egilik · ۋاقتى: 2015-3-5 22:29:05

ئەسسىلامۇئەلەيكۇم مۇنبەر ئەھلى ...
مەقسەتنى ئۇدۇللا ئېيتاي
بىر خىزمەت دەپتىرىدە ئىككى دانە جەدىۋەل بار يەنى 基本数据ۋە 打印  دىگەن ئىككى جەدىۋەل بار . 基本数据 دىكى ئۇچۇرلاردىن پايدىلىنىپ 打印 دىگەن جەدىۋەلگە ماس ھالدىكى مەزمۇنلارنى كۆچۈرۈپ ئېلىپ  بۇنى بېسىپ چىقىرىش ئىدى . مەن vlookup فورمىلسى ئارقلىق ھەم ئىنتىل تورىدىن ئۆگنىۋالغان بىلىملەردىن پايدىلىنىپ ماس ئۇچۇرلارنى ماس كاتەككە  كىلىدىغان قىلغان ئىدىم . بېسىپ چىقىرىشتا تو بىر تەرەپ قىلاي دەپ  مەزكۇر جەدىۋەلگە ماكرو ئارقىلىق كۇنۇپكا بەللەپ بېسىپ چىقىرىش مەسىتىگە يەتتىم . بىراق بىر بەتتە بىرلا ئادەمنىڭ ئۇچۇرىنى كىلدىغان قىلسام  مەسىلە ھەل بۇلۇپ كىتىدىكەن ، ئەمما بىر بەتتە بىراقلا ئىككى ئادەمنىڭ ئۇچۇرىنى چىقىرىپ  تەرتىپ بۇيىچە  بىر نەچچە يۈز ئادەمنىڭ ئۇچۇرىنى بېسىپ چىقىرىشتا قىينىلىپ قالدىم ، ماكرونى قانداق يېزىشنى بىلەلمىدىم . شۇڭا ھەرقايسىڭلارغا سۇنۇشۇم .
يەنى  بېسىپ چقىرىش كۇنۇپكىسىنى باسقاندا BC6 دىگەن كاتەكتىكى  تەرتىپ سانىغا بىردىن قۇشۇپ ياكى تەرتىپ بىردىن ئاتلاپ ئۆتۈپ ماڭسا  ئاساسى مەسەتكە يەتكەن بولاتتىم .
قۇشۇمچە (  打印  دىگەن جەدىۋەلدىكى  BC6 كاتەكتىكى سان تەرتىپ ئۆزگەرسە W2 كاتەكتىكى سان ماس ھالدا شۇ كاتەككە تەڭ بۇلۇپ ماس ئۇچۇرلارنى ئىلغاپ ئالىدۇ . ھەم شۇنىغا ماس ھالدا  يان تەرپىدىكى  AW2 دىگەن كاتەك W2دىكى سانغا بىرنى قۇشۇپ ئىككىنجى بىر ئادەمنىڭ ماس ئۇچۇرىنى ئالىدۇ )
مەقسىتىمىنى توغرا ئىپادىلىيەلمىگەن بولسام قۇشۇمچە جەدىۋەلنى كۆرۈپ بىر نىمە دەرسىلە ،،،

egilik · ۋاقتى: 2015-3-5 22:31:34

ئەسسىلامۇئەلەيكۇم مۇنبەر ئەھلى ...
مەقسەتنى ئۇدۇللا ئېيتاي
بىر خىزمەت دەپتىرىدە ئىككى دانە جەدىۋەل بار يەنى 基本数据ۋە 打印  دىگەن ئىككى جەدىۋەل بار . 基本数据 دىكى ئۇچۇرلاردىن پايدىلىنىپ 打印 دىگەن جەدىۋەلگە ماس ھالدىكى مەزمۇنلارنى كۆچۈرۈپ ئېلىپ  بۇنى بېسىپ چىقىرىش ئىدى . مەن vlookup فورمىلسى ئارقلىق ھەم ئىنتىل تورىدىن ئۆگنىۋالغان بىلىملەردىن پايدىلىنىپ ماس ئۇچۇرلارنى ماس كاتەككە  كىلىدىغان قىلغان ئىدىم . بېسىپ چىقىرىشتا تو بىر تەرەپ قىلاي دەپ  مەزكۇر جەدىۋەلگە ماكرو ئارقىلىق كۇنۇپكا بەللەپ بېسىپ چىقىرىش مەسىتىگە يەتتىم . بىراق بىر بەتتە بىرلا ئادەمنىڭ ئۇچۇرىنى كىلدىغان قىلسام  مەسىلە ھەل بۇلۇپ كىتىدىكەن ، ئەمما بىر بەتتە بىراقلا ئىككى ئادەمنىڭ ئۇچۇرىنى چىقىرىپ  تەرتىپ بۇيىچە  بىر نەچچە يۈز ئادەمنىڭ ئۇچۇرىنى بېسىپ چىقىرىشتا قىينىلىپ قالدىم ، ماكرونى قانداق يېزىشنى بىلەلمىدىم . شۇڭا ھەرقايسىڭلارغا سۇنۇشۇم .
يەنى  بېسىپ چقىرىش كۇنۇپكىسىنى باسقاندا BC6 دىگەن كاتەكتىكى  تەرتىپ سانىغا بىردىن قۇشۇپ ياكى تەرتىپ بىردىن ئاتلاپ ئۆتۈپ ماڭسا  ئاساسى مەسەتكە يەتكەن بولاتتىم .
قۇشۇمچە (  打印  دىگەن جەدىۋەلدىكى  BC6 كاتەكتىكى سان تەرتىپ ئۆزگەرسە W2 كاتەكتىكى سان ماس ھالدا شۇ كاتەككە تەڭ بۇلۇپ ماس ئۇچۇرلارنى ئىلغاپ ئالىدۇ . ھەم شۇنىغا ماس ھالدا  يان تەرپىدىكى  AW2 دىگەن كاتەك W2دىكى سانغا بىرنى قۇشۇپ ئىككىنجى بىر ئادەمنىڭ ماس ئۇچۇرىنى ئالىدۇ )
مەقسىتىمىنى توغرا ئىپادىلىيەلمىگەن بولسام قۇشۇمچە جەدىۋەلنى كۆرۈپ بىر نىمە دەرسىلە ،،،

ukturux.rar (26.11 KB, چۈشۈرۈش سانى: 443)

egilik · ۋاقتى: 2015-3-7 17:11:37

ئۇستازلار ... بەكلا ئالدىراشمۇ نىمە ؟ مۇمكىن بولسا تەلىم بەرگەن بولساڭلار

egilik · ۋاقتى: 2015-3-8 13:14:53

مەسىلىنى ئۆزۈم ھەل قىلىۋالدىم . ھەممىڭلارغا كۆپ رەھمەت .

muhammad · ۋاقتى: 2015-3-8 22:54:12

بۇ يازمىنى ئاخىرىدا muhammad تەھرىرلىگەن. ۋاقتى 2015-3-8 22:56

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

通知.zip (30.61 KB, چۈشۈرۈش سانى: 416)

egilik · ۋاقتى: 2015-3-10 19:22:51

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

Sub ²éÑ¯ÅúÁ¿´òÓ¡()
For i = Range("bc8") To Range("bc10")
Range("bc6") = i
i = i + 1
ActiveSheet.PrintOut
Next
End Sub

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

بۇنىڭغا مەن i نىڭ قىممىتىگە 1 نى قۇشۇپ بەرسۇن دەپ سىناپ باققان
i = i + 1

كىيىن ئۆزگەرتىكەن فورمىلا

Sub ²éÑ¯ÅúÁ¿´òÓ¡()
For i = Range("bc8") To Range("bc10")
Range("bc6") = i
i = i + 1
ActiveSheet.PrintOut
Next
End Sub

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

مۇشۇنداقلا قىلىپ باققان ، بىر سىناپ باقاي دەپ ئۆزەمچە ..... مەسىلە ھەل بوپ قالغاندەك ....

egilik · ۋاقتى: 2015-3-10 19:25:04

بەلىكىم مەنتىقىگە ئۇغۇن بولماسلىقىمۇ مۇمكىن ، بىلىپ بىلىمەي مەسىلەم ھەل بوپ قالدى .... ھەممىڭلارغا كۆپ رەھمەت .....

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

[ياردەم] بۇ مەسىلىنى قانداق ھەل قىلىمىز ؟؟

بۇ مەسىلىنى قانداق ھەل قىلىمىز (ياردەم)