Lấy số ngẫu nhiên sau đó không fix (1 người xem)

[zen2505]

Chào các bạn!
Các bạn cho mình hỏi?
Mình muốn lấy 1 số ngẩy nhiên giữa 2 số được chon , mình đã dùng hàm RANDBETWEEN(a,b) tuy nhiên khi mình tác động vào workbook thì con số bị thay đổi. Mình muôn nó không thay đổi thì có hàm nào giải quyết được không ?

 

[ndu96081631]

Chào các bạn!
Các bạn cho mình hỏi?
Mình muốn lấy 1 số ngẩy nhiên giữa 2 số được chon , mình đã dùng hàm RANDBETWEEN(a,b) tuy nhiên khi mình tác động vào workbook thì con số bị thay đổi. Mình muôn nó không thay đổi thì có hàm nào giải quyết được không ?

Chỉ có cách copy rồi paste values thôi, chẳng có hàm nào giải quyết được vụ này cả (trừ phi là lập trình VBA)

 

[zen2505]

Em cám ơn bác ndu, bác có thể giúp em viết code cho trường hợp này được không ạ!

 

[ndu96081631]

Em cám ơn bác ndu, bác có thể giúp em viết code cho trường hợp này được không ạ!

Viết code ngắn gọn thế này cho dễ hiểu:

Sub Button1_Click()
  Range("A1").Value = WorksheetFunction.RandBetween([COLOR=#ff0000]1, 10[/COLOR])
End Sub

Xem file đính kèm, mỗi lần nhấn nút 1 phát là lập tức cell A1 sẽ được gán 1 số ngẫu nhiên trong khoảng từ 1 đến 10

 

[zen2505]

Bác adu ơi!
File E của em co khoang 100 hang nho bac dieu chinh code de thoa man duoc gium em voi!

 

[ndu96081631]

Bác adu ơi!
File E của em co khoang 100 hang nho bac dieu chinh code de thoa man duoc gium em voi!

File của bạn thế nào thì cứ đưa lên đây người ta mới biết đường giúp chứ

 

[zen2505]

Lần sau em rút kinh nghiệm!
Em gửi bác viết giùm em!
Em cám ơn!

 

[Ba Tê]

Lần sau em rút kinh nghiệm!
Em gửi bác viết giùm em!
Em cám ơn!

Lấy code của ndu96081631 gán cho từng dòng
Khi muốn thay đổi thì cho chạy Sub này.
Giá trị cột U sẽ không thay đổi ngoại trừ chạy code.

Public Sub GPE()
Dim Cll As Range
For Each Cll In Range("U2:U592")
    Cll.Value = WorksheetFunction.RandBetween(Cll.Offset(, -1), Cll.Offset(, -2))
Next Cll
End Sub

 

[zen2505]

Anh
Ba Tê ơi!
Em chưa hiểu ý anh nên anh cho em hỏi lại, có phải lả lấy code của bác ndu9608163 sau đó đưa vào từng ô từ 2 đến 592 rồi sau đó dùng code của anh để thay đổi giá trị phải không ạ!
E chưa hiểu VBA nên nhờ anh gửi file đính kèm giùm em nhé!

 

[Ba Tê]

Anh
Ba Tê ơi!
Em chưa hiểu ý anh nên anh cho em hỏi lại, có phải lả lấy code của bác ndu9608163 sau đó đưa vào từng ô từ 2 đến 592 rồi sau đó dùng code của anh để thay đổi giá trị phải không ạ!
E chưa hiểu VBA nên nhờ anh gửi file đính kèm giùm em nhé!

Enable Macros khi mở file. Bấm nút Run GPE. Số ngẫu nhiên sẽ thay đổi trong cột U.

 

[zen2505]

Hi đúng như những gì em muốn!
Thanks anh

 

[ndu96081631]

Lấy code của ndu96081631 gán cho từng dòng
Khi muốn thay đổi thì cho chạy Sub này.
Giá trị cột U sẽ không thay đổi ngoại trừ chạy code.

Public Sub GPE()
Dim Cll As Range
For Each Cll In Range("U2:U592")
    Cll.Value = WorksheetFunction.RandBetween(Cll.Offset(, -1), Cll.Offset(, -2))
Next Cll
End Sub

Hay vầy cũng được nè anh Ba:

Public Sub GPE()
  With Range("U2:U592")
    .Value = "=RandBetween(RC[-1],RC[-2])"
    .Value = .Value
  End With
End Sub

Ẹc... Ẹc...