Энэ нийтлэлд Excel-д VBA ашигладаг санамсаргүй тоо үүсгэгч -ийн 4 жишээг харуулсан болно. Энд бид кодоо тохируулахын тулд Excel-ийн суурилуулсан Rnd функцийг ашиглах болно. Өвөрмөц санамсаргүй тоо үүсгэх арга техникийг сурахын тулд жишээнүүдийг судалцгаая.

Дадлага хийх ажлын номыг татаж авах

Энэ нийтлэлийг уншиж байхдаа дасгал хийхийн тулд энэхүү дадлагын ажлын номыг татаж авна уу.

4 Excel VBA дахь давхардалгүй санамсаргүй тоо үүсгэгчийн жишээ

Visual Basic Editor дээр код бичих

давхардалгүйгээр санамсаргүй тоо үүсгэх бол бид нээх болон VBA бичих хэрэгтэй. код визуал үндсэн засварлагч. алхмуудыг дагаж харааны үндсэн засварлагч -г нээж, тэнд хэдэн код бичнэ үү.

• <1 руу очно уу> Excel Ribbon -ийн хөгжүүлэгч таб.
• Visual Basic сонголтыг товшино уу.

• Visual Basic For Applications цонхны Insert dropdown дээр дарж Шинэ модулийг сонгоно уу. сонголт.

Одоо кодоо харааны код засварлагч дотор оруулаад F5 дарна уу. -аас хүргэх үүнийг.

1. Давхардалгүй санамсаргүй тоо үүсгэхийн тулд VBA Rnd функцийг ашиглах

Rnd функц нь Excel VBA -ээс <1 хүртэл ашиглагддаг>0-ийн хооронд байгаа санамсаргүй тоонуудыг үүсгэнэ болон 1 онцгой.

Даалгавар : 10 санамсаргүй тоо 0 ба 1 хооронд үүсгэнэ A1:A10 нүднүүдэд.

Код : Доорх кодоо харааны үндсэн засварлагч д оруулаад F5 товчийг дарна уу. үүнийг ажиллуулах.

1210

Гаралт : Дээрх дэлгэцийн агшинд 10 өвөрмөц санамсаргүй тоо<2 харагдаж байна> 0 ба 1-ийн мужид.

Код тайлбар:

Энэ кодонд бид Rnd функцийг <2 ашигласан> А1:А10 нүдний мужид санамсаргүй тоо оруулах. шинэ тоо оруулахын өмнө бид Do while давталт -г ашиглан тоо -г хайсан. 1>урьдчилан тодорхойлсон нүдний муж (A1:A10) энэ нь аль хэдийн байгаа эсвэл байгаа эсэх. нүдний мужид тоо байгааг хэрэглэхийн тулд бид кодыг COUNTIF функц -ээр тохируулсан. Энэ функц нь оруулахын өмнө а шинэ санамсаргүй тоо жагсаалтын одоо байгаа тоонуудыг шалгана.

Дэлгэрэнгүй унших : Санамсаргүй тоо үүсгэх Excel-ийн томьёо (5 жишээ)

2. Давхардалгүй тодорхой доод ба дээд хязгаарт зориулсан санамсаргүй тоо үүсгэгч

тодорхойлогдсон мужид санамсаргүй тоо үүсгэхийн тулд бид Манай VBA кодонд доод болон дээд хязгаар -г тохируул. Мэдээллийн хувьд доод хязгаар нь хамгийн бага тоо болон дээд хязгаар юм. санамсаргүй тоо үүсгэгчийн хувьд хамгийн их тоо мужийн . Бид дараах томьёог коддоо ашиглаж болно.

(дээд хязгаар – доод хязгаар + 1) * Rnd + доод хязгаар

2.1 Санамсаргүй Тоон үүсгэгч- Аравтын

Даалгавар : 10 ба 20 хооронд 10 санамсаргүй тоо үүсгэнэ>A1:A10 нүднүүд.

Код : Доорх кодоо харааны үндсэн засварлагч -д оруулаад F5 товчийг дарна уу. үүнийг ажиллуулах.

5425

Гаралт : Дээрх дэлгэцийн агшинд 10 өвөрмөц санамсаргүй тоо<2 харагдаж байна> 1 ба 10-ын мужид.

2.2 Санамсаргүй тоо үүсгэгч- Бүхэл тоо

Энэ зурагт бид <1-г ашиглах болно> VBA Int функц -аас санамсаргүй тооноос бутархай хэсгийг хасна.

Даалгавар : A1:B10 нүднүүдийн 1 ба 20 хооронд санамсаргүй 20 бүхэл тоо үүсгэ.

Код : Доорх кодоо харааны үндсэн засварлагч -д оруулаад F5 товчийг дарна уу. үүнийг ажиллуулах.

3947

