Excel VBA: ຕົວສ້າງຕົວເລກແບບສຸ່ມທີ່ບໍ່ມີການຊໍ້າກັນ (4 ຕົວຢ່າງ)

  • ແບ່ງປັນນີ້
Hugh West

ບົດ​ຄວາມ​ນີ້​ສະ​ແດງ​ໃຫ້​ເຫັນ 4 ຕົວ​ຢ່າງ​ຂອງ ເຄື່ອງ​ສ້າງ​ຈໍາ​ນວນ​ສຸ່ມ ໂດຍ​ບໍ່​ມີ​ການ​ຊໍ້າ​ກັນ​ໂດຍ​ການ​ນໍາ​ໃຊ້ VBA ໃນ Excel. ໃນທີ່ນີ້ພວກເຮົາຈະໃຊ້ຟັງຊັນ Rnd ໃນຕົວຂອງ Excel ເພື່ອກໍານົດລະຫັດຂອງພວກເຮົາ. ມາເບິ່ງຕົວຢ່າງເພື່ອຮຽນຮູ້ເຕັກນິກການສ້າງຕົວເລກແບບສຸ່ມທີ່ເປັນເອກະລັກ.

ດາວໂຫລດປື້ມຄູ່ມືການປະຕິບັດ

ດາວໂຫລດປື້ມຄູ່ມືການປະຕິບັດນີ້ເພື່ອອອກກໍາລັງກາຍໃນຂະນະທີ່ທ່ານກໍາລັງອ່ານບົດຄວາມນີ້.

ຕົວສ້າງຕົວເລກແບບສຸ່ມທີ່ບໍ່ມີຊໍ້າກັນ.xlsm

4 ຕົວຢ່າງຂອງຕົວສ້າງຕົວເລກແບບສຸ່ມທີ່ບໍ່ມີການຊໍ້າກັນໃນ Excel VBA

ຂຽນລະຫັດໃນ Visual Basic Editor

ເພື່ອ ສ້າງຕົວເລກແບບສຸ່ມທີ່ບໍ່ມີການຊໍ້າກັນ , ພວກເຮົາຈໍາເປັນຕ້ອງ ເປີດ ແລະ ຂຽນ VBA code ໃນ ຕົວແກ້ໄຂພື້ນຖານພາບ. ເຮັດຕາມ ຂັ້ນຕອນ ເພື່ອ ເປີດ the visual basic editor ແລະຂຽນບາງລະຫັດໃສ່ທີ່ນັ້ນ.

  • ໄປທີ່ ຜູ້ພັດທະນາ ແຖບຈາກ Excel Ribbon .
  • ຄລິກ ຕົວເລືອກ Visual Basic.

  • ໃນ Visual Basic For Applications window, click the Insert dropdown to select the New Module ທາງເລືອກ.

ຕອນນີ້ໃສ່ ລະຫັດ ຂອງທ່ານໃສ່ໃນ ຕົວແກ້ໄຂລະຫັດພາບ ແລະ ກົດ F5 ເພື່ອ ແລ່ນ ມັນ.

1. ການ​ນໍາ​ໃຊ້​ຟັງ​ຊັນ VBA Rnd ເພື່ອ​ສ້າງ​ຈໍາ​ນວນ Random ໂດຍ​ບໍ່​ມີ​ການ​ຊ​້​ໍາ​ກັນ

ການ ຟັງ​ຊັນ Rnd ຖືກ​ນໍາ​ໃຊ້​ໃນ Excel VBA ກັບ ສ້າງຕົວເລກສຸ່ມ ທີ່ຢູ່ ລະຫວ່າງ 0 ແລະ 1 ສະເພາະ.

ໜ້າວຽກ : ສ້າງຕົວເລກສຸ່ມ 10 ຕົວເລກ ລະຫວ່າງ 0 ແລະ 1 ໃນ ເຊລ A1:A10.

ລະຫັດ : ໃສ່ ຕໍ່ໄປນີ້ ລະຫັດ ໃນ ຕົວແກ້ໄຂພື້ນຖານພາບ ແລະກົດ F5 ເພື່ອ ແລ່ນ ມັນ.

2361

Output : ພາບຫນ້າຈໍຂ້າງເທິງສະແດງໃຫ້ເຫັນ 10 ຕົວເລກສຸ່ມທີ່ບໍ່ຊໍ້າກັນ ໃນຂອບເຂດ ຂອງ 0 ແລະ 1.

ການອະທິບາຍລະຫັດ:

