Theo lẽ thường, tránh bỏ Randomize trong vòng lặp.
Trước đây tôi hiểu là nếu không có Randomize, thì Random lần sau có thể sẽ bị trùng với random lần trước liền kề. Vừa rồi tôi thử cho Randomize ra ngoài vòng lặp và test vài chục lần thì thấy khả năng trùng cao hơn so với bỏ trong vòng lặp, không biết đúng không
May mắn là trong trường hợp này Randomize nằm trong 1 cái IF, chỉ True mới chạy, và False (chạy qua Else) nhiều hơn nên kéo dài được 1 miếng thời gian, anh xem giùm cái "may mắn" này có giúp được tí nào không?
1. VBA khá chậm, cho nên ít xảy ra "không may mắn".
Random là một hàm chuỗi (đại khái như chuỗi Taylor), dựa vào cái hạt giống ban đầu để lấy trị đầu tiên. Và cứ dựa vào đó mà lấy trị kế tiếp. Vì vậy, với một hạt giống, bạn sẽ được một sê ri.
Bác ah, kỹ tính quá, Randomize thì chấp nhận là phụ thuộc vào hộp đen của họ rồi (lõi code biên dịch VBA, lõi Processor như bác nói)
Bạn phải tự thử
Em thấy code chạy cũng ổn, cảm ơn anh nhiều ạ !
Cũng trong bộ code này, nhờ anh viết dùm em thêm trường hơp ngẫu nhiên này với ạ
Rất cần và rất quan trọng với em anh, các vd em đưa lên đây là vd em mô tả thui anh
Bạn còn bao nhiêu trường hợp thì liệt kê ra hết đi
Bán hàng, và ngẫu nhiên chế ra 50.000 chuỗi ký tự. Cái này bạn tự đoán ra lợi ích của nó rồi. Khỏi cần hỏi.
Người ta làm xong một bước mới sáng kiến bước kế tiếp. Vì sáng kiến không mất tiền cho nên không bao giờ hết đâu.
Nếu bạn ấy liệt kê xong và tuyên bố đã hết, thì tôi làm, và không làm thêm bất kỳ trường hợp nào khác nữa. Tất nhiên nếu 1 trường hợp nào đó oái oăm quá thì không làm nổi và bó tay
Từ "rất cần" chỉ phải gõ có 11 ký tự (máy tôi gõ theo Telex) cho nên ai lên đây cũng thấy vấn đề của mình "rất cần".
Đó là việc của người "cần" đó anh, còn tôi không "cần" và tôi đủ kiên nhẫn để chờ
Dạ với chủ đề "tìm và thay thế ngẫu nhiên" thì em xin thêm trường hợp ở #48 (vd4-2) ạ, nhờ anh viết thêm dùm em code ở trường hợp này nữa với ạ, cảm ơn anh nhiều !Đó là việc của người "cần" đó anh, còn tôi không "cần" và tôi đủ kiên nhẫn để chờ
Nói thêm: nói RÕ cũng không phải dễ, vì như VD4, mô tả bằng lời không giống trong file
Dạ hết anh !
Function ReplaceRnd(MyStr As String, Rep As String, Replacement, RepCase As Integer) As String
'Only one random replacement use Repcase = 1'
'All replacements are random use RepCase = 2'
'Change random replacement for new line use RepCase = 3'
Application.Volatile True
Dim Tmp, LenStr As Long, i As Long, X As String
Dim LenRep As Long, LenCurrent As Long
LenStr = Len(MyStr)
LenRep = Len(Rep)
LenCurrent = 0
Tmp = Split(Replacement, ";")
If RepCase = 1 Then 'Only one random replacement'
Randomize
X = Tmp(Int(Rnd() * (UBound(Tmp) + 1)))
For i = 1 To LenStr
If Mid(MyStr, i, LenRep) = Rep Then
ReplaceRnd = ReplaceRnd & X
i = i + LenRep - 1
Else
ReplaceRnd = ReplaceRnd & Mid(MyStr, i, 1)
End If
Next
Else
For i = 1 To LenStr
Select Case RepCase
Case 2 'All replacements are random'
If Mid(MyStr, i, LenRep) = Rep Then
Randomize
X = Tmp(Int(Rnd() * (UBound(Tmp) + 1)))
ReplaceRnd = ReplaceRnd & X
i = i + LenRep - 1
Else
ReplaceRnd = ReplaceRnd & Mid(MyStr, i, 1)
End If
Case 3 'Change random replacement for new line'
If i = 1 Or Mid(MyStr, i, 1) = Chr(10) Then
Randomize
X = Tmp(Int(Rnd() * (UBound(Tmp) + 1)))
End If
If Mid(MyStr, i, LenRep) = Rep Then
ReplaceRnd = ReplaceRnd & X
i = i + LenRep - 1
Else
ReplaceRnd = ReplaceRnd & Mid(MyStr, i, 1)
End If
End Select
'LenCurrent = Len(ReplaceRnd)
Next
End If
End FunctionEm chạy thử thì thấy có lỗi thêm cả "-ptmNo1" vào nữa anh
