Excel VBA: كۆپەيتىلمىگەن ئىختىيارى نومۇر ھاسىل قىلغۇچى (4 مىسال)

  • ھەمبەھىرلەڭ
Hugh West

مەزمۇن جەدۋىلى

بۇ ماقالىدە Excel دا VBA نى ئىشلىتىپ كۆپەيتمىسى يوق ئىختىيارى سان ھاسىللىغۇچ نىڭ 4 مىسالى كۆرسىتىلدى. بۇ يەردە بىز Excel نىڭ ئىچىگە قاچىلانغان Rnd ئىقتىدارىنى ئىشلىتىپ كودىمىزنى تەڭشەيمىز. مىساللارغا شۇڭغۇپ ، ئۆزگىچە تاسادىپىي سان ھاسىل قىلىش تېخنىكىسىنى ئۆگىنىمىز.

ئەمەلىي مەشغۇلات دەپتىرىنى چۈشۈرۈڭ 3> كۆپەيتىلمىگەن ئىختىيارى سان گېنېراتورى. Xlsm 0> Visual Basic تەھرىرلىگۈچتە كود يېزىڭ كۆرۈنۈشلۈك ئاساسىي تەھرىرلىگۈچتىكى كود . باسقۇچلارغا ئەگىشىڭ دىن نى ئېچىڭ كۆرۈنۈشلۈك ئاساسىي تەھرىرلىگۈچ نى ئېچىڭ ۋە ئۇ يەرگە بىر قىسىم كودلارنى يېزىڭ> ئاچقۇچى بەتكۈچ Excel لېنتىسى .
  • كۆرۈنۈش ئاساسى تاللاشنى چېكىڭ.
    • قوللىنىشچان پروگراممىلارنىڭ كۆرۈنۈش ئاساسى كۆزنىكىدە ، تامچە قىستۇرما نى نى چېكىپ ، يېڭى بۆلەكنى تاللاڭ. تاللانما.
    دىن نى ئىجرا قىلىڭ .

    1. كۆپەيتىلمىگەن ئىختىيارى سان ھاسىل قىلىش ئۈچۈن VBA Rnd فۇنكسىيەسىنى ئىشلىتىش

    Rnd ئىقتىدارى Excel VBA دىن 0 ئارىسىدا بولغان ئىختىيارى سانلارنى ھاسىل قىلىڭ ۋە 1 مەخسۇس.

    ۋەزىپە : كاتەكچىدىكى A1: A10.

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

    2110

    > 0 ۋە 1 نىڭ دائىرىسىدە.

    كود ئىزاھاتى:> كاتەكچە دائىرىسى A1: A10 غا ئىختىيارى سانلارنى قىستۇرۇش. a يېڭى سان نى قىستۇرۇشتىن بۇرۇن ، بىز دەۋرىدىكى دىن گە كۆرۈنۈش نى ئىشلىتىپ نومۇرى نى ئىشلەتتۇق. 1> ئالدىن بېكىتىلگەن كاتەكچە دائىرىسى (A1: A10) مەيلى ئاللىبۇرۇن مەۋجۇت ياكى ئەمەس. ھەر قېتىم كاتەكچە دائىرىسىدىكى سان نىڭ مەۋجۇتلۇقى نى تەكشۈرۈش ئۈچۈن ، بىز بۇ كودنى COUNTIF ئىقتىدارى ، بۇ ئىقتىدار تىزىملىكتىكى تىزىملىكتىكى دىكى يېڭى ئىختىيارى سان نى تەكشۈرۈشتىن بۇرۇن بار بولغان سانلارنى تەكشۈرىدۇ.

    تېخىمۇ كۆپ ئوقۇڭ : ئىختىيارى سان ھاسىل قىلىدىغان Excel فورمۇلا (5 مىسال)

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

    سان ھاسىل قىلغۇچى- ئونلۇق

    ۋەزىپە : 10 بىلەن 20 ئارىلىقىدا 10 ئىختىيارى سان ھاسىل قىلىڭ> A1: A10.

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

    6040
    > 1 ۋە 10 ئارىلىقىدىكى دائىرىسىدە> VBA Int ئىقتىدارى دىن بۆلەك قىسمى نى ئىختىيارى سان دىن ئۆچۈرۈڭ.

    ۋەزىپە : A1: B10 كاتەكچىلىرىدە 1 بىلەن 20 ئارىسىدا 20 ئىختىيارى پۈتۈن سان ھاسىل قىلىڭ.

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

    3323

    2> 1 ۋە 20 ئارىلىقىدىكى دائىرىسىدە.

    تېخىمۇ كۆپ ئوقۇڭ: 3>

    مۇشۇنىڭغا ئوخشاش ئوقۇشلۇقلار

    • Excel دىكى سانلىق مەلۇمات ئانالىز قورالى ۋە ئىقتىدارلىرى بىلەن ئىختىيارى سان ھاسىللىغۇچ
    • قانداق قىلىش Excel دا ئىختىيارى سانلىق مەلۇمات ھاسىل قىلىڭ (9ئاسان ئۇسۇللار)
    • Excel دىكى ئىختىيارى 5 خانىلىق گېنېراتور (7 مىسال)
    • 2>
    • Excel دىكى تىزىملىكتىن ئىختىيارى سان ھاسىل قىلىڭ (4 خىل ئۇسۇل)

    3. Excel VBA دىكى ئۆزگىچە ئىختىيارى نومۇر ھاسىل قىلغۇچىنىڭ ئونلۇق ئورنىنى بەلگىلەڭ ئونلۇق ئورۇندىكى سان تاسادىپىي ھاسىل قىلىنغان ئۆزگىچە سان . فۇنكىسىيەنىڭ گرامماتىكىسى بولسا-

    يۇمىلاق (ئىپادىلەش ، [numdecimalplaces])

    بىز نى بەلگىلىشىمىز كېرەك. تەلىپىمىز بويىچە 2-تالاش-تارتىش .

    ۋەزىپە :> 1 ۋە 20 كاتەكچىدىكى A1: B10.

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

    6429

    1 ۋە 20 ئارىلىقىدىكى 2 ئونلۇق ئورۇن

    تېخىمۇ كۆپ ئوقۇڭ: 2>

    4. Excel VBA دا كۆپەيتىلمىگەن ئىختىيارى نومۇر ھاسىللىغۇچنىڭ ئىشلەتكۈچى شەكلىنى تەرەققىي قىلدۇرۇش

    بۇ رەسىمدە ، بىز <1 دىكى ئىشلەتكۈچى فورماتى نى قانداق ئىشلىتىشنى كۆرسىتىمىز> Excel VBA دىن غىچە كۆپەيتىلگەن بىلەن ئىختىيارى سان ھاسىل قىلىدۇ.

    ۋەزىپە: كاتەكچە دائىرىسىدىكى 20 ئىختىيارى سان A1: B10 كىرگۈزۈش قىممىتى (i) تۆۋەن چەك (ii) بىلەن UserForm نى ئىشلىتىپ ئۈستۈنكى سىزىق (iii) ئونلۇق ئورۇن سانى. <2 .3 <<ئاساسىي تاللانما> دىن UserForm تاللاشنى تاللاڭ.

    • بەلگىسى >
      • ئىككى تېخىمۇ كۆپ بەلگىسىنى قوشۇڭ 24>
    • ھازىر UserForm غا ئۈچ TextBoxes نى قوشۇڭ.

    • بۇ باسقۇچتا ، a بۇيرۇق كۇنۇپكىسى نى قوشۇڭ ۋە ئۇنىڭغا ھاسىل قىلىڭ .

    • ھازىر ، بۇيرۇق كۇنۇپكىسى نى قوش چېكىڭ ۋە تۆۋەندىكى كود نى كود تەھرىرلىگۈچى گە قويۇڭ.
    6034

    • F5 نى بېسىڭ ، ئىجرا قىلىڭ كود ۋە UserForm پەيدا بولدى . 2> ئونلۇق ئورۇن دىكى UserForm دىكى ھاسىل قىلىش كۇنۇپكىسى.

    سانلار بىلەن 1 دىن 30 گىچە بولغان 2 ​​ئونلۇق ئورۇن بىلەن

    تېخىمۇ كۆپ ئوقۇڭ: Excel دا تەكرارلانمىغان ئىختىيارى سانلارنى قانداق ھاسىل قىلىش (7 خىل ئۇسۇل)

    ئەستە تۇتۇشقا تېگىشلىك ئىشلار

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

    خۇلاسە

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

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