Giúp Code: Tích ngẫu nhiên (1 người xem)

[onlineXP]

Xin chào các bạn.
Mình có cột F cho sẵn các số từ 1 đến 5
Nhờ các bạn viết giúp đoạn code để tích ngẫu nhiên vào 5 cột (từ A đến E)
Sao cho số cột được tích bằng với số đã cho ở cột F
Mình nghĩ hoài vẫn không sao làm được. Mong được các bạn giúp đỡ. Xin cảm ơn.

 

[ChanhTQ@]

Bạn tham khảo macro sau & chỉnh lại

Option Explicit
Sub SoNgau()
 Dim StrC As String
 Dim Cls As Range
 Dim jJ As Byte, VTr As Byte
  
 For Each Cls In Range([F1], [F1].End(xlDown))
    StrC = "12345"
    For jJ = 1 To 99
        Randomize
        VTr = 1 + 5 * Rnd() \ 1
        If VTr = 1 Then
            StrC = Mid(StrC, 2, 4) & Left(StrC, 1)
        ElseIf VTr >= 5 Then
            StrC = Right(StrC, 1) & Left(StrC, 4)
        Else
            StrC = Mid(StrC, VTr + 1, 4) & Mid(StrC, VTr, 1) & Left(StrC, VTr - 1)
        End If
    Next jJ
    Cls.Offset(, 2).Value = Left(StrC, Cls.Value)
 Next Cls
End Sub