Гаралт : Дээрх дэлгэцийн агшинд 20 өвөрмөц санамсаргүй бүхэл тоо 1 ба 20-ын мужид.

Дэлгэрэнгүй унших: Дахин давтагдахгүй Excel-ийн санамсаргүй тоо үүсгэгч (9 арга)

Ижил төстэй уншилтууд

• Өгөгдлийн шинжилгээний хэрэгсэл, Excel-ийн функц бүхий санамсаргүй тоо үүсгэгч
• Хэрхэн Excel дээр санамсаргүй өгөгдөл үүсгэх (9Хялбар аргууд)
• Excel дэх санамсаргүй 5 оронтой тоо үүсгэгч (7 жишээ)
• Excel дэх санамсаргүй 4 оронтой тоо үүсгэгч (8 жишээ)
• Excel дээр жагсаалтаас санамсаргүй тоо үүсгэх (4 арга)

3. Excel VBA-д өвөрмөц санамсаргүй тоо үүсгэгчийн аравтын орон зайг зааж өгөх

Бид кодын Дугуй функцийг ашиглан захиалах боломжтой. санамсаргүй байдлаар үүсгэгдсэн өвөрмөц тоонуудын доторх аравтын оронгийн тоо . Функцийн синтакс -

Дугуй(илэрхийлэл, [аравтын орон])

Бид заах хэрэгтэй 2-р аргумент бидний шаардлага -ын дагуу.

Даалгавар : <1-ийн хооронд 2 аравтын оронтой 20 санамсаргүй тоо үүсгэ. A1:B10 нүднүүдэд>1 болон 20 .

Код : Доорх кодоо харааны үндсэн засварлагч -д оруулаад F5 товчийг дарна уу. хэрэглэх үүнийг.

7178

Гаралт : Дээрх дэлгэцийн зураг нь 20 өвөрмөц санамсаргүй бүхэл тоог харуулж байна. 1 ба 20-ын мужид 2 аравтын орон .

Дэлгэрэнгүй унших: Excel-д аравтын тоогоор санамсаргүй тоо үүсгэх (3 арга)

4. Excel VBA дээр давхардалгүй санамсаргүй тоо үүсгэгчийн хэрэглэгчийн маягтыг боловсруулах

Энэ зурагт бид UserForm -г хэрхэн ашиглахыг харуулах болно>Excel VBA болон санамсаргүй тоо давхардалгүй үүсгэх.

Даалгавар: Үйлдвэрлэх20 санамсаргүй тоо нүдний мужид A1:B10 UserForm ашиглан оролтын утгууд (i) доод хязгаар (ii) дээд талын (iii) аравтын бутархайн тоо.

Хэрэглэгчийн маягт үүсгэх:

Доорх алхмуудыг даган Хэрэглэгчийн маягт бидний хүссэн оруулах талбаруудыг үүсгэнэ үү. .

• Excel Ribbon -аас Хөгжүүлэгч таб руу очно уу.
• Visual дээр дарна уу. Үндсэн сонголт.

• Visual Basic For Applications цонхны Insert dropdown дээр дарна уу болон UserForm сонголтыг сонгоно.

• UserForm-д нэмнэ a шошго .
• Properties дахь шошго Доод хязгаар гэж бичнэ үү.

• хоёр өөр шошго нэртэй Дээд багц ба Аравтын орон нэмнэ.

• Одоо UserForm дотор гурван TextBox нэмээрэй.

• Энэ үе шатанд а Командын товч нэмээд Үйлдвэрлэх гэж нэрлэнэ.

• Одоо Командын товчийг давхар товшоод код засварлагч -д дараах код г оруулна уу.

3491

• F5 -г дарж код <2-г ажиллуулна>болон UserForm харагдсан .
• доод , дээд, болон тоо <-г оруулна уу. 2> аравтын орон UserForm болон Үйлдвэрлэх товчийг дарна уу.Товч .

Гаралт : A1:B10 нүднүүдэд 20 санамсаргүй байна. тоо 1-ээс 30 хүртэлх 2 аравтын оронтой 2 бутархай .

Дэлгэрэнгүй унших: Excel дээр давхардалгүйгээр санамсаргүй тоонуудыг хэрхэн үүсгэх вэ (7 арга)

Санамжлах зүйлс

• Бид мөн Int функцийн -ын оронд функцийг өвөрмөц бүхэл тоо үүсгэх -ийг засна уу. функц нь Int функц -тэй адил тооны бутархай хэсгийг устгадаг.

Дүгнэлт

Одоо бид тохирох жишээнүүдийн тусламжтайгаар Excel-д VBA ашиглан өвөрмөц санамсаргүй тоонуудыг хэрхэн үүсгэхийг мэдэж байна. Энэ нь танд функцийг илүү итгэлтэй ашиглахад тусална гэж найдаж байна. Аливаа асуулт, санал байвал доорх коммент хэсэгт оруулахаа бүү мартаарай.