ໃນລະຫັດນີ້, ພວກເຮົາໄດ້ໃຊ້ ຟັງຊັນ Rnd ເພື່ອ ໃສ່ຕົວເລກສຸ່ມ ໃນ ໄລຍະເຊລ A1:A10 . ກ່ອນ ໃສ່ a ຕົວເລກໃໝ່ , ພວກເຮົາໄດ້ໃຊ້ Do while Loop ເພື່ອ ເບິ່ງ ສຳລັບ ຕົວເລກ ໃນ ໄລຍະເຊລທີ່ກຳນົດໄວ້ລ່ວງໜ້າ (A1:A10) ບໍ່ວ່າຈະເປັນ ມີຢູ່ແລ້ວ ຫຼື ບໍ່ແມ່ນ . ເພື່ອກວດເບິ່ງ ການມີຢູ່ ຂອງ ຕົວເລກ ໃນ ຊ່ວງເຊລ ແຕ່ລະຄັ້ງ, ພວກເຮົາກຳນົດຄ່າລະຫັດດ້ວຍຟັງຊັນ COUNTIF , ຟັງຊັນນີ້ ກວດເບິ່ງ a ຕົວເລກສຸ່ມໃໝ່ ໃນ ລາຍຊື່ ຂອງ ຕົວເລກທີ່ມີຢູ່ແລ້ວກ່ອນໃສ່ມັນ.

ອ່ານເພີ່ມເຕີມ : ສູດ Excel ເພື່ອສ້າງຕົວເລກ Random (5 ຕົວຢ່າງ)

2. ຕົວສ້າງຕົວເລກ Random ສໍາລັບເຂດລຸ່ມ ແລະ Upperbound ທີ່ໄດ້ກໍານົດໄວ້ໂດຍບໍ່ມີການຊໍ້າກັນ

ເພື່ອ ສ້າງຕົວເລກ Random ພາຍໃນຂອບເຂດ ກໍານົດໄວ້ , ພວກເຮົາຈໍາເປັນຕ້ອງໄດ້ ຕັ້ງ ເຂດລຸ່ມ ແລະ ເຂດເທິງ ໃນລະຫັດ VBA ຂອງພວກເຮົາ. ສຳລັບຂໍ້ມູນ, ເຂດລຸ່ມ ແມ່ນ ຕົວເລກຕ່ຳສຸດ ແລະ ຂອບເຂດເທິງ. ແມ່ນ ຕົວເລກສູງສຸດ ໃນ ໄລຍະ ສຳລັບຕົວສ້າງຕົວເລກແບບສຸ່ມ. ພວກ​ເຮົາ​ສາ​ມາດ​ນໍາ​ໃຊ້​ດັ່ງ​ຕໍ່​ໄປ​ນີ້ ສູດ ໃນ​ລະ​ຫັດ​ຂອງ​ພວກ​ເຮົາ. Number Generator- Decimal

Task : ສ້າງຕົວເລກສຸ່ມ 10 ຕົວ ລະຫວ່າງ 10 ແລະ 20 ໃນ ເຊລ A1:A10.

ລະຫັດ : ໃສ່ ຕໍ່ໄປນີ້ ລະຫັດ ໃນ ຕົວແກ້ໄຂພື້ນຖານພາບ ແລະກົດ F5 ເພື່ອ ແລ່ນ ມັນ.

9002

Output : ພາບຫນ້າຈໍຂ້າງເທິງສະແດງໃຫ້ເຫັນ 10 ຕົວເລກສຸ່ມທີ່ບໍ່ຊໍ້າກັນ ໃນຂອບເຂດ ຂອງ 1 ແລະ 10.

2.2 Random Number Generator- Integer

ໃນຕົວຢ່າງນີ້, ພວກເຮົາຈະໃຊ້ ຟັງຊັນ VBA Int ເພື່ອ ເອົາ ສ່ວນ ເສດສ່ວນ ອອກຈາກ ຕົວເລກສຸ່ມ .

ວຽກ : ສ້າງຕົວເລກຈໍານວນເຕັມແບບສຸ່ມ 20 ຕົວ ລະຫວ່າງ 1 ແລະ 20 ໃນ ເຊລ A1:B10.

ລະຫັດ : ໃສ່ ຕໍ່ໄປນີ້ ລະຫັດ ໃນ ຕົວແກ້ໄຂພື້ນຖານພາບ ແລະກົດ F5 ເພື່ອ ແລ່ນ ມັນ.

6740

Output : ພາບຫນ້າຈໍຂ້າງເທິງສະແດງໃຫ້ເຫັນ 20 ຕົວເລກແບບສຸ່ມທີ່ບໍ່ຊໍ້າກັນ ໃນຂອບເຂດ ຂອງ 1 ແລະ 20.

