Xin giúp VBA thêm 1 số ngẫu nhiên vào 2 số có sẵn

[hoang0569]

Xin mọi người giúp code VBA thêm 1 số ngẫu nhiên từ 0-9 vào vị trí đầu hoặc giữa hoặc cuối của 2 số có sẵn trong 1 ô. Mình gửi kèm File VD mong mọi người giúp, Xin cảm ơn nhiều.

 

[VetMini]

Lấy chiều dài số = L
Lấy một số Random R từ 0 đến (L+1)&"9". Ví dụ L = 3 thì random từ 0 đến 49.
vị trí chèn = R \ 10
ký tự chèn = R Mod 10

Tự biết điều chỉnh cái vụ Excel không nhận số có 0 ở trước.

 

[Phuocam]

Cóp thể dùng RANDBETWEEN(1,3) để tìm vị trí cần chèn và 1 hàm RANDBETWEEN(0,9) để có số ngẫu nhiên

 

[hoang0569]

Mình mới học Excel, các bạn gợi ý nhưng mình chưa thể làm được, mong các bạn giúp luôn vào File mình gửi kèm đó, cảm ơn nhiều

 

[CHAOQUAY]

Xin mọi người giúp code VBA thêm 1 số ngẫu nhiên từ 0-9 vào vị trí đầu hoặc giữa hoặc cuối của 2 số có sẵn trong 1 ô. Mình gửi kèm File VD mong mọi người giúp, Xin cảm ơn nhiều.

Sub abc()
Dim Mang(59)
Dim Kq As String
Dim i, j, k, t
Randomize
With Sheet1
    t = .Range("D7")
    i = CLng(Left(t, 1))
    j = CLng(Right(t, 1))
    Mang(20 + i) = i
    Mang(40 + j) = j
    k = Fix(Rnd() * 59)
    Mang(k) = Mang(k) & (k Mod 10)
    Kq = Replace(Join(Mang), " ", "")
    .Range("E7").NumberFormat = "@"
    .Range("E7") = Kq
End With
End Sub

 

[huuthang_bd]

Góp vui bằng công thức

=D7+INDEX(ROUND(D7,{-2;-1;0})*9+RANDBETWEEN(0,9)*10^{2;1;0},RANDBETWEEN(1,3))

 

[Phuocam]

Thêm một cách:

=REPLACE($D$7,RANDBETWEEN(1,3),0,RANDBETWEEN(0,9))