BlogGang.com : : คนควน : การสุ่มข้อมูลเป็นชุด ๆ ด้วย VBA

การสุ่มข้อมูลเป็นชุด ๆ ด้วย VBA

การสุ่มข้อมูลเป็นชุด ๆ ด้วยสูตรสามารถดูได้ที่นี่ครับ ด้านล่างนี้จะแสดงตัวอย่างการเขียน Code ให้สุ่มข้อมูลออกมาเป็นชุด ๆ ในแต่ละชุดไม่ซ้ำกัน โดยเรียกใช้ Procedure RandomUnique

ภาพตัวอย่าง

Option Explicit

Sub TestUnique()
Dim a() As Variant, b() As Variant
Dim i As Integer, j As Integer
Dim k As Integer, l As Integer
l = 4 ‘Random 1-4
For i = 1 To l
    ReDim Preserve a(i)
   a(i) = i
Next i
For i = 1 To l
  ReDim Preserve b(i)
  Do
    j = a(Int(Rnd() * l + 1))
    On Error Resume Next
    k = Application.Match(j, b, 0)
  Loop Until Err = 13
  On Error GoTo 0
  b(i) = j
Next
For i = 1 To l
  If Selection.Cells(i, 1).Offset(0, -1) = "" Then Exit For
  Selection.Cells(i, 1) = b(i)
Next i
End Sub

Sub RandomUnique()
Do
  TestUnique
  Selection.Cells(500, 1).End(xlUp).Offset(1, 0).Activate
Loop Until Selection.Offset(0, -1) = ""
End Sub

Create Date : 01 ธันวาคม 2552

Last Update : 1 มีนาคม 2556 21:40:03 น.

7 comments

Counter : 1042 Pageviews.

what is the truth
if u ask me then
I will tell u that
it is GOD

โดย: da IP: 168.120.85.25 วันที่: 1 ธันวาคม 2552 เวลา:21:25:21 น.

Hi, Khun da

Thanks for your comment. I agree with you. :)

โดย: คนควน IP: 208.109.184.182 วันที่: 2 ธันวาคม 2552 เวลา:11:21:16 น.

ความรู้ของผมก็ได้มาจาก
อาจารย์คนควน
อาจารย์สมเกียรติ
อาจารย์เอก

นี่แหละครับ
ขอบคุณครับ

โดย: LucasLeva

วันที่: 27 ธันวาคม 2552 เวลา:0:42:45 น.

สวัสดีครับคุณ LucasLeva ขอบคุณที่แวะมาเยี่ยมเยียนครับ

โดย: คนควน

วันที่: 28 ธันวาคม 2552 เวลา:11:38:15 น.

ขอบคุณครับ

โดย: praad IP: 203.172.177.10 วันที่: 5 มีนาคม 2553 เวลา:9:12:38 น.

ผมทำตามแล้วทำไมคลิกแล้วมันไ่ม่แสดงผมเลยครับ ไม่รู้ว่าผมทำผิดขั้นตอนไหน รบกวนช่วยตอบให้ด้วยครับ

โดย: บาส IP: 58.8.91.194 วันที่: 29 เมษายน 2553 เวลา:10:40:02 น.

ได้กำหนด Security เป็น Medium หรือ Low แล้วยังครับ

หากไม่แน่ใจให้เข้าไปที่เมนู

Tools > Macro > Security > Medium/Low

หากกำหนดเป็น Medium ตอนเปิดไฟล์ต้อง Accept ให้ยอมรับ Macro ด้วยครับ

หลังจากกำหนดแล้วให้ปิดไฟล์แล้วเปิดใหม่ครับ

โดย: คนควน

วันที่: 30 เมษายน 2553 เวลา:22:50:26 น.