Office

ฟังก์ชัน Rnd

ส่งกลับ เดียว ที่มีตัวเลขสุ่ม

ไวยากรณ์

Rnd [(number)]

หมายเลข ที่เลือกได้อาร์กิวเมนต์ เป็นหนึ่งเดียวหรือ นิพจน์ตัวเลข ที่ถูกต้อง

ค่าส่งกลับ

ถ้า number เป็น

Rnd สร้าง

น้อยกว่าศูนย์

หมายเลขเดียวกันทุกครั้งโดยใช้ตัวเลขเป็น ข้อมูลเริ่มต้น

มากกว่าศูนย์

ตัวเลขสุ่มถัดไปในลำดับ

เท่ากับศูนย์

หมายเลขที่สร้างขึ้นล่าสุด

ไม่ได้ให้มา

ตัวเลขสุ่มถัดไปในลำดับ

ข้อสังเกต

ฟังก์ชันRndจะส่งกลับค่าที่น้อยกว่า1แต่มากกว่าหรือเท่ากับศูนย์

ค่าของตัวเลขจะกำหนดวิธีที่Rndสร้างตัวเลขแบบสุ่ม:

สำหรับเมล็ดพันธุ์เริ่มต้นที่ระบุลำดับหมายเลขเดียวกันจะถูกสร้างขึ้นเนื่องจากการโทรที่ต่อเนื่องกันไปยังฟังก์ชันRndจะใช้ตัวเลขก่อนหน้าเป็นเมล็ดสำหรับหมายเลขถัดไปในลำดับ

ก่อนที่จะโทรRndให้ใช้คำสั่งสุ่มโดยไม่มีอาร์กิวเมนต์ในการเตรียมใช้งานตัวสร้างตัวเลขแบบสุ่มกับเมล็ดพันธุ์ที่ยึดตามตัวจับเวลาของระบบ

เมื่อต้องการสร้างจำนวนเต็มแบบสุ่มในช่วงที่กำหนดให้ใช้สูตรนี้:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

ที่นี่upperboundเป็นตัวเลขสูงสุดในช่วงและlowerboundคือจำนวนที่ต่ำที่สุดในช่วง

หมายเหตุ:  เมื่อต้องการทำซ้ำลำดับของตัวเลขแบบสุ่มให้โทรRndด้วยอาร์กิวเมนต์ที่เป็นค่าลบทันทีก่อนที่จะใช้สุ่มกับอาร์กิวเมนต์ที่เป็นตัวเลข การใช้สุ่มที่มีค่าเดียวกันสำหรับตัวเลขไม่ทำซ้ำลำดับก่อนหน้านี้

ตัวอย่างคิวรี

นิพจน์

ผลลัพธ์

เลือก ProductSales, Rnd ([ส่วนลด]) เป็น RandomNumbers จาก ProductSales

ส่งกลับหมายเลขผลิตภัณฑ์พร้อมด้วยตัวเลขแบบสุ่มในคอลัมน์ RandomNumbers

ตัวอย่าง VBA

หมายเหตุ: ตัวอย่างที่ทำตามสาธิตการใช้ฟังก์ชันนี้ในโมดูลของแอปพลิเคชัน Visual Basic for Applications (VBA) สำหรับข้อมูลเพิ่มเติมเกี่ยวกับการทำงานกับ VBA ให้เลือกการอ้างอิงนักพัฒนาในรายการดรอปดาวน์ที่อยู่ถัดจากค้นหาและใส่เงื่อนไขอย่างน้อยหนึ่งข้อในกล่องค้นหา

ตัวอย่างนี้ใช้ฟังก์ชันRndเพื่อสร้างค่าจำนวนเต็มแบบสุ่มจาก1ถึง6

Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)

หมายเหตุ:  หน้านี้ได้รับการแปลด้วยระบบอัตโนมัติ และอาจมีข้อผิดพลาดทางไวยากรณ์หรือความไม่ถูกต้อง จุดประสงค์ของเราคือเพื่อให้เนื้อหานี้มีประโยชน์กับคุณ คุณสามารถแจ้งให้เราทราบว่าข้อมูลมีประโยชน์หรือไม่ นี่คือบทความภาษาอังกฤษเพื่อให้คุณใช้อ้างอิง

ขยายทักษะ Office ของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×