Góp vui
Mã:
Sub ABC()
Dim KetQua$, DaySo$, i&, r&, N&
DaySo = "123456789"
N = Len(DaySo)
Randomize
Do
If i = N Then i = 1 Else i = i + 1
r = Int(Rnd() * N + 1)
tmp = Mid(DaySo, r, 1)
Mid(DaySo, r, 1) = Mid(DaySo, i, 1)
Mid(DaySo, i, 1) = tmp
KetQua = Format(DaySo, "0/00+0/00+0/00")
Loop Until Evaluate("=" & KetQua) = 1
Range("A2") = KetQua
End Sub