ອ່ານເພີ່ມເຕີມ: ຕົວສ້າງຕົວເລກແບບສຸ່ມໃນ Excel ທີ່ບໍ່ມີການຊໍ້າຄືນ (9 ວິທີ)

ການອ່ານທີ່ຄ້າຍຄືກັນ

  • ຕົວສ້າງຕົວເລກ Random ດ້ວຍເຄື່ອງມືການວິເຄາະຂໍ້ມູນ ແລະຟັງຊັນໃນ Excel
  • ວິທີການ ສ້າງຂໍ້ມູນແບບສຸ່ມໃນ Excel (9ວິທີທີ່ງ່າຍ)
  • ຕົວສ້າງຕົວເລກ Random 5 ຕົວໃນ Excel (7 ຕົວຢ່າງ)
  • ຕົວສ້າງຕົວເລກ Random 4 ຕົວໃນ Excel (8 ຕົວຢ່າງ)
  • ສ້າງຕົວເລກ Random ຈາກລາຍການໃນ Excel (4 ວິທີ)

3. ລະບຸຈຸດທົດສະນິຍົມສຳລັບຕົວສ້າງຕົວເລກ Random ທີ່ບໍ່ຊ້ຳກັນໃນ Excel VBA

ພວກເຮົາສາມາດໃຊ້ ຟັງຊັນຮອບ ໃນລະຫັດຂອງພວກເຮົາເພື່ອ ລະບຸ the ຈຳນວນ ຂອງ ຕຳແໜ່ງທົດສະນິຍົມ ໃນ ຈຳນວນທີ່ສ້າງຂຶ້ນແບບສຸ່ມ . syntax ຂອງຟັງຊັນແມ່ນ-

Round(expression, [numdecimalplaces])

ພວກເຮົາຕ້ອງການ ລະບຸ the 2nd argument ຕາມ requirement ຂອງພວກເຮົາ.

Task : ສ້າງຕົວເລກ Random 20 ໂຕດ້ວຍ 2 ໂຕເລກທົດສະນິຍົມ ລະຫວ່າງ 1 ແລະ 20 ໃນ ເຊລ A1:B10.

ລະຫັດ : ໃສ່ ຕໍ່ໄປນີ້ ລະຫັດ ໃນ ຕົວແກ້ໄຂພື້ນຖານພາບ ແລະກົດ F5 ເພື່ອ ແລ່ນ ມັນ.

2872

Output : ພາບໜ້າຈໍຂ້າງເທິງສະແດງໃຫ້ເຫັນ 20 ຕົວເລກຈຳນວນເຕັມສຸ່ມທີ່ບໍ່ຊ້ຳກັນກັບ 2 ຈຸດທົດສະນິຍົມ ໃນຂອບເຂດ ຂອງ 1 ແລະ 20.

ອ່ານເພີ່ມເຕີມ: ສ້າງຕົວເລກ Random ໃນ Excel ດ້ວຍເລກທົດສະນິຍົມ (3 ວິທີ)

4. ພັດທະນາ Userform ສໍາລັບ Random Number Generator ທີ່ບໍ່ມີການຊໍ້າກັນໃນ Excel VBA

ໃນຕົວຢ່າງນີ້, ພວກເຮົາຈະສະແດງວິທີການໃຊ້ UserForm ໃນ Excel VBA ເພື່ອ ສ້າງຕົວເລກສຸ່ມ ດ້ວຍ ບໍ່ຊໍ້າກັນ .

ໜ້າວຽກ: ສ້າງ20 ຕົວເລກແບບສຸ່ມ ໃນຂອບເຂດເຊລ A1:B10 ໂດຍໃຊ້ UserForm ກັບ ຄ່າການປ້ອນ (i) ຂອບລຸ່ມ (ii) ຂອບເຂດເທິງ (iii) ຈຳນວນຕົວເລກທົດສະນິຍົມ.

ສ້າງ UserForm:

ເຮັດຕາມຂັ້ນຕອນລຸ່ມນີ້ເພື່ອສ້າງ UserForm ດ້ວຍ ຊ່ອງປ້ອນຂໍ້ມູນທີ່ຕ້ອງການ ຂອງພວກເຮົາ .

  • ໄປທີ່ແຖບ ນັກພັດທະນາ ຈາກແຖບ Excel Ribbon .
  • ຄລິກ the Visual ທາງເລືອກພື້ນຖານ.

  • ຢູ່ໃນປ່ອງຢ້ຽມ Visual Basic ສໍາລັບແອັບພລິເຄຊັນ , ຄລິກທີ່ Insert dropdown ເພື່ອ ເລືອກ ທາງເລືອກ UserForm .

  • ໃນ UserForm ຕື່ມ a label .
  • ຄຳບັນຍາຍ ປ້າຍກຳກັບ ເປັນ ​​ LowerBound ໃນຄຸນສົມບັດ.

