Option Explicit
Sub DienSoTuDong()
Dim Tmp As Double, Rw As Long, Col As Byte
Randomize
For Rw = 14 To 19 Step 2 'Chay Theo Ḍòng'
For Col = 4 To 13 'Chay Theo Cot'
Tmp = Rnd() / 10
Cells(Rw, Col).Value = Tmp * (-1) ^ (1 + 9 * Rnd() \ 1) + Choose(Rw - 13, 10, 13, 15, 17, 18)
Next Col
Next Rw
End Sub
Code đó chưa lấy dữ liệu vùng màu vàng. Thử code này xem sao.
Sub DienSo()
Dim i As Long, j As Long, Min As Double, Tmp As Double
Randomize
For i = 14 To 19 Step 2
Min = Cells(i, 15).Value + Cells(i + 1, 16).Value
Tmp = Cells(i, 16).Value - Cells(i + 1, 16).Value
For j = 4 To 13
Cells(i, j).Value = Min + Tmp * Rnd()
Next
Next
End Sub
,,,,Tmp = Rnd() / 10 Cells(Rw, Col).Value = Tmp * (-1) ^ (1 + 9 * Rnd() \ 1) + Choose(Rw - 13, 10, 13, 15, 17, 18)mình xin lỗi. các huynh biết giúp đệ vớiBạn bị lỗi xen ngang bài vì đề tài của bạn không trùng với đề tài mọi người đang thảo luận!
Lấy giá trị từ hàm ngẫu cho (từ 0.00000001 - 0.99999999999) đem chia cho 10; Lúc đó số nhận được trong khoảng (0.010000001- 0.099999999999)PHP:Tmp = Rnd() / 10
Biểu thức: (-1) ^ (1 + 9 * Rnd() \ 1) sẽ cho ta trị -1 hay 1 một cách ngẫu nhiênPHP:Cells(Rw, Col).Value = Tmp * (-1) ^ (1 + 9 * Rnd() \ 1) + Choose(Rw - 13, 10, 13, 15, 17, 18)
Biểu thức này được đem nhân với trị trong biến Tmp (như trên ta đã xét)
Hàm Choose(Rw - 13, 10, 13, 15, 17, 18) này cũng giống như trong Excel thôi;
Nhưng ở đây các trị 13 & 17 chen vô để lắp chổ trống mà thôi; Còn tại sao fải làm vậy thì ta fải xét đến vòng lặp theo bước nhãy cùa Rw
Sub DienSo() Dim i As Long, j As Long, Min, Max As Double, Tmp As Double
Randomize
For i = 14 To 16
Min = Cells(i, 16).Value
Max = Cells(i, 15).Value
For j = 4 To 13
Cells(i, j).Value = Application.RandBetween(Min * 100# - 10, Max * 100#) / 100#
Next
Next
End Sub
Sub DienSo()
Dim sArr(), dArr(), i As Long, j As Long
Dim Mn As Double, Mx As Double, Tmp As Double
sArr = Range("O14", Range("P14").End(xlDown)).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 10)
Randomize
For i = 1 To UBound(sArr)
Mx = sArr(i, 1): Mn = sArr(i, 2)
For j = 1 To 10
Do
Tmp = Mn + Rnd
dArr(i, j) = Tmp
If Tmp < Mx Then Exit Do
Loop
Next j
Next i
Range("D14:M14").Resize(i - 1) = dArr
End SubBạn thử code này xem
Sub DienSo()
Dim VungKetQua, KetQua, KhoangGiaTri
Set VungKetQua = Range("D14:M16") 'Sua lai theo du lieu thuc te
KhoangGiaTri = Range("O14:P16").Value 'Sua lai theo du lieu thuc te
VungKetQua.ClearContents
ReDim KetQua(1 To VungKetQua.Rows.Count, 1 To VungKetQua.Columns.Count)
Randomize
For i = 1 To UBound(KetQua, 1)
For j = 1 To UBound(KetQua, 2)
KetQua(i, j) = KhoangGiaTri(i, 2) + Rnd * (KhoangGiaTri(i, 1) - KhoangGiaTri(i, 2))
Next
Next
VungKetQua.Value = KetQua
End SubNếu đã đúng ý bạn thì chắc là tôi hiểu sai ý bạn rồi.
