สุ่มใส่ตัวเลข / วันที่ / เวลาระหว่างตัวเลขสองตัว / วันที่ / เวลาโดยไม่ซ้ำกัน

Kutools สำหรับ Excel's แทรกข้อมูลสุ่ม ยูทิลิตี้ช่วยให้สามารถแทรกจำนวนเต็มแบบสุ่ม (ตัวเลขทั้งหมด) ระหว่างตัวเลขสองตัวได้อย่างง่ายดายแทรกชุดของวันที่แบบสุ่ม (เฉพาะวันทำงานหรือเฉพาะวันหยุดสุดสัปดาห์หรือไม่มีข้อ จำกัด ) ระหว่างวันที่สองวันแทรกชุดเวลาแบบสุ่มระหว่างสองครั้งหรือสร้างแบบสุ่ม สตริงข้อความที่มีความยาวแน่นอน และ ค่าที่ไม่ซ้ำกัน ตัวเลือกจะป้องกันไม่ให้แทรกรายการที่ซ้ำกัน

วิธีนี้จะใช้ฟังก์ชัน RAND และฟังก์ชัน RANDBETWEEN เพื่อแทรกตัวเลขสุ่มระหว่างตัวเลขสองตัวลงในช่วงที่ระบุใน Excel โปรดดูสูตรด้านล่าง:

ดูภาพหน้าจอด้านล่าง:

สุ่มตัวเลขระหว่าง 0 ถึง 1 = RAND ()

สุ่มตัวเลขระหว่าง 0 ถึง 100 = RAND () * 100

สุ่มตัวเลขจำนวนเต็มระหว่าง 50 ถึง 100 = RANDBETWEEN (50, 100)

ด้านล่าง VBA สามารถช่วยคุณแทรกตัวเลขจำนวนเต็มสุ่มหรือตัวเลขสุ่มพร้อมตำแหน่งทศนิยมที่กำหนดลงในช่วงที่ระบุใน Excel กรุณาดำเนินการดังนี้:

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล

Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer)
'Update20131113
Application.Volatile
Randomize
If IsMissing(Decimals) Or Decimals = 0 Then
    RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1)
Else
    RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals)
End If
End Function

3. บันทึกและปิดรหัสจากนั้นป้อนสูตรนี้ในเซลล์ว่าง = RandomNumbers (X, Y, Z), X ระบุขีด จำกัด ล่างของตัวเลข Y ระบุขีด จำกัด ที่สูงขึ้นของตัวเลขและ Z คือตำแหน่งทศนิยมที่ระบุของตัวเลขสุ่ม

ตัวอย่างเช่นฉันต้องการสร้างจำนวนเต็มระหว่าง 50 ถึง 1000 ฉันสามารถแทรกสูตรนี้ได้ = สุ่มหมายเลข (50,1000,0); และแทรกตัวเลขสุ่มระหว่าง 50 ถึง 100 โดยมีทศนิยม 2 ตำแหน่งด้วยสูตรนี้ =สุ่มหมายเลข (50,100,2). ดูภาพหน้าจอด้านล่าง:

แทรกตัวเลขสุ่มโดยไม่มีตำแหน่งทศนิยม:

แทรกตัวเลขสุ่มด้วยทศนิยม 2 ตำแหน่ง:

Kutools สำหรับ Excel's แทรกข้อมูลสุ่ม ทำให้สามารถแทรกตัวเลขอินทิกรัลแบบสุ่มระหว่างตัวเลขสองตัวโดยไม่ซ้ำกันในช่วงที่เลือกใน Excel กรุณาดำเนินการดังต่อไปนี้:

1. เลือกช่วงที่คุณต้องการแทรกตัวเลขจำนวนเต็มแบบสุ่มแล้วคลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกข้อมูลสุ่มดูภาพหน้าจอ:

2. ใน แทรกข้อมูลสุ่ม กล่องโต้ตอบ (1) คลิก จำนวนเต็ม แท็บ (2) ในกล่องจากและถึงให้พิมพ์ช่วงตัวเลขที่คุณจะสร้างตัวเลขจำนวนเต็มแบบสุ่มระหว่าง (3) ตรวจสอบ ค่าเฉพาะ ตัวเลือก (4) และคลิกที่ Ok ปุ่ม. ดูภาพหน้าจอ:

ที่ยอดเยี่ยมนี้ แทรกข้อมูลสุ่ม คุณสมบัตินี้ยังรองรับการแทรกวันที่สุ่มโดยไม่ซ้ำเวลาสุ่มโดยไม่ซ้ำกันอักขระสุ่มและข้อมูลสุ่มจากรายการที่กำหนดเองบางรายการโดยไม่ซ้ำเช่นกัน

แทรกวันที่สุ่ม (ไม่รวมวันหยุดสุดสัปดาห์) โดยไม่ต้องทำซ้ำโดย Kutools for Excel

แทรกข้อมูลเวลาสุ่มโดยไม่ต้องทำซ้ำโดย Kutools for Excel

แทรกอักขระสุ่มที่มีความยาวสตริงที่ระบุโดย Kutools for Excel

แทรกข้อมูลแบบสุ่มจากรายการที่กำหนดเองโดยไม่ต้องทำซ้ำโดย Kutools for Excel