<3

  • ເພີ່ມ ສອງ ເພີ່ມເຕີມ ປ້າຍກຳກັບ ຊື່ Upperbund ແລະ DecimalPlaces .

  • ຕອນນີ້ເພີ່ມ ສາມກ່ອງຂໍ້ຄວາມ ໃນ UserForm .

  • ໃນຂັ້ນຕອນນີ້, ເພີ່ມ a CommandButton ແລະຕັ້ງຊື່ມັນ ສ້າງ .

  • ດຽວນີ້, ກົດສອງເທື່ອ the CommandButton ແລະໃສ່ code ຕໍ່ໄປນີ້ໃນ ຕົວແກ້ໄຂລະຫັດ .
2949

  • ກົດ F5 ເພື່ອ ແລ່ນ the ລະຫັດ ແລະ UserForm ໄດ້ ປະກົດຂຶ້ນ .
  • ວາງ Lowerbound , Upperbound, ແລະ number ຂອງ ຕໍາແໜ່ງທົດສະນິຍົມ ໃນ UserForm ແລະກົດ ສ້າງປຸ່ມ .

Output : ໃນ ເຊລ A1:B10 , ມີ 20 ແບບສຸ່ມ ຕົວເລກ ກັບ 2 ຈຸດທົດສະນິຍົມ ໃນ ໄລຍະ 1 ຫາ 30.

ອ່ານເພີ່ມເຕີມ: ວິທີການສ້າງຕົວເລກ Random ໂດຍບໍ່ມີການຊໍ້າກັນໃນ Excel (7 ວິທີ)

ສິ່ງທີ່ຄວນຈື່

  • ພວກເຮົາຍັງສາມາດໃຊ້ ແກ້ໄຂຟັງຊັນ ແທນ ຟັງຊັນ Int ເພື່ອ ສ້າງຕົວເລກຈໍານວນເຕັມທີ່ເປັນເອກະລັກ . ຟັງຊັນ ເອົາ ສ່ວນ ເສດສ່ວນ ຂອງ ຕົວເລກ ຄືກັນກັບ ຟັງຊັນ Int .

ສະຫຼຸບ

ດຽວນີ້, ພວກເຮົາຮູ້ວິທີສ້າງຕົວເລກສຸ່ມທີ່ເປັນເອກະລັກໂດຍໃຊ້ VBA ໃນ Excel ດ້ວຍການຊ່ວຍເຫຼືອຂອງຕົວຢ່າງທີ່ເໝາະສົມ. ຫວັງເປັນຢ່າງຍິ່ງວ່າ, ມັນຈະຊ່ວຍໃຫ້ທ່ານສາມາດໃຊ້ງານໄດ້ຢ່າງໝັ້ນໃຈ. ມີຄຳຖາມ ຫຼືຄຳແນະນຳໃດໆ ຢ່າລືມໃສ່ໃນປ່ອງຄຳເຫັນຂ້າງລຸ່ມ.

Hugh West ເປັນຄູຝຶກ Excel ທີ່ມີປະສົບການສູງແລະນັກວິເຄາະທີ່ມີປະສົບການຫຼາຍກວ່າ 10 ປີໃນອຸດສາຫະກໍາ. ລາວຈົບປະລິນຍາຕີສາຂາບັນຊີ ແລະການເງິນ ແລະປະລິນຍາໂທສາຂາບໍລິຫານທຸລະກິດ. Hugh ມີຄວາມກະຕືລືລົ້ນໃນການສອນແລະໄດ້ພັດທະນາວິທີການສອນທີ່ເປັນເອກະລັກທີ່ງ່າຍຕໍ່ການຕິດຕາມແລະເຂົ້າໃຈ. ຄວາມຮູ້ຊ່ຽວຊານຂອງລາວກ່ຽວກັບ Excel ໄດ້ຊ່ວຍໃຫ້ນັກຮຽນແລະຜູ້ຊ່ຽວຊານຫລາຍພັນຄົນໃນທົ່ວໂລກປັບປຸງທັກສະຂອງເຂົາເຈົ້າແລະດີເລີດໃນອາຊີບຂອງພວກເຂົາ. ຜ່ານ blog ຂອງລາວ, Hugh ແບ່ງປັນຄວາມຮູ້ຂອງລາວກັບໂລກ, ສະຫນອງການສອນ Excel ຟຣີແລະການຝຶກອົບຮົມອອນໄລນ໌ເພື່ອຊ່ວຍໃຫ້ບຸກຄົນແລະທຸລະກິດສາມາດບັນລຸທ່າແຮງຂອງພວກເຂົາ.